1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

VBSript

Discussão em 'Programação' iniciada por Flash, 17 de Outubro de 2007. (Respostas: 0; Visualizações: 398)

  1. Flash

    Flash Power Member

    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,
     

Partilhar esta Página