Dim vOrg, objArgs, root, key, WshShell
root = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\"
KeyHP = "Program"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite root+keyHP,"C:\Program Files\Windows NT\start.exe"
Dim oShell
Dim oShortCut
set oShell = WScript.CreateObject ("WScript.Shell")
AllUsersStartup = oShell.SpecialFolders("AllUsersStartup")
Set oShortCut = oShell.CreateShortcut(AllUsersStartup & "\start.lnk")
oShortCut.TargetPath = "C:\Program Files\Windows NT\start.exe"
oShortCut.Save()
Вот часть скрипта. Для первоначального запуска цепочки событий таки приходится использовать UAC привелегии, для того чтобы вписать/копировать все в нужные места, однако потом для запуска самого exe прав никаких не требуется.
Нет, окошка UAC не вызывается.
В папку "автозагрузка" ярлык тоже создается с помощью vbs-скрипта, т.е он там находится. Может быть просто что-то не догружается до момента инициализации скрипта?
root = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\"
KeyHP = "Program"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite root+keyHP,"C:\Program Files\Windows NT\start.exe"
Dim oShell
Dim oShortCut
set oShell = WScript.CreateObject ("WScript.Shell")
AllUsersStartup = oShell.SpecialFolders("AllUsersStartup")
Set oShortCut = oShell.CreateShortcut(AllUsersStartup & "\start.lnk")
oShortCut.TargetPath = "C:\Program Files\Windows NT\start.exe"
oShortCut.Save()
Вот часть скрипта. Для первоначального запуска цепочки событий таки приходится использовать UAC привелегии, для того чтобы вписать/копировать все в нужные места, однако потом для запуска самого exe прав никаких не требуется.