ADSI scripting template that runs the script against the computer whose name was included as a command-line argument. To run this script, type the name of the script followed by the name of the computer you want the script to run against. For example: my_script.vbs atl-ws-01.

Visual Basic
Edit|Remove
On Error Resume Next

If Wscript.Arguments.Count = 0 Then
    Wscript.Echo "You must enter the computer name when starting this script."
    Wscript.Quit
End If

strComputer = Wscript.Arguments.Item(0)

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

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

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