Задача:
При подключении к сеансу удаленного рабочего стола (к терминальной сессии) необходимо на удаленном рабочем столе создавать ярлык, указывающий на папку обмена на локальном диске компьютера, с которого устанавливается подключение.
Иными словами - имеется компьютер PC01. На нем есть (или пока еще не создана) папка обмена Exchange. При подключении к серверу терминалов TS01, на рабочем столе пользователя, необходимо создавать ярлык, указывающий на эту папку.
Решение:
Справиться с этой задачей нам поможет скрипт на Visual Basic Shell, который нужно поставить в автозагрузку для всех пользователей на сервере терминалов.
Скрипт создает (если она еще не создана) папку обмена Exchange на локальном компьютере, а затем - ярлык, указывающий на эту папку, но уже на рабочем столе сервера терминалов:
Код скрипта:
Код: Выделить всё
ON ERROR RESUME NEXT
FolderPath = "\\tsclient\c\Exchange"
Set wshNetwork = WScript.CreateObject( "WScript.Network")
Set objShell = CreateObject("WScript.Shell")
DesktopPath = objShell.SpecialFolders("Desktop")
Set FSO=CreateObject("Scripting.FileSystemObject")
do while WSHNetwork.username = ""
WScript.Sleep 10000
loop
FSO.CreateFolder(FolderPath)
Set objLink = objShell.CreateShortcut(DesktopPath & "\Exchange.lnk")
objLink.Description = "Папка обмена"
objLink.WorkingDirectory = (DesktopPath & "\")
objLink.TargetPath = FolderPath
objLink.Save
Архив со скриптом можно скачать отсюда:
