| bombording |
24-09-2009 21:59 1226775 |
Скрипт создания ссылки, для GPO
Добрый день.
Заранее извиняюсь если данный вопрос уже когда либо был поднят.
Необходим скрипт, который будет создавать на рабочем столе каждого пользователя ссылку на определённый ресурс в интернете. И назначит этой ссылке определённую иконку (к примеру которая лежит на сервере).
спасибо
|
Попробуйте так:
Код:
@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 |
25-09-2009 11:13 1227061 |
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
Так я создавал ярлык для запуска "Консультант+" (была заморочка с рабочим каталогом программы - создавался свой на каждом компьютере). Думаю, для создания ярлыка интернет-ссылки тоже подойдет.
А можно просто копировать готовый ярлык на рабочий стол пользователя.
|
Скрипт создания ярлыка Гарант.
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
|
еще вариант
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 |
26-09-2012 21:16 1995336 |
Хоть в теме нет новых сообщений, но тема для меня интересна сейчас.
Доменная сеть, сервер с консультантом находиться в не домена соответственно при обращении к расшаренной директории с консультантом происходит запрос логина\пароля,
Данный скрип постом подходит для меня
#3 но как можно в него впихнуть
net use \server\ password /USER:server\user-consl
для того что бы сначала выполнялся коннект к серверу (авторизация) а уж потом создавался линк на .exe ? почитал так и не разобрался направьте, только не в поиск |
| HappySmiley |
27-09-2012 13:37 1995571 |
вообщем сделал так
Код:
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
|
Время: 23:38.
© OSzone.net 2001-
