author | Shingo W. Kagami |
Sun, 31 Jan 2010 02:58:12 +0900 | |
changeset 3 | cce8365a9d50 |
parent 2 | 3473a6fcda66 |
child 4 | 8b90d57759c9 |
winactivate.vbs | file | annotate | diff | comparison | revisions |
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/winactivate.vbs Sun Jan 31 02:58:12 2010 +0900 1.3 @@ -0,0 +1,7 @@ 1.4 +If WScript.Arguments.Count <> 1 then 1.5 + WScript.quit 1.6 +End If 1.7 + 1.8 +Dim objWsh 1.9 +Set objWsh = WScript.CreateObject("WScript.Shell") 1.10 +objWsh.AppActivate(WScript.Arguments.item(0))