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.
     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))