Leer el Numero de Serie

Ejl
12 de Diciembre del 2003
Por Favor.
Necesito leer el número de serie del disco rígido con vfp6

Luisen98
12 de Diciembre del 2003
Información de los discos (unidad, tipo y numero de serie) con WSH. Realizado por Cetin Basoz

Está realizado con WSH (Windows Scripting Host), es decir funciona con S.O. superior
a Windows 95.


Dimension aDriveTypes[6]
aDriveTypes[1] = "Desconocido"
aDriveTypes[2] = "Removible"
aDriveTypes[3] = "Fijo"
aDriveTypes[4] = "Red"
aDriveTypes[5] = "CD-ROM"
aDriveTypes[6] = "Disco RAM"
oFS = CREATEOBJECT('Scripting.FileSystemObject')
For each oDrive in oFS.Drives
? "Disco :"+oDrive.DriveLetter +" Tipo - " + aDriveTypes[oDrive.DriveType+1]
If oDrive.isReady
?? " [Num. Serie :" + transform(oDrive.SerialNumber)+"]"
Endif
Endfor