本文摘自：http://www.microsoft.com/china/technet/community/scriptcenter/network/scrnet139.mspx

描述

将区域 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