- 积分
- 125
- 最后登录
- 2024-4-22
- 精华
- 0
- 阅读权限
- 20
- 主题
- 43
- UID
- 4411977
- 帖子
- 312
- PB币
- 302
- 威望
- 0
- 贡献
- 0
- 技术
- 0
- 活跃
- 941
- UID
- 4411977
- 帖子
- 312
- PB币
- 302
- 贡献
- 0
- 技术
- 0
- 活跃
- 941
|
7F
发表于 2019-6-12 12:45:51
IP属地广西
|只看该作者
注册表将自动更新服务设置为只读权限再试试吧楼主!
- Fileinstall('SetACL\x64\SetACL.exe',@SystemDir & '\',1)
- RunWait(@ComSpec & ' /c ' & 'SetACL -on "HKLM\SYSTEM\ControlSet001\Services\DoSvc" -ot reg -actn setowner -ownr "n:administrators" -rec yes', '', @SW_HIDE)
- RunWait(@ComSpec & ' /c ' & 'SetACL -on "HKLM\SYSTEM\ControlSet001\Services\DoSvc" -ot reg -actn ace -ace "n:administrators;p:full" -rec yes', '', @SW_HIDE)
- RunWait(@ComSpec & ' /c ' & 'SetACL -on "HKLM\SYSTEM\ControlSet001\Services\wuauserv" -ot reg -actn setowner -ownr "n:administrators" -rec yes', '', @SW_HIDE)
- RunWait(@ComSpec & ' /c ' & 'SetACL -on "HKLM\SYSTEM\ControlSet001\Services\wuauserv" -ot reg -actn ace -ace "n:administrators;p:full" -rec yes ', '', @SW_HIDE)
- RunWait(@ComSpec & ' /c ' & 'sc config bits start= disabled', '', @SW_HIDE)
- RunWait(@ComSpec & ' /c ' & 'sc config wuauserv start= disabled', '', @SW_HIDE)
- RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\DoSvc', 'Start', 'REG_DWORD', '4')
- RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\BFE', 'Start', 'REG_DWORD', '4')
- RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\MpsSvc', 'Start', 'REG_DWORD', '4')
- RunWait(@ComSpec & ' /c ' & 'SetACL -on "HKLM\SYSTEM\ControlSet001\Services\DoSvc" -ot reg -actn ace -ace "n:system;p:read" -rec yes', '', @SW_HIDE)
- RunWait(@ComSpec & ' /c ' & 'SetACL -on "HKLM\SYSTEM\ControlSet001\Services\DoSvc" -ot reg -actn ace -ace "n:administrators;p:read" -rec yes ', '', @SW_HIDE)
- RunWait(@ComSpec & ' /c ' & 'SetACL -on "HKLM\SYSTEM\ControlSet001\Services\wuauserv" -ot reg -actn ace -ace "n:system;p:read" -rec yes ', '', @SW_HIDE)
- RunWait(@ComSpec & ' /c ' & 'SetACL -on "HKLM\SYSTEM\ControlSet001\Services\wuauserv" -ot reg -actn ace -ace "n:administrators;p:read" -rec yes', '', @SW_HIDE)
- Filedelete(@SystemDir & '\SetACL.exe')
复制代码
|
|