• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Flash

[VB6] Ver Nº de serie através da rede

2 mensagens neste tópico

boas,

Eu tenho uma pequena rede em casa e gosta de saber se é possível criar um script que descobri-se os numero de serie de todos os meus pcs.

Sei que este resulta só com um:

strComputer = "DESKTOP_1"	
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSMBIOS = objWMIService.ExecQuery _
("SELECT * FROM Win32_SystemEnclosure")
For Each objSMBIOS in colSMBIOS
' Wscript.Echo "Part Number: " & objSMBIOS.PartNumber
Wscript.Echo "Serial Number: " & objSMBIOS.SerialNumber
Wscript.Echo "Asset Tag: " & objSMBIOS.SMBIOSAssetTag
Next

cmpts,

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Agradecia que as regras desta secção fossem lidas antes de colocares as tua dúvidas  ;)


Em relação à tua dúvida, através da rede, penso que não dá para fazeres isso. O que podes fazer é um programa que utilize sockets e depois com esse código envias o número de serie através da rede.

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora