VBS自动更换IP.vbs

时间:2016-01-27 13:20:51
【文件属性】:

文件名称:VBS自动更换IP.vbs

文件大小:415B

文件格式:VBS

更新时间:2016-01-27 13:20:51

VBS 自动 更换 IP

VBS自动更换IP.vbs 'VBS自动更换IP Dim Wsh Set Wsh = WScript.CreateObject("WScript.Shell") Set oIE = CreateObject("InternetExplorer.Application") for i=1 to 5 wsh.run "Rasdial /DISCONNECT",false,1 wsh.run "Rasdial 连接名字 账号 密码",false,1 oIE.Navigate "http://www.ip138.com/?"&i&"" Call SynchronizeIE oIE.Visible = True next Sub SynchronizeIE On Error Resume Next Do While(oIE.Busy) WScript.Sleep 3000 Loop End Sub


网友评论