VBSript

[Flash]

boas,

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

Sei que este resulta para descobrir apenas 1:

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,