質問: WindowsServer2003で以下の事が実行できるか教えて下さい。 デスクトップのショートカットを実行すると、特定のフォルダのプロパティをダイレクトに表示する 開く操作にこれ以上の手順はかけられません。極力シンプルな方法がベストです。 キーボード操作を組み合わせるのもNGです。マウスだけの操作でお願いします。 ショートカットを作成するなどの準備作業はかまいません。 アプリケーションのインストールもNGです(Microsoft製はOK)。 検索用:エクスプローラ Explorer プロパティ
回答: 下記のコードをメモ帳などに貼り付けて、(任意の名前).vbsでデスクトップに保存してください。 保存したファイルをダブルクリックするとプロパティが表示されます。 ※C:\WINDOWSは例です。任意のフォルダに書き換えてください。 ``` Const foldername="C:\WINDOWS" Set Win = WScript.CreateObject("Shell.Application") Set wShell=CreateObject("WScript.Shell") Win.NameSpace(foldername).Items.Item.InvokeVerb "プロパティ(&R)" Do While wShell.AppActivate("のプロパティ") WScript.Sleep 100 Loop ``` WinXP SP2で動作確認しています。恐らくWindowsServer2003でも同様に動作すると思われますが 検証はできていませんのでご了承ください。