1
If WScript.Arguments.Count <> 1 then
2
WScript.quit
3
End If
4
5
Dim objWsh
6
Set objWsh = WScript.CreateObject("WScript.Shell")
7
objWsh.AppActivate(WScript.Arguments.item(0))