欢迎光临
我们一直在努力

批处理自动更改公司或家里IP地址切换上网VBS脚本

批处理自动更改公司或家里IP地址切换上网VBS脚本

a=msgbox("是否改变为家里上网的IP"& Chr(13) &"是,改成家里的"& Chr(13) &"否,改成公司的"& Chr(13) &"取消不改变IP"& Chr(13) & Chr(10) & Chr(10) &" 制作:whatask",3,"改变IP")
if a=6 then
strIP = "192.168.1.XX" 'ip
strMask = "255.255.255.0" '掩码
strGW = "192.168.1.1" '网关
strDNS1 = "202.102.154.3" 'dns
strDNS2 = "202.102.152.3" 'dns
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array(strIP)
strSubnetMask = Array(strMask)
strGateway = Array(strGW)
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
arrDNSServers = Array(strDNS1,strDNS2)
errDNS = objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
If errEnable = 0 Then
WScript.Echo "已成功更改成家里上网的IP。"
Else
WScript.Echo "更改IP地址失败。"
End If
Next
elseif a=7 then
strIP = "192.168.1.XX" 'ip
strMask = "255.255.255.0" '掩码
strGW = "192.168.1.1" '网关
strDNS1 = "202.102.154.3" 'dns
strDNS2 = "202.102.152.3" 'dns
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array(strIP)
strSubnetMask = Array(strMask)
strGateway = Array(strGW)
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
arrDNSServers = Array(strDNS1,strDNS2)
errDNS = objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
If errEnable = 0 Then
WScript.Echo "已成功更改成公司上网的IP。"
Else
WScript.Echo "更改IP地址失败。"
End If
Next
elseif a=2 then
msgbox "IP地址没有改变"
end if

另存为XX.VBS文件,
上面第一段IP 就是家里的,你自己修改一下IP、网关、DNS就行,
第二段就是公司的,也改成相应的,没有就不写。

以后只要双击这个文件就行了。

赞(0) 打赏
未经允许不得转载:刘旭的人个博客 » 批处理自动更改公司或家里IP地址切换上网VBS脚本
分享到: 更多 (0)
标签:

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址
  • Q Q(选填)

QQ :13945502电话:13913571631

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏

×
订阅图标按钮