腳本修改DNS

Dim DNS1:DNS1 = "1.1.1.1" '//主DNS

Dim DNS2:DNS2 = "2.2.2.2" '//次DNS

  strWinMgmt="winmgmts:{impersonationLevel=impersonate}"

  Set SAWXY_NICS = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration")

For Each SAWXY_NIC In SAWXY_NICS

  IF SAWXY_NIC.IPEnabled Then

  SAWXY_NIC.SetDNSServerSearchOrder Array(DNS1,DNS2)

  End IF

Next

把以上内容複制到*.TXT的文檔裡面，之後把TXT的字尾改為vbs。（把紅色字型改為你要用的NDS）

轉載于:https://blog.51cto.com/hfzhang/1243601