Каталог решений - Запускатель рабочей среды

Часто бывает так, что для работы над проектом необходимо бывает открыть несколько разных приложений. Каждый день запускать это все надоедает. Чтобы не делать этого вручную — можно написать скрипт на vbs, который это делает автоматически.

Пример подобного скрипта:

Dim iPause
Dim s1cPath
Dim oWshell

iPause = 3000
s1cExe = «C:\Program Files\1Cv77\BIN\1CV7s.exe»
s1cBase = «/D»»D:\1cbases\MyBase»»»
s1cLogin = «/Nmylogin /Pmypass»

Set oWshell = CreateObject(«WScript.Shell»)

oWshell.Run «D:\Tools\FreeCommander\FreeCommander.exe»
Wscript.Sleep(iPause)
oWshell.Run «D:\Tools\UltraExplorer\UltraExplorer.exe»
Wscript.Sleep(iPause)
oWshell.Run «»»» & s1cExe & «»» CONFIG » & » » & s1cBase & » » & s1cLogin, 1
Wscript.Sleep(iPause)
oWshell.Run «»»» & s1cExe & «»» ENTERPRISE » & » » & s1cBase & » » & s1cLogin, 1, False
Wscript.Sleep(5*iPause)
oWshell.Run «»»D:\Tasks\MyTask1\Docs\MyTask1Documentation.odp»»»

Ярлык со ссылкой на скрипт целесообразно поместить на рабочий стол, тогда один щелчок мыши избавит от поиска в менюшках, наборов паролей и т.д.