Const SW_NORMAL = 1
strComputer = "ams-cl2"
strCommand = "WhatsUp.exe"
 Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}" _
     & "!\\" & strComputer & "\root\cimv2")

Set objStartup = objWMIService.Get("Win32ZZZProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = HIDDEN_WINDOW

' Create Notepad process
Set objProcess = objWMIService.Get("Win32_Process")
intReturn = objProcess.Create _
    (strCommand, Null, objConfig, intProcessID)
If intReturn <> 0 Then
    Wscript.Echo "Process could not be created." & _
        vbNewLine & "Command line: " & strCommand & _
        vbNewLine & "Return value: " & intReturn
Else
    Wscript.Echo "Process created." & _
        vbNewLine & "Command line: " & strCommand & _
        vbNewLine & "Process ID: " & intProcessID
End If