На резюме ошибки затем
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = блок («Computer1», «Computer2»)
Для каждого strComputer в arrComputers
WScript.Echo
WScript.Echo «==========================================»
Компьютер WScript.Echo «: » & strComputer
WScript.Echo «==========================================»
Установите objWMIService = GetObject («winmgmts: \ \» & strComputer & «\ корень \ CIMV2»)
Установите colItems = objWMIService.ExecQuery («ВЫБЕРИТЕ * ОТ Win32_NetworkAdapter», «WQL», _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
Для каждого objItem в colItems
Титр WScript.Echo «: » & objItem.Caption
WScript.Echo «MACAddress: » & objItem.MACAddress
Изготовление WScript.Echo «: » & objItem.Manufacturer
Имя WScript.Echo «: » & objItem.Name
WScript.Echo
Затем
Затем
|