vbs创建读INI拨号ADSL

vbs创建读INI拨号ADSL
on error resume next
dim fso,fw,Wsh
set fso=createobject(scripting.filesystemobject)
if fso.FileExists(Adsl.ini) then
 set fr=fso.opentextfile(Adsl.ini,1)
do
 data=fr.readline
 name=left(data,instr(data,=)-1)
 data=mid(data,instr(data,=)+1)
 if name=ADSL then
X = data
end if
 if name=Password then
Y = data
end if
loop until fr.atendofstream
'end if
 msgbox Y*X
 Set Wsh = WScript.CreateObject(WScript.Shell)
 Wsh.Run rasdial 宽带连接 x y
else
 set fw=fso.createtextfile(Adsl.ini,2)
 fw.writeline([利川电脑自动登陆ADSL脚本代码配置文件])
a=inputbox(请输入ADSL帐号: 由电信运营商提供!)</p>
  fw.writeline(ADSL=a)
p=inputbox(请输入电信公司给您的密码: 由电信运营商提供!)
 fw.writeline(Password=p)
end if
'判断上网时间IP

• 发表评论

• 用户：  验证码：