批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[转贴] VBS版本地连接DNS修改器

家里终于装上宽带了,联通的小区宽带,让我郁闷的是公司的宽带是网通的,虽然家里的路由按照公司的来配置了,但是每次都要修改DNS是个问题啊。用VBS写了一个简单小东西,哈哈!没准你也能用上!

  1. Dim mc,mo,cnc,cuc,title,mymac,mydns,mydnsip
  2. cnc = "网通" : cncdns="202.96.64.68"
  3. cuc = "联通" : cucdns="211.93.80.129"
  4. title = "本地连接DNS修改器"
  5. Set mymac=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
  6. For Each mydns In mymac
  7.   If mydns.IPEnabled=True Then
  8.      mydnsip = mydns.DNSServerSearchOrder
  9.      For  i = 0 to UBound(mydnsip)
  10.            strObj = strObj & mydnsip(i)
  11.      next
  12.         If strobj = cucdns Then
  13.            newstr = "当前连接的 DNS:"&Chr(10)&Chr(10)&cuc&":"&strobj&Chr(10)&Chr(10)&" 是否修改为:"&Chr(10)&Chr(10)&cnc&":"&cncdns
  14.            msg=MsgBox(newstr,1+32,title)
  15.              If msg = 1 Then
  16.                 mydns.SetDNSServerSearchOrder Array(cncdns)
  17.                 MsgBox "OK!修改成功!",48,title
  18.              End If
  19.         ElseIf strobj = cncdns Then
  20.            newstr = "当前连接的 DNS:"&Chr(10)&Chr(10)&cnc&":"&strobj&Chr(10)&Chr(10)&" 是否修改为:"&Chr(10)&Chr(10)&cuc&":"&cucdns
  21.            msg=MsgBox(newstr,1+32,title)
  22.              If msg = 1 Then
  23.                 mydns.SetDNSServerSearchOrder Array(cucdns)
  24.                 MsgBox "OK!修改成功!",48,title
  25.              End If
  26.         End If
  27.      Exit For
  28.   End If
  29. Next
复制代码


http://www.rootkit.net.cn/article.asp?id=35

返回列表