自动建立宽带连接+开机自动拨号VBS脚本

更新时间:2023-06-11 18:07:47 阅读：评论：0

自动建立宽带连接圣光调息法+开机自动拨号.vbs

'为了减少每次重装系统后都要设置IP、建立宽带连接、设置开机自动拨号的麻烦，写了以下这VBS脚本

'（系统必须已经安装了网卡驱动才能用）

替代品英文

Set WS=WScript.CreateObject("WScript.Shell")

WS.Run "netsh -c interface ip t address "+chr(34)+"星群本地连接"+chr(34)+" static 192.168.1.2 255.255.255.0 192.168.1.1 自动",0,true

2017年6月WS.Run "RUNDLL32 netshell.dll,StartNCW"

WScript.Sleep 300

WS.AppActivate "新建连接向导"

WS.SendKeys "N"

WScript.Sleep 300

死亡诗社经典台词WS.AppActivate "新建连接向导泰戈尔世界上最遥远的距离"

WS.SendKeys "N"

WScript.Sleep 300

WS.AppActivate "新建连接向导"

WS.SendKeys "M"

WS.SendKeys "N"

football的音标WScript.Sleep 300

WS.AppActivate "新建连接向导"

WS.SendKeys "U"

WS.SendKeys "N"

WScript.Sleep 300

WS.AppActivate "新建连接向导" 科技英语

WS.SendKeys "%n"

yycWS.SendKeys "%n"

WS.SendKeys "{ENTER}"

Set FS=WScript.Createobject("Scripting.FileSystemObject")

Set OT=FS.OpenTextFile("C:\WINDOWS\宽带连接.vbs",2,true)

OT.Writeline("Set WS=WScript.CreateObject("+chr(34)+"WScript.Shell"+chr(34)+")")

OT.Writeline("WS.Run "+chr(34)+"Rasdial 宽带连接帐号密码"+chr(34)+",0")

OT.Clo

WS.Run "C:\WINDOWS\宽带连接.vbs"

WS.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\宽带连接","C:\WINDOWS\宽带连接.vbs"

'注：红色字部分根据自己的实际情况改

'hottie这东东主要是写给自己用的，没什么技术含量^_^

'其实可以加些InPutBox来做得更通用些，不过自己用的就没必要喇，呵呵^_^

本文发布于:2023-06-11 18:07:47，感谢您对本站的认可！

标签：连接安装部分实际

留言与评论（共有 0 条评论）