Ayuda Funciones a Bajo Nivel

[cuatecatl82]

Cristobal: para obtener el serial lógico de cada partición del disco es fácil mediante Wmi, lo que se intenta en este post es obtener el número único de cada disco duro el cual está grabado en el chip del controlador del disco duro.


Maestro Antonio : De plano en Xp no me funciona ni en disco Ide ni en Sata,..

[Antonio Linares]

Victor,

Por lo visto asi funciona en XP, no se si has llegado a usar este objeto:

Code: Select all  Expand view  RUN

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objDrive in colDrives
 Wscript.Echo "Available space: " & objDrive.AvailableSpace
 Wscript.Echo "Drive letter: " & objDrive.DriveLetter
 Wscript.Echo "Drive type: " & objDrive.DriveType
 Wscript.Echo "File system: " & objDrive.FileSystem
 Wscript.Echo "Free space: " & objDrive.FreeSpace
 Wscript.Echo "Is ready: " & objDrive.IsReady
 Wscript.Echo "Path: " & objDrive.Path
 Wscript.Echo "Root folder: " & objDrive.RootFolder
 Wscript.Echo "Serial number: " & objDrive.SerialNumber
 Wscript.Echo "Share name: " & objDrive.ShareName
 Wscript.Echo "Total size: " & objDrive.TotalSize
 Wscript.Echo "Volume name: " & objDrive.VolumeName
Next
 

[Antonio Linares]

No devuelve el valor grabado en la rom del HD...

[cuatecatl82]

Bueno Maestro ni hablar, de plano tendré que utilizar la dll aunque sea en demo.. Le agradesco bastante su tiempo y valoró su esfuerzo mil gracias..

[Antonio Linares]

Victor,

Siento no haberte sido de más ayuda. Es un código bastante complejo y no estoy familiarizado con él.