[SRC PLSQL]Sub Макрос1()
'

On Error Resume Next
arrComputers = Array("Computer1", "Computer2", "Computer3")
For Each strComputer In arrComputers
    Wscript.Echo
    Wscript.Echo "===================================="
    Wscript.Echo "Computer: " & strComputer
    Wscript.Echo "===================================="

    Set objWMIService = GetObject("winmgmts:\\" & strComputers & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery( _
        "SELECT * FROM Win32_PnPEntity", , 48)
    For Each objItem In colItems
        Wscript.Echo "-----------------------------------"
        Wscript.Echo "Win32_PnPEntity instance"
        Wscript.Echo "-----------------------------------"
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Status: " & objItem.Status
        MsgBox objItem.Name & " " & objItem.Status 'странно ни разу не отобразился
    Next
Next

MsgBox "End"

End Sub

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

arrComputers = Array("Computer1", "Computer2", "Computer3")