描述
将区域 accounting.fabrikam.com 的 DNS 区域类型更改为主 DNS 区域。
有关在这段代码中使用的 ChangeZoneType 方法的更多信息,请单击此处
支持平台
Windows Server 2003
Windows XP
否(然而,可以在 Windows XP 计算机上对远程 DNS 服务器运行脚本)
Windows 2000
是,需要安装 DNS WMI 提供程序
Windows NT 4.0
脚本代码
intPrimaryZone = 1
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\MicrosoftDNS")
Set colItems = objWMIService.ExecQuery _
   ("Select * from MicrosoftDNS_Zone Where Name = 'accounting.fabrikam.com'")
For Each objItem in colItems
   errResult = objItem.ChangeZoneType(intPrimaryZone, true)
Next