Or keep an eye on my blog I will do a blog post when it is announced.

I wanted to have it create a reverse DNS (PTR) record as well, so I did the following mod:

# Add A DNS Entry for our server
$DNSSRV = "VIRTUDC.Virtu-al.local"
$DNSWMIA = [wmiclass]"\\$DNSSRV\root\MicrosoftDNS:MicrosoftDNS_AType"
$DNSWMIPTR = [wmiclass]"\\$DNSSRV\root\MicrosoftDNS:MicrosoftDNS_PTRType"
$zone = "virtu-al.local"
$name = "VIRTUESX4.virtu-al.local"
$class = 1
$ttl = 3600
$address = "192.168.0.6"
$octets = $address.split('.')
$DNSWMIA.CreateInstanceFromPropertydata($DNSSRV, $zone, $name, $class, $ttl, $address) | Out-Null
$DNSWMIPTR.CreateInstanceFromPropertydata($DNSSRV, $octets[0]+".in-addr.arpa.", $octets[3]+"."+$octets[2]+"."+$octets[1]+"."+$octets[0]+".in-addr.arpa", $class, $ttl, $name) | Out-Null

However, this doesn’t feel very tidy (and you need an extra WMI object), so I prefer to use CreateInstanceFromTextRepresentation to create the Resource Records, as shown below:

# Add A DNS Entry for our server
$DNSSRV = "VIRTUDC.Virtu-al.local"
$DNSWMI = [wmiclass]"\\$DNSSRV\root\MicrosoftDNS:MicrosoftDNS_ResourceRecord"
$zone = "virtu-al.local"
$name = "VIRTUESX4.virtu-al.local"
$class = 1
$ttl = 3600
$address = "192.168.0.6"
$octets = $address.split('.')
$FwdRR = $name + " IN A $address" # Forward Resource Record (A)
$DNSWMI.CreateInstanceFromTextRepresentation($DNSSRV, $zone, $FwdRR) | Out-Null
$ReverseRR = $octets[3]+"."+$octets[2]+"."+$octets[1]+" IN PTR $name" # Reverse Resource Record (PTR)
$ReverseZone = $octets[0]+".in-addr.arpa." # Reverse Zone name
$DNSWMI.CreateInstanceFromTextRepresentation($DNSSRV, $ReverseZone, $ReverseRR) | Out-Null

Keep up the good work!