No resumo do erro em seguida
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = disposição (“Computer1”, “Computer2”)
Para cada strComputer nos arrComputers
WScript.Echo
WScript.Echo “==========================================”
Computador de WScript.Echo “: ” & strComputer
WScript.Echo “==========================================”
Ajustar o objWMIService = o GetObject (“winmgmts: \ \” & strComputer & “\ raiz \ CIMV2”)
Ajustar colItems = objWMIService.ExecQuery (“SELECIONAR * de Win32_NetworkAdapter”, “WQL”, _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
Para cada objItem nos colItems
Subtítulo de WScript.Echo “: ” & objItem.Caption
WScript.Echo “MACAddress: ” & objItem.MACAddress
Fabricante de WScript.Echo “: ” & objItem.Manufacturer
Nome de WScript.Echo “: ” & objItem.Name
WScript.Echo
Em seguida
Em seguida
|