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

更新时间:2023-05-31 04:13:28 阅读：评论：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

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"

WScript.Sleep 300

WS.AppActivate "新建连接向导"

WS.SendKeys "U"

WS.SendKeys "N"

WScript.Sleep 300

WS.AppActivate "新建连接向导"

WS.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"

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

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

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

本文发布于:2023-05-31 04:13:28，感谢您对本站的认可！

标签：连接安装部分实际

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