Home > 仕事 > ネットワーク上のフォルダの有無を確認してショートカットを作成する

ネットワーク上のフォルダの有無を確認してショートカットを作成する

2007-07-19 (木) 18:52
IT | script | Windows

サーバ名は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(“\\server1\users\” & username) Then
objShortCut.TargetPath = “\\server1\users\%USERNAME%”
objShortCut.Save
WScript.Echo strFileName & “にショートカットを作成しました。”
Else
Wscript.Echo “フォルダが存在しません。”
End If

動作：

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

利用シナリオ：

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