WMI scripting template that pops up an input box and prompts you to enter the name of the computer you want to run the script against.

Visual Basic
Edit|Remove
On Error Resume Next

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

strComputer = InputBox _
    ("Please enter the name of the computer you want to connect to:", _
        "Enter Computer Name", strLocalComputer)

If strComputer = "" Then
    Wscript.Quit
End If

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

Set objWMIService = GetObject _
    ("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * From Win32_OperatingSystem")
For Each objItem in ColItems
    Wscript.Echo strComputer & ": " & objItem.Caption
Next

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