AJUDA - PEGAR O NUMERO DA PLACA MAE PELO VB6

GUILHERMEDEFRAN 29/07/2010 18:11:51
#348835
Boa tarde

Trabalho como desenvolvedor numa software house e gostaria de uma ajuda.
Estou melhorando a licença do nosso sistema que já tinha o MAC.
Quero adicionar ainda mais:
- HD Fisico
- Placa Mãe
- Processador
- Sistema Operacional

Eu consegui todos, mas o que falta pra mim é a placa mãe
Utilizando o WMI, o que me devolve é [Ô]MSDDDDDDDDDDDDDDDDDDDDDDDDD[Ô]
Gostaria de Saber se alguém já passou pelo mesmo problema ou tem como eu realizar a busca sem o WMI.
E também quero confirmar a informação se o WMI Funciona para Windows Vista e Seven

Obrigado,
Guilherme
MICROSCHEME 29/07/2010 18:24:14
#348837

tenta a dica desse link, pode ser que seja o que precisa:

http://www.vbweb.com.br/dicas_visual.asp?Codigo=2526&Classificacao=13

. . .
MARCELO.TREZE 29/07/2010 19:42:33
#348847
tente este

On Error Resume Next

Dim dcSet As SWbemObjectSet
Dim dc As SWbemObject

Set dcSet = GetObject([Ô]winmgmts:{impersonationLevel=impersonate}[Ô]). _
                          InstancesOf([Ô]Win32_BaseBoard[Ô])

For Each dc In dcSet
    Debug.Print [Ô]Caption: [Ô] & dc.Caption
    Debug.Print [Ô]ConfigOptions: [Ô] & dc.ConfigOptions
    Debug.Print [Ô]CreationClassName: [Ô] & dc.CreationClassName
    Debug.Print [Ô]Depth: [Ô] & dc.Depth
    Debug.Print [Ô]Description: [Ô] & dc.Description
    Debug.Print [Ô]Height: [Ô] & dc.Height
    Debug.Print [Ô]HostingBoard: [Ô] & dc.HostingBoard
    Debug.Print [Ô]HotSwappable: [Ô] & dc.HotSwappable
    Debug.Print [Ô]InstallDate: [Ô] & dc.InstallDate
    Debug.Print [Ô]Manufacturer: [Ô] & dc.Manufacturer
    Debug.Print [Ô]Model: [Ô] & dc.Model
    Debug.Print [Ô]Name: [Ô] & dc.Name
    Debug.Print [Ô]OtherIdentifyingInfo: [Ô] & dc.OtherIdentifyingInfo
    Debug.Print [Ô]PartNumber: [Ô] & dc.PartNumber
    Debug.Print [Ô]PoweredOn: [Ô] & dc.PoweredOn
    Debug.Print [Ô]Product: [Ô] & dc.Product
    Debug.Print [Ô]Removable: [Ô] & dc.Removable
    Debug.Print [Ô]Replaceable: [Ô] & dc.Replaceable
    Debug.Print [Ô]RequirementsDescription: [Ô] & dc.RequirementsDescription
    Debug.Print [Ô]RequiresDaughterBoard: [Ô] & dc.RequiresDaughterBoard
    Debug.Print [Ô]SerialNumber: [Ô] & dc.SerialNumber
    Debug.Print [Ô]SKU: [Ô] & dc.SKU
    Debug.Print [Ô]SlotLayout: [Ô] & dc.SlotLayout
    Debug.Print [Ô]SpecialRequirements: [Ô] & dc.SpecialRequirements
    Debug.Print [Ô]Status: [Ô] & dc.Status
    Debug.Print [Ô]Tag: [Ô] & dc.Tag
    Debug.Print [Ô]Version: [Ô] & dc.Version
    Debug.Print [Ô]Weight: [Ô] & dc.Weight
    Debug.Print [Ô]Width: [Ô] & dc.Width
Next



Observação: Nem todos os objetos retornam resultados
MARCELO.TREZE 29/07/2010 23:04:48
#348860
Desculpe colega esta é a referencia

Project / References...Microsoft WMI Scripting V1.2 Library
GUILHERMEDEFRAN 30/07/2010 08:06:48
#348865
Marcelo-Treze

Isso me devolve o numero serial como [Ô]MSDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD[Ô]

Microscheme, isso me parece o numero da placa de rede, já a tenho
MSMJUDAS 30/07/2010 08:30:13
#348869
Testei aqui e apareceu:

SerialNumber: MB-1234567890


Número meio fajuto
ROBIU 30/07/2010 08:36:49
#348874
Tudo que você precisa saber do pc Veja o projeto que postei neste link
GUILHERMEDEFRAN 30/07/2010 09:16:50
#348881
Roberto

Não consegui o numero da placa mãe utilizando esse programa...
MARCELO.TREZE 30/07/2010 12:23:35
#348907
esqueci masi uma coisa qual o sistema operacional que estão utilizando, parece que o código acima só fucniona com XP e 2000
ROBIU 30/07/2010 12:57:08
#348912
Veja outros Códigos aqui

Eu testei aqui e não aparece para todas as placas. Pode ser que a plana não tenha realmente a informação. Veja na foto os dados da placa do servidor.
Página 1 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar