Get-PublicDnsRecord.ps1

Function Get-PublicDnsRecord{
    <#
    .SYNOPSIS
        Make some DNS query based on Stat DNS.
    .DESCRIPTION
        Use Invoke-WebRequest on Stat DNS to resolve DNS query.
    .EXAMPLE
        Get-PublicDnsRecord -DomaineNAme "ItForDummies.net" -DnsRecordType A,MX
    .EXAMPLE
        Get-PublicDnsRecord -DomaineNAme "www.valbox.fr" -DnsRecordType A,MX
    .PARAMETER DomainName
        Domain name to query.
    .PARAMETER DnsRecordType
        DNS type to query.
    .INPUTS
    .OUTPUTS
    .NOTES
    .LINK
    #>
    Param(
        [Parameter(Mandatory=$true,
            HelpMessage='DNS domain name to query.',
            Position=1)]
        [String]$DomainName,

        [Parameter(Mandatory=$true,
            HelpMessage='DNS record type to query.',
            Position=2)]
        [ValidateSet('A','AAAA','CERT','CNAME','DHCIP','DLV','DNAME','DNSKEY','DS','HINFO','HIP','IPSECKEY','KX','LOC','MX','NAPTR','NS','NSEC','NSEC3','NSEC3PARAM','OPT','PTR','RRSIG','SOA','SPF','SRV','SSHFP','TA','TALINK','TLSA','TXT')]
        [String[]]$DnsRecordType
    )

    DynamicParam{        
        $AttribColl = New-Object -TypeName System.Collections.ObjectModel.Collection[System.Attribute]
	    $ParamAttrib = New-Object -TypeName System.Management.Automation.ParameterAttribute
	    $ParamAttrib.Mandatory = $false
	    $ParamAttrib.ParameterSetName = '__AllParameterSets'
	    $ParamAttrib.ValueFromPipeline = $false
	    $ParamAttrib.ValueFromPipelineByPropertyName = $false
	    $AttribColl.Add($ParamAttrib)
	    $AttribColl.Add((New-Object -TypeName System.Management.Automation.ValidateSetAttribute -ArgumentList ((Invoke-WebRequest -Uri 'http://www.dns-lg.com/nodes.json'| Select-Object -ExpandProperty Content | ConvertFrom-Json | Select-Object -ExpandProperty nodes | Select-Object -ExpandProperty name))))
	    $RuntimeParam = New-Object -TypeName System.Management.Automation.RuntimeDefinedParameter -ArgumentList ('Node', [string], $AttribColl)
	    $RuntimeParamDic = New-Object -TypeName System.Management.Automation.RuntimeDefinedParameterDictionary
	    $RuntimeParamDic.Add('Node', $RuntimeParam)
	    $RuntimeParamDic
    }

    Begin{
        $PsBoundParameters.GetEnumerator() | ForEach-Object -Process { New-Variable -Name $_.Key -Value $_.Value -ErrorAction 'SilentlyContinue' }
        if(!$Node){$Node = Invoke-WebRequest -Uri 'http://www.dns-lg.com/nodes.json'| Select-Object -ExpandProperty Content | ConvertFrom-Json | Select-Object -ExpandProperty nodes | Select-Object -ExpandProperty name | Get-Random}
    }
    Process{
        ForEach($Record in $DnsRecordType){
            Try{
                $WebUrl = 'http://www.dns-lg.com/{0}/{1}/{2}' -f $Node,$DomainName,$Record
                
                Write-Verbose -Message "Constructed URL for query is $WebUrl."

                $WebData = Invoke-WebRequest -Uri $WebUrl -ErrorAction Stop | Select-Object -ExpandProperty Content | ConvertFrom-Json | Select-Object -ExpandProperty answer
                $WebData | % {
                     New-Object -TypeName PSObject -Property @{
                        'Name'   = $_.name
                        'Type'   = $_.type
                        'Target' = $_.rdata
                        'Node'   = $Node
                    }
                }
            }
            catch{
                Write-Warning -Message $_
                New-Object -TypeName PSObject -Property @{
                    'Name'   = $DomainName
                    'Type'   = $Record
                    'Target' = ($_[0].ErrorDetails.Message -split '"')[-2]
                    'Node'   = $Node
                }
            }
        }
    }
    End{}
}