内网外网转换

来源：百度知道 编辑：UC知道 时间：2024/05/15 09:38:29
我们这是这样的，一个是内网是办公系统，一个是外网上公网的，2个IP不一样，转换时候要换网线和改IP地址，我们领导让我搞个快捷方式在桌面上，点一下，然后她换个网线就可以上内网和外网转换,谁知道怎么搞教教小弟啊。

很简单，一张网卡可以设多个IP的，你把两个IP都设上，还有网关也一样，这样只要换网线就行了。
具体做法是：本地连接-》属性-》TCP/IP属性-》高级，里面可以添加IP和网关

搞这么复杂。快捷方式怎么可能有嘛。你倒是可以用按键精灵录一段。 但是拔网线的工作还是要人工做。。。。

将以下文档保存成xx.vbs就行了(网线连接上时再运行,否则会无效)操作系统最好是XP.相关参考:http://www.microsoft.com/china/technet/community/scriptcenter/network/scrnet01.mspx

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.20.57")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.20.1")
arrDNSServers = Array("192.168.1.10")
strGatewayMetric = Array(1