FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ayuda Funciones a Bajo Nivel
Posts: 625
Joined: Wed Mar 14, 2007 06:49 PM
Re: Ayuda Funciones a Bajo Nivel
Posted: Tue Jun 10, 2014 07:56 PM

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,..

Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Ayuda Funciones a Bajo Nivel
Posted: Tue Jun 10, 2014 08:18 PM
Victor,

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

Code (fw): Select all Collapse
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
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Ayuda Funciones a Bajo Nivel
Posted: Tue Jun 10, 2014 08:22 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 625
Joined: Wed Mar 14, 2007 06:49 PM
Re: Ayuda Funciones a Bajo Nivel
Posted: Tue Jun 10, 2014 11:35 PM

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..

Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Ayuda Funciones a Bajo Nivel
Posted: Wed Jun 11, 2014 07:44 AM

Victor,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion