If WScript.Arguments.Count <> 1 then

    WScript.quit

 End If

 Dim objWsh

 Set objWsh = WScript.CreateObject("WScript.Shell")

 objWsh.AppActivate(WScript.Arguments.item(0))