Ну вот получилось.
Если кому интересно вот код:
Dim Wsh
Dim Env
Dim SysDir
Set Wsh = Wscript.CreateObject("Wscript.Shell")
Set Env = wsh.Environment("Process")
SysDir = Env("WINDIR")
Wsh.Run "runas /user:x14@mydomain ""c:\temp\setup.exe"""
WScript.Sleep 1000
wsh.appActivate SysDir & "\system32\cmd.exe"
Wsh.SendKeys "pwd~"
Взято отсюда
http://forum.script-coding.info/viewforum.php?id=1
Только одна неприятность: настройки вступают в действие после перезагрузки.
Нельзя ли это както исправить?
Первый код запускает программу от администратора.
А импортирование веток выглядит так:
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
'On Error Resume Next
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\usbstor\Start",CByte(4),"REG_DWORD"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Cdrom\Start",CByte(4),"REG_DWORD"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Flpydisk\Start",CByte(4),"REG_DWORD"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Sfloppy\Start",CByte(4),"REG_DWORD"