winactivate.vbs
author Shingo W. Kagami
Sun, 31 Jan 2010 02:58:12 +0900
changeset 3 cce8365a9d50
permissions -rw-r--r--
Add winactivate.vbs.
     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))