(solved) RunOnceEx и WHS

UnDetect · Отправлено: **23:33, 18-12-2005** | #11

Цитата:

Вообще-то варианты номер 3 и 4 должны работать по-любому, даже на T-12.
Если ты так любишь VBS, то вот еще парочка:

Цитата:

Код:
Dim Sh
Set Sh = WScript.CreateObject("WScript.Shell")
Sh.RegWrite "HKCU\Environment\COMMONPROGRAMSLNK", "%ALLUSERSPROFILE%\Главное меню\Программы", "REG_EXPAND_SZ"

Цитата:

Код:
Dim Sh, Env
Set Sh = WScript.CreateObject("WScript.Shell")
Set Env = Sh.Environment("User")
Env("COMMONPROGRAMSLNK") = "%ALLUSERSPROFILE%\Главное меню\Программы"

Второй вариант более правильный. Можно заменить Environment("User") на Environment("System"), тогда это будет системная переменная (живет по адресу HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment).
Для английской винды заменить "Главное меню\Программы" на "Start Menu\Programs".

Ну не хочу я привязываться к "%ALLUSERSPROFILE%\Главное меню\Программы". В данном случае произойдет привязка к русской версии винды, а я хочу сделать универсальный скрипт, которому будет глубоко фиолетово, какой локализации система. Потому и спрашиваю, как мне подобрать универсальные команды.