Serial del disco duro

Hola grupo,

Desde hace mas de 2 años utilizo el siguiente codigo para encontrar el
serial del disco duro de un computador:

Public Function SerialDisco() As String
' Esta es la funcion que devuelve el serial del disco duro unico, asignado
por el fabricante
' Funciona en Windows 2000, NT y XP (Produce error en Me)
Dim OWMI As Object
Dim Disco As Object
Dim Discos As Object
On Error GoTo ErrorSerial

Set OWMI = GetObject("WINMGMTS:")
Set Discos = OWMI.instancesof("Win32_physicalMedia")
For Each Disco In Discos
SerialDisco = Disco.serialnumber
Exit For
Next Disco

Exit Function

ErrorSerial:
SerialDisco = "Error"
End Function

Este codigo lo tengo gracias a la ayuda de Hector Miguel, y aunque nunca lo
entendi muy bien, ultimamente me esta fallando pues devuelve "Error", supongo
que tiene que ver con el uso de Windows Vista o de Office 2007 (o tal vez
ambos), pues hace 2 años no molestaba

Alguien puede decirme que es lo que pasa con la linea

SerialDisco = Disco.serialnumber
que esta devolviendo error en un porcentaje muy alto de los equipos en los
que corro el codigo?
o mejor alguien puede pasarme una funcion que calcule el serial del disco
duro en donde se encuentra el archivo que contiene el codigo?

Saludos,

Henry