Sul riassunto di errore dopo
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = allineamento (“Computer1„, “Computer2„)
Per ogni strComputer in arrComputers
WScript.Echo
WScript.Echo “==========================================„
Calcolatore di WScript.Echo “: „ & strComputer
WScript.Echo “==========================================„
Regolare il objWMIService = GetObject (“winmgmts: \ \„ & strComputer & “\ radice \ CIMV2„)
Regolare i colItems = objWMIService.ExecQuery (“SELEZIONARE * A PARTIRE da Win32_NetworkAdapter„, “WQL„, _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
Per ogni objItem nei colItems
Titolo di WScript.Echo “: „ & objItem.Caption
WScript.Echo “MACAddress: „ & objItem.MACAddress
Fornitore di WScript.Echo “: „ & objItem.Manufacturer
Nome di WScript.Echo “: „ & objItem.Name
WScript.Echo
Dopo
Dopo
|