Originariamente inviato da verardoelvis
ciao devi usare l'fso, ora non ho sotto mano il VB, comunque puoi vedere anche nell'help.

'Leggo il seriale dell'HD.

Set fso = CreateObject("Scripting.FileSystemObject")

Set fsoDriveS = fso.Drives

For Each fsoDrive In fsoDriveS

sDrive = fsoDrive.DriveLetter

If (fsoDrive.DriveType = 2) And (sDrive = "D") Then

Set fsoDrive = fso.GetDrive(sDrive)

SerialNum = fsoDrive.SerialNumber

MsgBox SerialNum

End If
Next

Set fsoDriveS = Nothing


prova, ciao
Ciao,
il Microsoft Scripting Runtime è disponibile e utilizzabile su tutti i so Win?
Grazie