winactivate.vbs
author Shingo W. Kagami
Mon, 13 Sep 2010 03:54:21 +0900
changeset 4 8b90d57759c9
permissions -rw-r--r--
Add ppt2eps tool set.
Shingo@3
     1
If WScript.Arguments.Count <> 1 then
Shingo@3
     2
   WScript.quit
Shingo@3
     3
End If
Shingo@3
     4
Shingo@3
     5
Dim objWsh
Shingo@3
     6
Set objWsh = WScript.CreateObject("WScript.Shell")
Shingo@3
     7
objWsh.AppActivate(WScript.Arguments.item(0))