Question

我最近一直在尝试在计算机上禁用任务管理器。我试过这段代码

strcomputer = "."
HKEY_CURRENT_USER = &H80000001
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
comppath = "Software\Microsoft\Windows\CurrentVersion\Policies\System"
strEntryName = "DisableTaskMgr"
dwValue = "00000001" 
retval = objReg.SetDWordValue(HKEY_CURRENT_USER, comppath, strEntryName, dwValue)
Wscript.echo retval

但它没有奏效。原因是我缺少那个文件夹（＆＃34; System＆＃34;一个）。我被告知要自己创建它，但是因为为每台计算机创建该文件夹我会使用这段代码非常冗长，我想知道是否有方法可以自动创建该文件夹。如果情况并非如此，我想知道另一种方法。如果可能，我不想使用管理员权限。

顺便说一下，我也在cmd上试过这段代码。非常相似，只是想指出来。

reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /f /v DisableTaskMgr /t REG_DWORD /d 00000001

更新：我最终找到了代码，并且我已经建议发布它。它使用.bat文件而不是.vbs文件，但它值得。此外，您必须以管理员身份运行它，否则它将无法正常工作

有两个代码。我发布的第一个将禁用任务管理器，第二个将重新启用它（如果您之前运行第二个，则不会发生任何错误，虽然）

REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f

REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f

Answer 1

这个很好用（需要管理员）：

Dim Shell, regCommand
Set Shell = WScript.CreateObject("WScript.Shell")
Shell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", ""
Shell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 1, "REG_DWORD"

Answer 2

reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /f /v DisableTaskMgr /t REG_DWORD /d 00000001
WORKED LOL 从 00000001 更改为 00000000 到 enable taskmgr

如何使用VBScript禁用任务管理器

2 个答案: