SearchDNS

1.160818

SearchDNS.psm1

<#
 
.SYNOPSIS
Inspired by Justin Wyllys' "DNS Checker", this PowerShell Module is meant to replace several NS Lookups usually done through the Command Prompt.
It also borrows elements from Nikolay Petkov's 'WHOIS PowerShell Function', publicly available at:
https://gallery.technet.microsoft.com/WHOIS-PowerShell-Function-ed69fde6
 
.DESCRIPTION
The Module's only available function is designated as 'Search-Dns'.
Its usage scenarios can be demonstrated with 'Get-Help Search-Dns -Examples'.
 
.NOTES
Author: Luís Pinto <Lispint>
Version: 1.160818
 
.PARAMETER DomainName
Specify one or more domain names on which to run the DNS queries.
 
.PARAMETER ClearDnsCache
Flush the DNS Cache.
 
.EXAMPLE
Search-Dns -ClearDnsCache
This statement is analogous to 'IPConfig /flushDNS'.
 
.EXAMPLE
Search-Dns -DomainName Microsoft.com
This statement will return all DNS records for 'Microsoft.com', querying the default DNS server.
 
.EXAMPLE
Search-Dns -DomainName Microsoft.com -CustomDnsServer
This statement will ask the user for a custom DNS server, and return all its DNS records for 'Microsoft.com'.
 
#>

