Black_Lung
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFolder = objShell.SpecialFolders("Desktop")
on error resume next
if fso.GetFile(strDesktopFolder&"\Техэксперт.lnk") is nothing then
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & _
"\Техэксперт.lnk")
objShortCut.TargetPath = chr(34) & "\\Vgpserv\techexpert_client\texclient.exe" & chr(34)
ObjShortCut.IconLocation = "\\Vgpserv\techexpert_client\texclient.exe, 0"
objShortCut.Description = "Техэксперт"
objShortCut.Save
end if
|
