WSHを使ってProgramsフォルダを開くサンプル

Windows 8ではインストール済みの通常のWindowsアプリケーションを起動するために、いちいちMetro UIの「全てのアプリを表示」から実行しなければならないので、非常に使い勝手が悪い。改善のためにWSHスクリプトを書いてみた。

Programsフォルダが取得できるかどうかは後ほど確認する予定

<package>
<job id="main">
 <script language="VBScript">
 Option Explicit
 dim ws
 dim strPrograms
 dim errNo

 errNo = 0

 set ws = WScript.CreateObject("WScript.Shell")
 strPrograms = ws.SpecialFolders("Programs")

 if strPrograms <> "" then
   ws.Run("explorer " & strPrograms)
 else
   errNo = 1
 end if

 WScript.Quit(errNo)
 </script>
</job>
</package>