Clipper On Line • Ver Tópico - Pegar informações do HD

Pegar informações do HD

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Pegar informações do HD

Mensagempor asimoes » 07 Mar 2021 20:14

Referência: https://docs.microsoft.com/en-us/windows/win32/cimwin32prov/win32-diskdrive

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

â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes



Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 11 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro