Op Fout hervat daarna
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Serie („Computer1“, „Computer2“)
Voor Elke strComputer in arrComputers
WScript.Echo
WScript.Echo „==========================================“
WScript.Echo „Computer: “ & strComputer
WScript.Echo „==========================================“
Vastgestelde objWMIService = GetObject („winmgmts: \ \“ & strComputer & „\ wortel \ CIMV2“)
Reeks colItems = objWMIService.ExecQuery („SELECTEER * UIT Win32_NetworkAdapter“, „WQL“, _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
Voor Elke objItem in colItems
WScript.Echo „Titel: “ & objItem.Caption
WScript.Echo „MACAddress: “ & objItem.MACAddress
WScript.Echo „Fabrikant: “ & objItem.Manufacturer
WScript.Echo „Naam: “ & objItem.Name
WScript.Echo
Daarna
Daarna
|