CMD/BAT

NiOl · Отправлено: **23:18, 24-09-2009** | #2

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

Код:

@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 · Отправлено: **11:13, 25-09-2009** | #3

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 · Отправлено: **12:05, 13-04-2011** | #4

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

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 · Отправлено: **16:39, 14-04-2011** | #5

еще вариант

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 · Отправлено: **21:16, 26-09-2012** | #6

Хоть в теме нет новых сообщений, но тема для меня интересна сейчас.
Доменная сеть, сервер с консультантом находиться в не домена соответственно при обращении к расшаренной директории с консультантом происходит запрос логина\пароля,
Данный скрип постом подходит для меня
#3 но как можно в него впихнуть

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

HappySmiley · Отправлено: **13:37, 27-09-2012** | #7

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

Код:

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