The Code
CLS Write-host "-------------------------------------" -ForegroundColor Green Write-host " MIM DNS Record Creation Script" -ForegroundColor Green Write-host "-------------------------------------" -ForegroundColor Green Write-host '' Write-host '' # Import AD Module Try {Import-Module ActiveDirectory -ErrorAction STOP} Catch {Write-Host "Active Directory Module could not be loaded"} $DNSRoot = (Get-AdDomain).DNSRoot # Standard MIM Security Groups $Records = @("MIM","PasswordReset","PasswordRegistration") # Loop for all users Foreach ($Record in $Records) { # DNS Record Write-host "Do you want to use the standard DNS record for the $Record ? [s or c] " -ForegroundColor Yellow -NoNewline $DNSAnswer = Read-Host If ($DNSAnswer -eq 'c') { Write-host "What Group name do you want to use instead of $Group ? " -ForegroundColor Yellow -NoNewline $Alias = Read-Host $DNSNAme = $Alias+"."+$DNSRoot } Else { $DNSName = $Record+"."+$DNSRoot } # Get IP Address for Name Write-Host "Please provide an IP Address for " -ForegroundColor White -NoNewLine Write-Host "$DNSName : " -ForegroundColor Yellow -NoNewline $IP = Read-Host # Create DNS Record Write-host "Adding DNS records for " -ForegroundColor White -NoNewline Write-host "$DNSName" -ForegroundColor Green -NoNewline Write-host " in the $DNSRoot domain." -ForegroundColor White dnscmd /RecordAdd $DNSRoot $DNSName A $IP # dnscmd /RecordAdd $ZoneName $ARecordDomainDnsZones A $IP } Write-host ' ' Write-host ' ' Write-host '-- Done! ---' -ForegroundColor Yellow
Sample Run-Throughs
Further Reading
The DNSCMD command line tool – DNSCMD