サーバ名はserver1。

usersフォルダを共有し、その下にログオンユーザ名でフォルダが存在。

Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objShell = WScript.CreateObject(“WScript.Shell”)
strDesktop = objShell.SpecialFolders(“Desktop”)
strFileName = strDesktop + “public_html.lnk”
Set objShortCut = objShell.CreateShortcut(strFileName)
username = objShell.ExpandEnvironmentStrings(“%USERNAME%”)

If objFSO.FolderExists(“\server1users” & username) Then
objShortCut.TargetPath = “\server1users%USERNAME%”
objShortCut.Save
WScript.Echo strFileName & “にショートカットを作成しました。”
Else
Wscript.Echo “フォルダが存在しません。”
End If

動作：

\server1users%username%のフォルダの存在をチェックし、フォルダがあれば、デスクトップにpublic_htmlという名称で、当該フォルダへのショートカットを作成します。無ければ、「フォルダが存在しません。」というメッセージが表示されます。

利用シナリオ：

ログオンスクリプトで実行します。