Nro Serie disco duro - para rutina de proteccion sistema

Hace algun tiempo se publicaron algunas rutinas para obtener el nro de serie
del disco duro donde se instalaba un sistema, a fin de usarlo para
implementar proteccion basada en este nro.
El problemas es que en Windows XP no funcionan, ya que siempren retorna
'******'
¿Alguien ha podido solucionar esto en XP?, o ha encontrado otra llamada a la
API de windows XP que retorne algo útil para identificar la PC, basado en
nro de disco, id de motherboard o procesador, etc?
Gracias desde ya...
Gabriel

PD: El codigo original es algo así:

oFS=CreateObject('scripting.filesystemobject')
cadena=str(oFS.Drives('c').SerialNumber,9)
release ofs
? cadena etc etc