Скрипт создания ссылки, для GPO

[bombording]

Добрый день.

Заранее извиняюсь если данный вопрос уже когда либо был поднят.

Необходим скрипт, который будет создавать на рабочем столе каждого пользователя ссылку на определённый ресурс в интернете. И назначит этой ссылке определённую иконку (к примеру которая лежит на сервере).

спасибо

[NiOl]

Попробуйте так:

@Echo Off
Echo [InternetShortcut]>%1
Echo URL=%2>>%1
IconIndex=%4>>%1
IconFile=%3>>%1

Вызываем следубщим образом:
CreateLink.bat "%USERPROFILE%\Desktop\StartHere.url" http://forum.oszone.net %SystemRoot%\system32\SHELL32.dll 221

где:
первый параметр - имя файла ссылки с полным путем до рабочего стола (с учетом локализации рус/англ)
второй - сама ссылка с http://
третий - имя файла с иконкой
четвертый - номер иконки в файле.

[avolkov2009]

Create Shortcut.vbs
Set objFSO = CreateObject("Scripting.FileSystemObject")
strTemp = "c:\cons.data\"
If objFSO.FolderExists(strTemp) Then
Else
objFSO.CreateFolder(strTemp)
End If
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oMyShortCut= WshShell.CreateShortcut(strDesktop & "\Консультант-Плюс.lnk")
oMyShortCut.TargetPath = "\\1S_SERVER\BelCons\cons.exe"
oMyShortCut.WorkingDirectory = strTemp
oMyShortCut.Description = "Запустить Консультант-Плюс"
oMyShortCut.Save

Так я создавал ярлык для запуска "Консультант+" (была заморочка с рабочим каталогом программы - создавался свой на каждом компьютере). Думаю, для создания ярлыка интернет-ссылки тоже подойдет.
А можно просто копировать готовый ярлык на рабочий стол пользователя.

[Diky]

Скрипт создания ярлыка Гарант.

Shortcut.vbs


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
strTemp = "\\server\Garant-Server\"
strDesktop = WshShell.SpecialFolders("Desktop")
Set oMyShortCut= WshShell.CreateShortcut(strDesktop & "\ГАРАНТ Платформа F1 ЭКСПЕРТ.lnk")
oMyShortCut.TargetPath = "\\server\Garant-Server\garant.exe"
oMyShortCut.WorkingDirectory = strTemp
oMyShortCut.Description = "Запустить Гарант"
oMyShortCut.Save

[zero55]

еще вариант

Set WshShell = Wscript.CreateObject("Wscript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "\\SERVER_NAME\test\test.lnk" , strDesktop+"\test.lnk", TRUE

[HappySmiley]

Хоть в теме нет новых сообщений, но тема для меня интересна сейчас.
Доменная сеть, сервер с консультантом находиться в не домена соответственно при обращении к расшаренной директории с консультантом происходит запрос логина\пароля,
Данный скрип постом подходит для меня
#3 (http://forum.oszone.net/post-1227061-3.html) но как можно в него впихнуть

net use \server\ password /USER:server\user-consl
для того что бы сначала выполнялся коннект к серверу (авторизация) а уж потом создавался линк на .exe ? почитал так и не разобрался направьте, только не в поиск

[HappySmiley]

вообщем сделал так


Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set wn = WScript.CreateObject("WScript.Network")
Set ap = CreateObject("Shell.Application")
if fs.DriveExists("Y:") then wn.RemoveNetworkDrive "Y:", true, true
wn.MapNetworkDrive "Y:", "\\server\veda3000\consultant", false, "user", "user"

Set objFSO = CreateObject("Scripting.FileSystemObject")
strTemp = "D:\cons.data\"
If objFSO.FolderExists(strTemp) Then
Else
objFSO.CreateFolder(strTemp)
End If
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oMyShortCut= WshShell.CreateShortcut(strDesktop & "\Консультант-Плюс.lnk")
oMyShortCut.TargetPath = "\\server\veda3000\consultant\cons.exe"
oMyShortCut.WorkingDirectory = strTemp
oMyShortCut.Description = "Запустить Консультант-Плюс"
oMyShortCut.Save