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