デスクトップではなく「%userprofile%\ appdata \ Roaming \ Microsoft \ Windows \ NetworkShortcuts」へのショートカットを保存したいことを除いて、私が望むことをほぼ実行するスクリプトがあります。助けてくれてありがとう!
Set objShell=Wscript.CreateObject("Wscript.shell")
strDesktopFolder=objShell.SpecialFolders("Desktop") & _
"\"
Set objShortcut=objShell.CreateShortcut(strDesktopFolder & _
"Company Files.lnk")
objShortCut.TargetPath = "\\server\Folder"
objShortCut.Description = "Company Files Description"
objShortCut.Save