Автозагрузка программы

[Source]

В проге для автозагрузки прописано:

Код: Выделить всё

Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\MyPrg", Path

при смене учётной записи пользователя вылетает ошибка - Неверный корень "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\MyPrg"
почему?

[BV]

А если третьим параметром все-таки дописать ', "REG_SZ"'?

[Source]

всё та же ошибка:
Run-time error '-2147024891 (80070005)':
Неверная ссылка на корень в разделе реестра "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\MyPrg
программа запускается под админом, переход на юзера

[BV]

Быть может, у тебя Vista? Там ключ HKLM по умолчанию недоступен.

Вероятное решение:

When you call the RegOpenKeyEx function, the system checks the requested access rights against the key's security descriptor. If the user does not have the correct access to the registry key, the open operation fails. If an administrator needs access to the key, the solution is to enable the SE_TAKE_OWNERSHIP_NAME privilege and open the registry key with WRITE_OWNER access.

[Saturn.65]

В проге для автозагрузки прописано:

Код: Выделить всё

Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\MyPrg", Path

при смене учётной записи пользователя вылетает ошибка - Неверный корень "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\MyPrg"
почему?

У тебя не указан путь к папке с программой.
надо так:

Код: Выделить всё

Private Sub Form_Load()
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\proga", "C:\Program Files\Myprogs\myprog.exe"
End Sub


[Source]

путь то указан, прога грузится, когда я вхожу под админом, когда переключаюсь на юзера, вылетает ошибка.