/定义读取的文件
const forreading=1,forwriting=2
dim os,cmd,myfile,myarray
set fso=createobject("scripting.filesystemobject")
set userFile=fso.opentextfile("用户帐号及密码.txt",forreading)
set os=wscript.createobject("wscript.shell")
/更改密码
do while Not userfile.atendofstream
readlinetextfile=userfile.readline
myarray=split(readlinetextfile," &q……