Function Search-Dns {

Param (
[Parameter(Mandatory = $True, Position = 1)] [String[]]$DomainName,
[Switch]$SIP,
[Switch]$CNAME,
[Switch]$MX,
[Switch]$TXT,
[Switch]$A,
[Switch]$WHOIS,
[Switch]$ClearDnsCache,
[Switch]$CustomDnsServer
)

#Clear DNS Cache
Switch ($ClearDnsCache) { ($True) {
    Clear-DnsClientCache ;
    Write-Host "DNS Cache Cleared." -Fore Green ; "`n"
}}

#Custom DNS Server
Switch ($CustomDnsServer) { ($True) {
    [String]$DnsServer = Read-Host "DNS Server" ;
}}

#Default Behavior: Query All Records
If ( (-Not $SIP) -and (-Not $CNAME) -and (-Not $MX) -and (-Not $TXT) -and (-Not $A) -and (-Not $WHOIS) -and (-Not $ClearDnsCache) -and (-Not $CustomDnsServer) ) {
    $SIP = $CNAME = $MX = $TXT = $A = $True
}

#33 = SRV | 'Server Selection'
Switch ($SIP) { ($True) {
    #Custom Table Formatting
    $Table = `
    @{Expression = {$_.Type}; Label = "Type"; Width = 5}, `
    @{Expression = {$_.Name}; Label = "Name"; Width = 45}, `
    @{Expression = {$_.NameTarget}; Label = "Target"; Width = 40}, `
    @{Expression = {$_.IP4Address}; Label = "IP Address"; Width = 15}

    If ($CustomDnsServer -Eq $False) {
        ForEach ($Dmn in $DomainName) {
            Write-Host ("SIP TLS `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 33 ("_sip._tls." + $Dmn) | FT $Table ;

            Write-Host ("SIP Federation `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 33 ("_sipfederationtls._tcp." + $Dmn) | FT $Table
        }
    } Else {
        ForEach ($Dmn in $DomainName) {
            Write-Host ("SIP TLS (against $DnsServer) `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 33 ("_sip._tls." + $Dmn) -Server $DnsServer | FT $Table ;

            Write-Host ("SIP Federation (against $DnsServer) `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 33 ("_sipfederationtls._tcp." + $Dmn) -Server $DnsServer | FT $Table
        }
    }
}}

#5 = CNAME | 'Canonical Name'
Switch ($CNAME) { ($True) {
    #Custom Table Formatting
    $Table = `
    @{Expression = {$_.Type}; Label = "Type"; Width = 5}, `
    @{Expression = {$_.Name}; Label = "Name"; Width = 45}, `
    @{Expression = {$_.NameHost}; Label = "Canonical Name"; Width = 50}

    If ($CustomDnsServer -Eq $False) {
        ForEach ($Dmn in $DomainName) {
            Write-Host ("LyncDiscover CNAME `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 5 ("lyncdiscover." + $Dmn) | FT $Table ;

            Write-Host ("AutoDiscover CNAME `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 5 ("autodiscover." + $Dmn) | FT $Table ;

            Write-Host ("MSOID CNAME `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 5 ("msoid." + $Dmn) | FT $Table
        }
    } Else {
        ForEach ($Dmn in $DomainName) {
            Write-Host ("LyncDiscover CNAME (against $DnsServer) `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 5 ("lyncdiscover." + $Dmn) -Server $DnsServer | FT $Table ;

            Write-Host ("AutoDiscover CNAME (against $DnsServer) `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 5 ("autodiscover." + $Dmn) -Server $DnsServer | FT $Table ;

            Write-Host ("MSOID CNAME (against $DnsServer) `n Domain Name: '$Dmn'")-Fore Green ;
            Resolve-DnsName -Type 5 ("msoid." + $Dmn) -Server $DnsServer | FT $Table
        }
    }
}}

#15 = MX | 'Mail Routing'
Switch ($MX) { ($True) {
    #Custom Table Formatting
    $Table = `
    @{Expression = {$_.Type}; Label = "Type"; Width = 5}, `
    @{Expression = {$_.Preference}; Label = "Priority"; Width = 8}, `
    @{Expression = {$_.NameExchange}; Label = "Hostname"; Width = 36}, `
    @{Expression = {$_.IP4Address}; Label = "IP Address"; Width = 15}

    If ($CustomDnsServer -Eq $False) {
        ForEach ($Dmn in $DomainName) {
            Write-Host ("MX Record `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 15 $Dmn | FT $Table
        }
    } Else {
        ForEach ($Dmn in $DomainName) {
            Write-Host ("MX Record (against $DnsServer) `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 15 $Dmn -Server $DnsServer | FT $Table
        }
    }
}}

#16 = TXT | 'Text Strings'
Switch ($TXT) { ($True) {
    #Custom Table Formatting
    $Table = `
    @{Expression = {$_.Type}; Label = "Type"; Width = 5}, `
    @{Expression = {$_.Strings}; Label = "Value"; Width = 100}

    If ($CustomDnsServer -Eq $False) {
        ForEach ($Dmn in $DomainName) {
            Write-Host ("TXT `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 16 $Dmn | FT $Table
        }
    } Else {
        ForEach ($Dmn in $DomainName) {
            Write-Host ("TXT (against $DnsServer) `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 16 $Dmn -Server $DnsServer | FT $Table
        }
    }
}}

#1 = A | 'IPv4 Server Address'
Switch ($A) { ($True) {
    #Custom Table Formatting
    $Table = `
    @{Expression = {$_.Type}; Label = "Type"; Width = 5}, `
    @{Expression = {$_.Name}; Label = "Name"; Width = 45}, `
    @{Expression = {$_.IPAddress}; Label = "IP Address"; Width = 15}

    If ($CustomDnsServer -Eq $False) {
        ForEach ($Dmn in $DomainName) {
            Write-Host ("Root A Record `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 1 $Dmn | FT $Table

            Write-Host ("Autodiscover A Record `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 1 ("autodiscover." + $Dmn) | FT $Table
        }
    } Else {
        ForEach ($Dmn in $DomainName) {
            Write-Host ("Root A Record (against $DnsServer) `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 1 $Dmn -Server $DnsServer | FT $Table

            Write-Host ("Autodiscover A Record (against $DnsServer) `n Domain Name: '$Dmn'") -Fore Green ;
            Resolve-DnsName -Type 1 ("autodiscover." + $Dmn) -Server $DnsServer | FT $Table
        }
    }
}}

#Gather WHOIS
Switch ($WHOIS) { ($True) {
    ForEach ($Dmn in $DomainName) {
        Write-Host ("WHOIS `n Domain Name: '$Dmn'") -Fore Green ;
        $Json = Invoke-WebRequest -Uri ("http://api.bulkwhoisapi.com/whoisAPI.php?domain=" + $Dmn + "&type=whois&token=7d3f08b98ab9f69ae15060a5b58ef1ee") | ConvertFrom-Json
        $Json.formatted_data | FL RegistrarURL, RegistrantName
    }
}}

} #End Function 'Search-Dns'