Mercurial Mercurial > repo > home.lib > hgweb.cgi / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
winactivate.vbs
author Shingo W. Kagami
Sun, 31 Jan 2010 02:58:12 +0900
changeset 3 cce8365a9d50
permissions -rw-r--r--
Add winactivate.vbs.
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))













home.lib: files in $HOME/lib