Cómo leer el número de serie del disco duro accediendo al sistema VB

Hay muchas formas de leer el número de serie del disco duro. Los siguientes son varios métodos que se pueden usar en XP. No he usado el sistema Vista, por lo que no sé si el siguiente método es factible en el sistema Vista. p>

Método 1:

Establecer FSO = CreateObject("Scripting.FileSystemObject ")

Establecer d = FSO.GetDrive("C:")

Imprimir "El número de serie de la unidad C es" amp; Hex(d.SerialNumber)