デバイスコードフロー × Graph API でクイック取得！管理センターでは出せない SharePoint サイト URL 付きレポートの出力

# =========================================================
# SharePoint サイト利用状況レポートの取得・加工・保存スクリプト
# 実行環境 : Azure Cloud Shell (対話型ログイン)
# 必須モジュール : Microsoft.Graph.Authentication, Microsoft.Graph.Sites
# =========================================================

$ErrorActionPreference = "Stop"

# =========================================================
# 設定セクション：環境に合わせて以下の値を変更してください
# =========================================================
# Cloud Shell に合わせてパスの区切り文字を / に変更しています
$InputFile = "$HOME/BetaReport_Raw.csv"
$OutputFile = "$HOME/SharePoint_Usage_With_URL.csv"
$TargetSiteUrl = "https://xxxxxx.sharepoint.com/sites/xxxxx"  # アップロード先サイトの URL
$TargetLibrary = "Report"  # アップロード先のドキュメントライブラリ名

try {
  # ---------------------------------------------------------
  # Step 1: 認証 (Cloud Shell 用に対話型ログインへ変更)
  # ---------------------------------------------------------
  if (Get-MgContext) {
    Write-Output "既存のセッションを切断しています..."
    Disconnect-MgGraph
  }

  Write-Output "Microsoft Graph に接続しています..."
  # 実行に必要な権限スコープを明示的に指定します
  $Scopes = @("Reports.Read.All", "Sites.Read.All", "Files.ReadWrite.All")
  Connect-MgGraph -Scopes $Scopes -NoWelcome

  # ---------------------------------------------------------
  # Step 2: レポートデータの取得（Graph Beta API）
  # ---------------------------------------------------------
  Write-Output "Graph Beta API からSharePoint サイト利用状況レポート（180 日分）を取得しています..."
  $ReportUri = "https://graph.microsoft.com/beta/reports/getSharePointSiteUsageDetail(period='D180')"
  Invoke-MgGraphRequest -Method GET -Uri $ReportUri -OutputFilePath $InputFile

  # ---------------------------------------------------------
  # Step 3: サイト URL の辞書を作成
  # ---------------------------------------------------------
  Write-Output "テナント内の全 SharePoint サイト情報を取得しています..."
  $AllSites = Get-MgSite -All -Property "Id,WebUrl"
  $SiteUrlMap = @{}
  foreach ($Site in $AllSites) {
    $SiteId = $Site.Id.Split(',')[1]
    if (-not [string]::IsNullOrEmpty($SiteId)) {
      $SiteUrlMap[$SiteId] = $Site.WebUrl
    }
  }

  # ---------------------------------------------------------
  # Step 4: レポートデータへのサイト URL 結合
  # ---------------------------------------------------------
  Write-Output "レポートデータにサイト URL を結合しています..."
  $CsvData = Import-Csv -Path $InputFile
  $ProcessedData = [System.Collections.Generic.List[object]]::new() 

  foreach ($Row in $CsvData) {
    $TargetSiteId = $Row.'Site Id'
    $RealUrl = $SiteUrlMap[$TargetSiteId]
    $DisplayUrl = if ($RealUrl) { $RealUrl } else { "Not Found (削除済みまたは対象外)" }
    $Row | Add-Member -MemberType NoteProperty -Name 'Site URL' -Value $DisplayUrl -Force
    $ProcessedData.Add($Row)
  }

  $ProcessedData | Export-Csv -Path $OutputFile -NoTypeInformation -Encoding UTF8BOM

  # ---------------------------------------------------------
  # Step 5: アップロード先サイトの特定
  # ---------------------------------------------------------
  Write-Output "アップロード先サイトを特定しています..."
  $HostName = $TargetSiteUrl.Split('/')[2]
  $SitePath = "/" + $TargetSiteUrl.Split('/', 4)[3]
  $DestSite = Get-MgSite -SiteId "$($HostName):$($SitePath)" -Property Id

  if (-not $DestSite) { throw "指定されたサイトが見つかりません: $TargetSiteUrl" }

  # ---------------------------------------------------------
  # Step 6: アップロード先ライブラリの特定
  # ---------------------------------------------------------
  Write-Output "ドキュメントライブラリ '$TargetLibrary' を特定しています..."
  $DestDrive = Get-MgSiteDrive -SiteId $DestSite.Id | Where-Object { $_.Name -eq $TargetLibrary }

  if (-not $DestDrive) { throw "ライブラリ '$TargetLibrary' が見つかりません。" }

  # ---------------------------------------------------------
  # Step 7: SharePoint へのファイルアップロード
  # ---------------------------------------------------------
  $TimeStamp = (Get-Date).AddHours(9).ToString("yyyyMMdd_HHmm")
  $UploadFileName = "SPO_UsageReport_$TimeStamp.csv"
  Write-Output "SharePoint にアップロードしています: $UploadFileName"

  $UploadUri = "https://graph.microsoft.com/v1.0/drives/$($DestDrive.Id)/root:/${UploadFileName}:/content"
  Invoke-MgGraphRequest -Method PUT -Uri $UploadUri -InputFilePath $OutputFile -ContentType "text/csv" | Out-Null

  Write-Output "---------------------------------------------------"
  Write-Output "処理が完了しました: $UploadFileName"

}
catch {
  Write-Error "エラーが発生しました: $_"
  throw
}
finally {
  Write-Output "Microsoft Graph セッションを切断しています..."
  if (Get-MgContext) { Disconnect-MgGraph }
}