怠惰なMicrosoft365管理者

Get-MgDomainVerificationDnsRecord -DomainId "365ps.jp" | Format-List

Id                   : 00000000-000000000-0000-000000000000
IsOptional           : False
Label                : 365ps.jp
RecordType           : Txt
SupportedService     : Email
Ttl                  : 3600
AdditionalProperties : {[@odata.type, #microsoft.graph.domainDnsTxtRecord], [text, MS=ms00000000]}

Get-MgDomainServiceConfigurationRecord -DomainId "365ps.jp" | Format-List

Id                   : 00000000-000000000-0000-000000000000
IsOptional           : False
Label                : 365ps.jp
RecordType           : Mx
SupportedService     : Email
Ttl                  : 3600
AdditionalProperties : {[@odata.type, #microsoft.graph.domainDnsMxRecord], [mailExchange, *******.mail.protection.outl
                       ook.com], [preference, 0]}

New-MgDomain -BodyParameter @{id = "365ps.jp"}

#Microsoft365上で使用したいドメインを定義する
$domainList = "365ps.jp","mail.365ps.jp"

#CSVの保存先　windowsOSの場合、デスクトップに保存する
$csvSavePath = "$env:USERPROFILE\Desktop"


#Microsoft365を登録、使用するうえで必要なDNSレコードを取得する関数
function Get-dnsRecord($domain){
    #設定するべきレコードを格納する変数
    $dnsRecordsList = @()
    
    #ドメイン所有権の確認に必要なレコードを取得する
    #TXTかMXどちらか一方のみ登録できればOK
    #今回はTXTレコードを取得する
    $dnsRecordsList += Get-MgDomainVerificationDnsRecord -DomainId $domain | `
        ?{$_.RecordType -eq "Txt"}

    #ExchangeOnlineとIntuneに関連するDNSレコードを取得する
    $dnsRecordsList += Get-MgDomainServiceConfigurationRecord -DomainId $domain | `
        ?{$_.SupportedService -eq "Email" -or $_.SupportedService -eq "Intune" }

    #取得したDNSレコードを戻り値として返す
    return $dnsRecordsList
}

#上記関数で取得した結果を必要な情報のみになるように加工する関数
function Proces-dnsRecord($beforeRecordsList){
    $recordValue = ""
    $recordsList = @()

    foreach($dnsRecord in $beforeRecordsList){
        if($dnsRecord.RecordType -eq "Txt"){
            $recordValue = $dnsRecord.AdditionalProperties.text
        }
        if($dnsRecord.RecordType -eq "Mx"){
            $recordValue =  $dnsRecord.AdditionalProperties.mailExchange
        }
        if($dnsRecord.RecordType -eq "CName"){
            $recordValue = $dnsRecord.AdditionalProperties.canonicalName
        }

        #データとして見やすくするためPSCustomObjectとして格納
        $recordsList += [PSCustomObject]@{
            RecordType = $dnsRecord.RecordType
            RecordValue = $recordValue
        }
    }

    #加工したデータを結果として戻す
    return $recordsList
}

#GraphPowerShellに接続する
Connect-MgGraph -Scopes "Domain.ReadWrite.All" -NoWelcome

#設定したいドメインの数だけ繰り返す
foreach($domain in $domainList){

    #新しいドメインを設定する
    New-MgDomain -BodyParameter @{id = $domain}

    $recordsList = Get-dnsRecord($domain)
    $result = Proces-dnsRecord($recordsList)

    #ドメイン内に含まれるドット(.)をアンダーバー(_)に置き換える
    $replaceDomain = $domain.replace(".","_")
    #実行日時を取得する
    $yyyyMMddFFFFF = Get-Date -Format "yyyyMMdd_FFFFF"
    #取得したDNSレコードをドメインごとにCSVファイルとして保存する
    $result | Export-Csv -Encoding UTF8 -NoTypeInformation `
    -Path "${csvSavePath}\${replaceDomain}_DnsRecord_${yyyyMMddFFFFF}.csv"
}

#GraphPowerShellから切断する
Disconnect-MgGraph