注册 | 登录 忘记密码? 51cto首页 | 博客 | 论坛 | 招聘
热点文章 可扩展、高可用、负载均衡..
 帮助

制作线路切换器!


2007-10-07 13:33:43
 标签:线路 切换器   [推送到技术圈]

版权声明:原创作品,允许转载,转载时请务必以超链接形式标明文章 原始出处 、作者信息和本声明。否则将追究法律责任。http://sqlpy.blog.51cto.com/241989/45306
 
 
新建一个文本文件后缀名为(.vbs)(把下代码复制到文本文件里面其它的不要)(红色字体为注释)
注:保存时记得把红色字体删除
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter in colNetAdapters
sip=objNetAdapter.IPAddress
strIPAddress = sip
strSubnetMask = Array("填写子网掩码")
strGateway = Array("填写网关地址")
strGatewayMetric = Array(1)
strDNS = Array("此处填写DNS", "此处填写DNS")      'DNS  (网通的填写网通DNS,电信的填写电信的DNS)
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS)
'输出开始
If errEnable = 0 and errGateways = 0 and errDNS = 0 Then
     WScript.Echo "更改成电信(网通的请把电信2字改成网通)线路!"
Else
     WScript.Echo "更改失败,请与管理员联系!"
End If
'输出结束
exit for        '只修改第一个网卡的设置
Next

本文出自 “ntsd” 博客,请务必保留此出处http://sqlpy.blog.51cto.com/241989/45306



上一篇 DOS命令大全  下一篇 你最想要的是什么



    文章评论
 
 

发表评论

昵   称:
验证码:  点击图片可刷新验证码  博客过2级,无需填写验证码
内   容: