Retorna como Hash
aDiskInformation := GetDiskInformation()
FUNCTION GetDiskInformation()
LOCAL oDiskDrive, aDiskInformation
LOCAL oWMIObjA, oWMIDiskDrive, oWMIObjA2
oWMIObjA := Win_OleCreateObject( "wbemScripting.SwbemLocator" )
oWMIServerA := oWMIObjA:ConnectServer()
oWMIDiskDrive := oWMIServerA:ExecQuery( "SELECT * FROM Win32_DiskDrive" )
aDiskInformation := {}
hRecord := Nil
FOR EACH oDiskDrive IN oWMIDiskDrive
hRecord := Nil
hRecord := {=>}
hRecord["SerialNumber"] := oDiskDrive:SerialNumber
hRecord["Manufacturer"] := oDiskDrive:Manufacturer
hRecord["MediaType"] := oDiskDrive:MediaType
hRecord["Partitions"] := oDiskDrive:Partitions
hRecord["Size"] := oDiskDrive:Size
hRecord["Caption"] := oDiskDrive:Caption
hRecord["Description"] := oDiskDrive:Description
aAdd( aDiskInformation, hRecord )
NEXT
RETURN aDiskInformation