描述
将区域 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 本文转自 苏繁 51CTO博客，原文链接http://blog.51cto.com/goxia/221147，如需转载请自行联系原作者
