Shingo@3: If WScript.Arguments.Count <> 1 then
Shingo@3:    WScript.quit
Shingo@3: End If
Shingo@3: 
Shingo@3: Dim objWsh
Shingo@3: Set objWsh = WScript.CreateObject("WScript.Shell")
Shingo@3: objWsh.AppActivate(WScript.Arguments.item(0))