PC Toledo

Código: Selecionar todos

   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