Na Błąd Życiorys Następnie
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Szyk ("Computer1", "Computer2")
Dla ArrComputers strComputer W arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Komputer: " & strComputer
WScript.Echo "=========================================="
Ustalony objWMIService = GetObject ("winmgmts: \ \" & strComputer & "\ korzeń \ CIMV2")
Ustalony colItems = objWMIService.ExecQuery ("WYBIÓRKA * OD Win32_NetworkAdapter", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
Dla ColItems objItem W colItems
WScript.Echo "Podpis: " & objItem.Caption
WScript.Echo "MACAddress: " & objItem.MACAddress
WScript.Echo "Wytwórca: " & objItem.Manufacturer
WScript.Echo "Imię: " & objItem.Name
WScript.Echo
Następnie
Następnie
|