1)подключение шареного диска
2)копирование ярлыков с шареной папки на рабочий стол(2ярлыка)
3)копирование папки с шары на компьютер и запускание *.exe
4)запуск мастера настройки принтеров
пробовал решить задачу путем написания батника но к сожаление батник не вариант так как не поддерживает некоторые команды.посоветовали vbs но нету опыта работы.нашел код создания ярлыка но не понял как сделать что бы создавалось два ярлыка.
- Код: Выделить всё
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim MyShortcut, MyDesktop, DesktopPath
' Читаем путь к Рабочему столу
DesktopPath = WSHShell.SpecialFolders("Desktop")
' Создаем ярлык на Рабочем столе
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & _
"\ярлык.lnk")
' Задаем свойства объекта-ярлыка и сохраняем их
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings _
("\\nt\Common\subsidy\subsidy2000.exe")
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings _
("\\nt\common\subsidy\")
MyShortcut.WindowStyle = 4
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings _
("\\nt\common\subsidy\subsidy2000.exe, 0")
MyShortcut.Save
