Clipper On Line • Ver Tópico - Leitura do Serial de Fabrica do HD x[H]arbour

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

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

Moderador: Moderadores

 

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

Mensagempor Jairo Maia » 17 Fev 2015 22:01

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?
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

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

Mensagempor fladimir » 18 Fev 2015 01:00

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.

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


[]´s
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

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

Mensagempor bencz » 18 Fev 2015 07:22

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

bencz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 517
Data de registro: 28 Abr 2012 17:36
Curtiu: 6 vezes
Mens.Curtidas: 34 vezes

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

Mensagempor ANDRIL » 18 Fev 2015 07:54

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+
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Avatar de usuário

ANDRIL
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1270
Data de registro: 06 Jul 2004 00:44
Curtiu: 12 vezes
Mens.Curtidas: 46 vezes

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

Mensagempor fladimir » 18 Fev 2015 08:15

Vlw pessoal...

A dica do ANDRIL deu certo.

obrigado

[]´s
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

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

Mensagempor Jairo Maia » 28 Fev 2015 10:44

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:
#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
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

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

Mensagempor fladimir » 28 Fev 2015 18:53

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
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

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

Mensagempor Jairo Maia » 28 Fev 2015 20:10

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.
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

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

Mensagempor fladimir » 28 Fev 2015 21:54

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:

wmic diskdrive get serialnumber
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

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

Mensagempor Jairo Maia » 28 Fev 2015 23:47

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.
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

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

Mensagempor fladimir » 01 Mar 2015 00:43

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

[]´s
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

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

Mensagempor Jairo Maia » 01 Mar 2015 10:01

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.
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

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

Mensagempor fladimir » 01 Mar 2015 11:03

Ok, acredito q vai confirmar o q conversamos.

ficamos no aguardo

[]´s
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

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

Mensagempor Hasse » 04 Nov 2017 12:03

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
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar de usuário

Hasse
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 815
Data de registro: 19 Out 2004 10:30
Cidade/Estado: Jaraguá do Sul - SC
Curtiu: 0 vez
Mens.Curtidas: 24 vezes

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

Mensagempor Hasse » 04 Nov 2017 12:47

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......
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar de usuário

Hasse
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 815
Data de registro: 19 Out 2004 10:30
Cidade/Estado: Jaraguá do Sul - SC
Curtiu: 0 vez
Mens.Curtidas: 24 vezes

Anterior



Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 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