接続していないサーバのショートカットを作成する方法。PCキッティング。

キッティング作業で、共有フォルダへのショートカットをデスクトップに作成する場面があるかと思います。

その際、サーバや共有フォルダ等に接続できない状態でショートカットを作成しようとするとエラーで作成できません。
ショートカットを作成するスクリプトであれば、問題なく作成できます。

今回は、ショートカットを作成、アイコン変更のスクリプトをVBSで組んでいきます。

ショートカットを作成するVBSを作成

createShortcut.vbs

というファイル名で作成し、
以下を入力します。

Set objShell = WScript.CreateObject("WScript.Shell")
desktopPath = objShell.SpecialFolders("Desktop")
name = desktopPath + "\共有フォルダ.lnk"
Set shortCut = objShell.CreateShortcut(name)
shortCut.TargetPath = "\\SHARE_FOLDER\"
shortCut.IconLocation = "%SystemRoot%\System32\SHELL32.dll,4"
shortCut.Save

今回は、デスクトップにショートカットを作成しました。
３行目では、ショートカット名にしたい名前とデスクトップへのパスを追加します。

５行目は、実体（サーバ）のパスです。
６行目はアイコンを変更しています。

SHELL32.dllの４番は、通常のフォルダーアイコンです。
下記サイトに、各アイコンの番号が載っているので、参考にしてみてください。