Winapi 如何使用API或PowerShell在Windows Server 2008上添加新的DNS区域？

在

Microsoft DNS Server 2008

中是否有任何API可以使用

VBScript

或

PowerShell

或

p/Invoke

或

WMI

添加新的转发

DNS

？ 生成纯文本文件并将其放入

\system32\dns

很容易

如何用一个脚本执行来替换

MMC

中的大量手动命令

#xyz is dns servername

$A = [wmiclass]"\\xyz\root\MicrosoftDNS:MicrosoftDNS_AType"

$DNSServer = "xyz.R-test.com"
$Zone = "R-Test.com"
$class = 1
$TTL = 3600

#This is your web server IP Address
$IPAddress = "192.168.1.88"

$Sites = Get-content WebSites.txt

Foreach ($Site in $Sites)
{
$A.CreateInstanceFromPropertyData($DNSserver, $zone, $Site, $class, $ttl, $IPAddress)
}

The WebSites.txt is something look like this:
whatever1.R-test.comwhatever2.R-test.comwhatever3.R-test.com

whatever4.R-test.com

…