(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%\Главное меню\Программы". В данном случае произойдет привязка к русской версии винды, а я хочу сделать универсальный скрипт, которому будет глубоко фиолетово, какой локализации система. Потому и спрашиваю, как мне подобрать универсальные команды.

Petya V4sechkin · Конфигурация компьютера

UnDetect
Объясню повторно, для особо непонятливых.
Цитирую себя:

Цитата:

Если на T-12 не пашут, придется после первого логона запускать. Дело в том, что на T-12 Explorer еще не запущен, поэтому многих записей в реестре попросту не существует.

Таким образом, когда ты пытаешься получить ключи из HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common Programs, то на T-12 (CMDLINES.TXT) их еще нет. Со всеми вытекающими..

Petya V4sechkin · Конфигурация компьютера

UnDetect
Воспользуйся вариантом номер 6, только запускай его не на T-12, а после первого логона.

UnDetect · Отправлено: **15:04, 19-12-2005** | #14

Цитата:

Воспользуйся вариантом номер 6, только запускай его не на T-12, а после первого логона

Уже все...

Пример скрипта тем, кому оно надо:

Цитата:

Set Shell = WScript.CreateObject("WScript.Shell")

HKCU_CPL = array ("HKCU\Environment\COMMONPROGRAMSLNK","")
NAME = 0
VALUE = 1

HKCU_CPL(VALUE) = Shell.SpecialFolders("AllUsersPrograms")
Shell.RegWrite HKCU_CPL(NAME),HKCU_CPL(VALUE),REG_EXPAND_SZ

Кстати, логическим продолжением данного подхода является и установка софта через Shell.Run ("my_command",0,true)