VBS版本地连接DNS修改器

VBScript

家里终于装上宽带了，联通的小区宽带，让我郁闷的是公司的宽带是网通的，虽然家里的路由按照公司的来配置了，但是每次都要修改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