På felmeritförteckning därefter
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = samling (”Computer1”, ”Computer2”)
För varje strComputer i arrComputers
WScript.Echo
WScript.Echo ”==========================================”,
WScript.Echo-”dator: ” & strComputer
WScript.Echo ”==========================================”,
Fastställd objWMIService = GetObject (”winmgmts: \ \” & strComputer & ”\ rotar \ CIMV2”)
Fastställda colItems = objWMIService.ExecQuery (”VÄLJ * FRÅN Win32_NetworkAdapter”, ”WQL”, _,
wbemFlagReturnImmediately + wbemFlagForwardOnly)
För varje objItem i colItems
WScript.Echo ”förser med text: ” & objItem.Caption
WScript.Echo ”MACAddress: ” & objItem.MACAddress
WScript.Echo-”producent: ” & objItem.Manufacturer
WScript.Echo ”namnger: ” & objItem.Name
WScript.Echo
Därefter
Därefter
|