mkdo さん、
こんにちは。
フォーラム オペレーターの服部 清次です。
ご質問の件について私の方で情報を探ってみましたところ、「もしかすると参考になるのでは？」 と思える情報が
海の向こうの Q&A サイトに見つかりましたので、参考までに紹介させていただきますね。
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_25095538.html （英語）
上記のスレッドでは、ltlbearand3 さんが2010年1月28日午後7時10分付の回答の中で、
「ユーザー フォルダーを非表示にして、デスクトップにドキュメント フォルダーのみへのショートカットを作成する」 VBScript を紹介されています。
（下記はその抜粋になります。）
Dim objShell, objFolder, objFldrItem
Dim objAppl, objLink, objDesktop
strRegWriteKey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{645FF040-5081-101B-9F08-00AA002F954E}"
strRegWriteValue = 1
objShell.RegWrite strRegWriteKey,strRegWriteValue,"REG_DWORD"
strRegWriteKey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{645FF040-5081-101B-9F08-00AA002F954E}"
strRegWriteValue = 1
objShell.RegWrite strRegWriteKey,strRegWriteValue,"REG_DWORD"
Set objShell = WScript.CreateObject("WScript.Shell")
Set objAppl = CreateObject("Shell.Application")
' Grab the User's Documents Folder
Set objFolder = objAppl.Namespace(&H5&) 'Windows documents folder vista / My documents xp
Set objFldrItem = objFolder.Self
' Create the Desktop Shortcut
objDesktop = objShell.SpecialFolders("Desktop")
Set objLink = objShell.CreateShortcut(objDesktop & "\MyDocuments.lnk")
objLink.TargetPath = objFldrItem.Path
objLink.WindowStyle = 3
objLink.Save
私が実際に試したわけではなく、またもしかすると mkdo さんのご期待に 100% 添えるものではないかもしれませんが、、、
こちらの情報がヒントとして少しでもお役に立てることを願っています。
それでは、また。
________________________________________________________
日本マイクロソフト株式会社 フォーラム オペレーター 服部 清次
