Board logo

标题: [转贴] VBS版本地连接DNS修改器 [打印本页]
作者: VBScript    时间: 2012-4-13 23:33     标题: 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. 

  13.         If strobj = cucdns Then

  14.            newstr = "当前连接的 DNS："&Chr(10)&Chr(10)&cuc&"："&strobj&Chr(10)&Chr(10)&" 是否修改为："&Chr(10)&Chr(10)&cnc&"："&cncdns

  15.            msg=MsgBox(newstr,1+32,title)

  16. 

  17.              If msg = 1 Then

  18.                 mydns.SetDNSServerSearchOrder Array(cncdns)

  19.                 MsgBox "OK!修改成功！",48,title

  20.              End If

  21. 

  22.         ElseIf strobj = cncdns Then

  23.            newstr = "当前连接的 DNS："&Chr(10)&Chr(10)&cnc&"："&strobj&Chr(10)&Chr(10)&" 是否修改为："&Chr(10)&Chr(10)&cuc&"："&cucdns

  24.            msg=MsgBox(newstr,1+32,title)

  25. 

  26.              If msg = 1 Then

  27.                 mydns.SetDNSServerSearchOrder Array(cucdns)

  28.                 MsgBox "OK!修改成功！",48,title

  29.              End If

  30. 

  31.         End If

  32. 

  33.      Exit For

  34.   End If

  35. Next
复制代码


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



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2