Olá Fladimir,
Sem querer atrapalhar sua mensagem dirigida ao Bencz acima (com certeza irá lê-la), você poderia me dizer como faço para compilar no Harbour o exemplo que você postou?
Moderador: Moderadores
**********************
Function Service_WMI()
**********************
Static oWmiService
Local oScriptObj
If oWmiService==nil
oScriptObj=CREATEOBJECT("wbemScripting.SwbemLocator")
oWmiService=oScriptObj:ConnectServer()
End If
Return oWmiService
#include "hbcompat.ch"
Function Main()
TesteHD()
Return Nil
*******************
procedure TesteHD()
Local oWmiService, oListaProcess, oDisk, cSerial
oWmiService := Service_WMI()
oListaProcess := oWmiService:ExecQuery('Select * from Win32_PhysicalMedia')
FOR Each oDisk in oListaProcess
cSerial := oDisk:SerialNumber
If IsDigit( cSerial )
Hb_Alert( cSerial )
EndIf
NEXT
Return
**********************
Function Service_WMI()
Local oScriptObj, oWmiService
If oWmiService==nil
oScriptObj=CREATEOBJECT("wbemScripting.SwbemLocator")
oWmiService=oScriptObj:ConnectServer()
EndIf
Return oWmiService
wmic diskdrive get serialnumber
Retornar para Contribuições, Dicas e Tutoriais
Usuários vendo este fórum: Nenhum usuário registrado online e 21 visitantes