Page 3 of 3

Re: Ayuda Funciones a Bajo Nivel

PostPosted: Tue Jun 10, 2014 7:56 pm
by 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,..

Re: Ayuda Funciones a Bajo Nivel

PostPosted: Tue Jun 10, 2014 8:18 pm
by Antonio Linares
Victor,

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

Code: Select all  Expand view
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
 

Re: Ayuda Funciones a Bajo Nivel

PostPosted: Tue Jun 10, 2014 8:22 pm
by Antonio Linares
No devuelve el valor grabado en la rom del HD...

Re: Ayuda Funciones a Bajo Nivel

PostPosted: Tue Jun 10, 2014 11:35 pm
by 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..

Re: Ayuda Funciones a Bajo Nivel

PostPosted: Wed Jun 11, 2014 7:44 am
by Antonio Linares
Victor,

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