ADSI scripting template that runs the script against one more more computers whose names are entered in an input box. When entering multiple computer names in the input box, names should be separated using blanks spaces. For example: atl-ws-01 atl-ws-02 atl-ws-03. This script pings the relevant computer before trying to make a connection.

Visual Basic
Edit|Remove
On Error Resume Next

Set objNetwork = CreateObject("Wscript.Network")
strLocalComputer = objNetwork.ComputerName

strComputers = InputBox _
    ("Please enter the names of the computers you want to connect to:", _
        "Enter Computer Name", strLocalComputer)

If strComputers = "" Then
    Wscript.Quit
End If

arrComputers = Split(strComputers, " ")

For Each strComputer in arrComputers

    Set objShell = CreateObject("WScript.Shell")
    strCommand = "%comspec% /c ping -n 3 -w 1000 " & strComputer & ""
    Set objExecObject = objShell.Exec(strCommand)

    Do While Not objExecObject.StdOut.AtEndOfStream
        strText = objExecObject.StdOut.ReadAll()
        If Instr(strText, "Reply") > 0 Then

            ' =====================================================================
            ' Insert your code here
            ' =====================================================================

            Set objComputer = GetObject("WinNT://" & strComputer & "")
            objComputer.Filter = Array("User")
            For Each objUser in objComputer
                Wscript.Echo objUser.Name
            Next

            ' =====================================================================
            ' End
            ' =====================================================================

        Else
            Wscript.Echo strComputer & " could not be reached."
        End If
    Loop

Next