If WScript.Arguments.Count < 1 Then
    MsgBox("Error: Missing command arguments")
    WScript.Quit
End If

Dim argStr
Set objSWbemServices = GetObject("WinMgmts:Root\Cimv2") 
Set colProcess = objSWbemServices.ExecQuery("Select * From Win32_Process") 
For Each objProcess In colProcess
    If InStr (objProcess.CommandLine, WScript.ScriptName) <> 0 Then
        argStr = Mid(objProcess.CommandLine, InStr(objProcess.CommandLine , WScript.ScriptName) + Len(WScript.ScriptName) + 1)
    End If
Next
cmdStr = Trim(argStr)

CreateObject("Wscript.Shell").Run cmdStr, 0, True