En curriculum vitae del error después
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = arsenal (“Computer1”, “Computer2”)
Para cada strComputer en arrComputers
WScript.Echo
WScript.Echo “==========================================”
Computadora de WScript.Echo “: ” y strComputer
WScript.Echo “==========================================”
Fijar el objWMIService = GetObject (“winmgmts: \ \” y strComputer y “\ raíz \ CIMV2”)
Fijar los colItems = objWMIService.ExecQuery (“SELECCIONAR * de Win32_NetworkAdapter”, “WQL”, _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
Para cada objItem en colItems
Subtítulo de WScript.Echo “: ” y objItem.Caption
WScript.Echo “MACAddress: ” y objItem.MACAddress
Fabricante de WScript.Echo “: ” y objItem.Manufacturer
Nombre de WScript.Echo “: ” y objItem.Name
WScript.Echo
Después
Después
|