本文使用「署名 4.0 国际 (CC BY 4.0)」许可协议，欢迎转载、或重新修改使用，但需要注明来源。 [署名 4.0 国际 (CC BY 4.0)](https://creativecommons.org/licenses/by/4.0/deed.zh)

本文作者: 苏洋

创建时间: 2012年04月21日
统计字数: 387字
阅读时间: 1分钟阅读
本文链接: https://soulteary.com/2012/04/21/vbs-dns-renew.html

-----


# VBS 刷新 DNS

桌面发现一个文件夹...貌似是很久以前写的...贴上来备份下



```vb
On Error Resume Next

Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration", "WQL", &h10 + &h20)

For Each objItem In colItems
  Call objItem.SetDNSServerSearchOrder
  Call objItem.EnableDHCP
  Call objItem.RenewDHCPLease
  Call objItem.SetTcpipNetbios(2)
  Call objItem.SetTcpipNetbios(0)
Next
```