VBS修改DNS

Submitted by cai on 2010, February 13, 3:10 AM. 技术相关

Set objWMIService=GetObject("winmgmts:\\.\root\cimv2")
    Set colNetAdapters=objWMIService.ExecQuery("Select * from
Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    strDNS = Array("192.168.0.1","202.96.128.86")
    'strDNS = Array("192.168.0.1","202.96.128.86","202.96.128.166") '如果有更多DNS请按格式添加
    For Each objNetAdapter in colNetAdapters
        objNetAdapter.SetDNSServerSearchOrder(strDNS)
    Next
    Msgbox "DNS修改完毕",,"提示"
    '如果不想出现提示，把上面一行最前面加上“'”