こんにちは！ VBScriptの世界へようこそ。
マクロの記録や手作業でのデスクトップ整理から一歩抜け出して、「自分の手でWindows環境を自在にコントロールしたい」と思っているあなたへ。
今回は、業務自動化の第一歩として非常に強力な「WScript.Shellを使ったショートカット自動生成」をマスターしていきましょう。
ここをクリアすれば、VBScriptの基本構造はもちろん、Windowsの裏側で動くオブジェクト操作の感覚がグッと掴めるようになりますよ。
—
1. なぜ「ショートカット自動生成」を学ぶのか？
現場でこんな面倒な作業に直面したことはありませんか？
- 「新しい社内ツールを配布したけれど、全社員のデスクトップに正しいアイコン付きのショートカットを配るのが大変…」
- 「特定のコマンドライン引数や、作業フォルダを指定したショートカットを何十個も手作業で作るなんて無理！」
これらを解決するのが、WSH（Windows Script Host）の心臓部である `WScript.Shell` オブジェクトです。VBScriptからOSへ直接命令を送り、`.lnk` ファイルを意のままに生成・設定できるようになります。
—
2. 全体像を掴む：ショートカット生成の基本コード
まずは、百聞は一見に如かず。デスクトップに「メモ帳（Notepad）」の特殊なショートカットを作成するスクリプトを見てみましょう。
メモ帳を起動しつつ、特定のテキストファイルを引数として最初から開かせる、という実用的な設定にしています。
‘ ==============================================================================
‘ スクリプト名: CreateShortcutSample.vbs
‘ 概要: WScript.Shell を使用してデスクトップに引数付きショートカットを生成する
‘ ==============================================================================
Option Explicit ‘ 宣言を強制し、タイポによるバグを未然に防ぐ（プロの基本！）
Dim shell, desktopPath, shortcutPath, shortcut
‘ 1. WScript.Shell オブジェクトの生成
‘ （OSのシェル環境を操作するためのリモコンを手に入れるイメージです）
Set shell = WScript.CreateObject(“WScript.Shell”)
‘ 2. ユーザーのデスクトップパスを動的に取得
‘ （誰が実行しても確実に「デスクトップ」の絶対パスを取得できます）
desktopPath = shell.SpecialFolders(“Desktop”)
‘ 3. 生成するショートカットファイルのパスを定義（拡張子は必ず .lnk）
shortcutPath = desktopPath & “\高機能メモ帳.lnk”
‘ 4. CreateShortcut メソッドでショートカットオブジェクトを作成
Set shortcut = shell.CreateShortcut(shortcutPath)
‘ — 5. プロパティの設定（ここが腕の見せ所！） —
‘ ① リンク先の本体（実行ファイルのパス）
shortcut.TargetPath = “C:\Windows\notepad.exe”
‘ ② 起動時の引数（メモ帳で最初から開くテキストファイルのパスを指定）
shortcut.Arguments = “C:\Temp\sample.txt”
‘ ③ 作業フォルダ（このフォルダを起点としてプログラムが動作します）
shortcut.WorkingDirectory = “C:\Temp”
‘ ④ ウィンドウの実行スタイル
‘ (1: 通常ウィンドウ, 3: 最大化, 7: 最小化)
shortcut.WindowStyle = 1
‘ ⑤ ホットキー（Ctrl + Alt + N で起動するように割り当て）
shortcut.Hotkey = “CTRL+ALT+N”
‘ ⑥ アイコンの変更（実行ファイル以外のアイコンも指定可能）
‘ ※第2引数はアイコンのインデックス番号（通常は0）
shortcut.IconLocation = “C:\Windows\System32\shell32.dll, 22”
‘ 6. 設定をディスクに書き込む（セーブ処理）
shortcut.Save
‘ 後片付け（オブジェクトの解放）
Set shortcut = Nothing
Set shell = Nothing
WScript.Echo “ショートカットの作成が完了しました！”
—
3. コードの急所を徹底解説！
先輩エンジニアとして、このコードの「美味しいポイント」と「絶対に押さべきポイント」をいくつか解説しておきますね。
① `Option Explicit` はエンジニアの良心
コードの最上部に書いた `Option Explicit`。これ、面倒くさがって消す人がいますが絶対にダメです。
これを書いておくと、変数名のタイポ（スペルミス）があった瞬間にVBScriptがエラーで止めてくれます。「動かない原因が変数名の打ち間違いだった…」という無駄なデバッグ地獄からあなたを救ってくれますよ。
② `SpecialFolders` で環境に依存しない
コード内でデスクトップのパスを指定する際、`C:\Users\Yamada\Desktop` のようにハードコーディング（直接書き込み）してはいけません。PCのユーザー名が人によって異なるからです。
`shell.SpecialFolders(“Desktop”)` を使えば、現在ログインしているユーザーのデスクトップパスを自動で正確に返してくれます。これはスタートメニュー（`StartMenu`）やスタートアップ（`Startup`）を指定する際にも応用できる超重要テクニックです。
③ 最後に必ず `.Save` を呼ぶ
`CreateShortcut` で取得したオブジェクトに対して、あれこれプロパティを設定しても、最後の `shortcut.Save` を実行するまではメモリ上にあるだけでファイルとして保存されません。
「設定したのにショートカットができない！」という時の原因の8割はこれです。忘れないように注意しましょう。
—
4. よくあるエラーと「ハマりどころ」
VBScriptを書き始めると、誰もが一度は次のような壁にぶつかります。あらかじめ知っておけば怖くありません。
罠1: パスの中にスペースが含まれているときの挙動
TargetPathやArgumentsにスペースが含まれるパス（例: `C:\Program Files\App\app.exe`）を指定する場合、VBScript内ではダブルクォーテーションを適切にエスケープするか、全体を正しく囲む必要があります。
基本的には、パス文字列の中にダブルクォーテーション `”` を含める時は `””` と重ねることで表現できます。
‘ パスにスペースが含まれる場合の例
shortcut.TargetPath = “””C:\Program Files\MyTool\tool.exe”””
罠2: 権限不足による拒絶（特にスタートアップや共通デスクトップ）
個人のデスクトップ（`Desktop`）やスタートアップなら問題ありませんが、全ユーザー共通のデスクトップ（`AllUsersDesktop` など）に書き込もうとすると、管理者権限（UAC昇格）がないエラーで弾かれます。
全社展開用のスクリプトを書く際は、実行ユーザーの権限に合わせたフォルダ選択が鉄則です。
—
5. おわりに：ここをクリアすれば、VBScriptの基本はバッチリ！
お疲れ様でした！
ここまで理解できれば、`WScript.Shell` を使ったOSの操作、オブジェクトの生成からメソッド・プロパティの操作、そして `.Save` による永続化という、VBScriptにおけるオブジェクト指向的なアプローチの基本形を完全にマスターしたことになります。
「ファイルをコピーする」「レジストリをいじる」「アプリをサイレントインストールする」といった他の自動化タスクも、基本の考え方はまったく同じです。
このスクリプトをベースに、ぜひあなたの業務を楽にする自動化ツールを組んでみてくださいね。
ここをクリアしたあなたなら、もう立派な自動化エンジニアの仲間入りです。応援しています！
