Leitura do Serial de Fabrica do HD x[H]arbour

[Jairo Maia]

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?

[fladimir]

Jairo, talvez pq tenha faltado a função Service_WMI q segue... tb para a sintaxe FOR... EACH adicionar no inicio #include 'hbcompat.ch'

Se não informar qual função esta acusando faltar ou mensagem de erro.

Código: Selecionar todos

**********************
Function Service_WMI()
**********************
Static oWmiService 
Local oScriptObj
If oWmiService==nil
 oScriptObj=CREATEOBJECT("wbemScripting.SwbemLocator")
 oWmiService=oScriptObj:ConnectServer()
End If
Return oWmiService

[]´s

[bencz]

Fladimir, bom dia
Não sei informar o motivo do app-crash...
Talvez algum close ou dispose que ficou faltando não sei....

[ANDRIL]

Poderia ser algum erro de memória, veja as declarações das variáveis oWmiService.

Na função TesteHD()
Local oWmiService

Na função Service_WMI()
Static oWmiService

Tente definir nesta função ela também como Local, visto que ela esta passando o valor via return.

Talvez o erro ao sair pode ser no momento em que os objetos são liberados da memória.
Ate+

[fladimir]

Vlw pessoal...

A dica do ANDRIL deu certo.

obrigado

[]´s

[Jairo Maia]

Olá Pessoal,

Tentei montar uma função com base no exemplo do Fladimir e a correção do Anril, mas tenho um resultado muito estranho e testei em vários HDs e acontece o mesmo.

Sempre retorna algo assim no 7 ou 8: 202020202020565038463430385a375238524e48

No XP fiz um teste e retorna isso: 3636323234313234333030372020202020202020

Nota: Não preciso usar o Swap.

O que tem errado nesse exemplo:

Código: Selecionar todos

#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

[fladimir]

Não seria pq vc colocou pra mostrar somente se for Digito o retorno?

Pq na verdade o nr serial meu por exemplo tem Caracteres, então talvez seja pq só esta mostrando a segunda parte do nr serial ou nr complementar q é composto somente por Digitos (números) não?

[]´s

[Jairo Maia]

Olá Fladimir, obrigado por responder.

Você está se referindo a função IsDigit(), mas ela não tem essa função. A IsDigite() checa se o primeiro caractere é um digito entre "0" a "9" ou entre "a" a "z". Coloquei porque sem ela me mostra também um Nil e um outro caractere estranho. Mas deve ser do CDRom ou do pendrive.

Resumindo, o resultado é o mesmo se remover essa função. Muito estranho. Não tenho ideia do que seja.

[fladimir]

Entendi, confundi o nome de sua função com uma q eu conheço q verifica se só tem numeros na string...

Ok...

Faz assim abre o prompt ai e executa o comando abaixo e ve o q aparece:

Código: Selecionar todos

wmic diskdrive get serialnumber

[Jairo Maia]

Fladimir,

Obtive exatamente o mesmo resultado. Será que dá pra usar isso como serial de fábrica? Estranho é que está muito diferente do que você postou, e no seu caso, está muito parecido com o resultado da função VolSerial(), que é a que uso hoje, mas não é o serial de fábrica.

[fladimir]

Acredito então q esteja correto pois este comando q te passei é da Microsoft pra pegar o Nr Serial.

[]´s

[Jairo Maia]

Valeu Fladimir,

Vou fazer alguns testes oportunamente em outras máquinas de clientes com este exemplo e comparar com o comando que você passou.

Obrigado pela atenção.

[fladimir]

Ok, acredito q vai confirmar o q conversamos.

ficamos no aguardo

[]´s

[Hasse]

Bom dia colegas.

Renovando o assunto.

Encontrei um recurso nativo do windows. Funciona muito bem

run wmic csproduct get vendor, version
run wmic computersystem get model,name,manufacturer,systemtype
run wmic csproduct get name, identifyingnumber
run wmic bios get serialnumber

Interessante observar que "identifyingnumber" e "serialnumber" produzem o mesmo resultado.

MAIS:
Ao digitar digitar wmic /? no modo CMD:
Lista uma penca de informações disponíveis. Acho que chega perto de 100.

[Hasse]

Continuando:

Alguns comandos (ou muitos, não sei) possuem ainda sub-comandos.

Por exemplo:
wmci diskdrive list ?/ > listaDiskDrive.txt && cria uma lista em txt dos sub-comandos.

É interminável......