【Windows11】インストール済みアプリ一覧をCSV出力する方法

<# ======================================================================
  インストール済みアプリ一覧をCSVに出力（ユーザー用：管理者権限なし）
  対象: 現在ログオン中ユーザーの Win32 + UWP/Store アプリ
  互換: PowerShell 5.1 / 7 系（BOM付きUTF-8）
  特色: OneDrive デスクトップ対応、UWP失敗しても処理継続
====================================================================== #>

# --- 出力先（OneDrive デスクトップ対応） -----------------------------------------
$Desktop = [Environment]::GetFolderPath('Desktop')          # OSが認識する実在のデスクトップ
$CsvPath = Join-Path $Desktop 'InstalledApplications.csv'
New-Item -ItemType Directory -Force -Path (Split-Path $CsvPath) -ErrorAction SilentlyContinue | Out-Null

# --- Win32（従来型）アプリ取得：64bit/32bit/HKCU を横断 --------------------------
$regPaths = @(
  'HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\*',        # 64bit
  'HKLM:\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\*', # 32bit
  'HKCU:\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\*'         # 現在ユーザー
)
$RegApps = foreach ($p in $regPaths) {
  Get-ItemProperty $p -ErrorAction SilentlyContinue |
    Where-Object {
      $_.DisplayName -and
      (-not $_.SystemComponent -or $_.SystemComponent -eq 0) -and
      (-not $_.ReleaseType -or ($_.ReleaseType -notin 'Update','Hotfix')) -and
      (-not $_.ParentKeyName)
    } |
    Select-Object @{
        Name='Name';       Expression={$_.DisplayName}
      },@{
        Name='Version';    Expression={$_.DisplayVersion}
      },@{
        Name='Publisher';  Expression={$_.Publisher}
      },@{
        # レジストリの InstallDate は yyyyMMdd 文字列のことが多い → DateTimeへ
        Name='InstallDate';Expression={
          if ($_.PSObject.Properties.Name -contains 'InstallDate' -and $_.InstallDate -match '^\d{8}$') {
            [datetime]::ParseExact($_.InstallDate,'yyyyMMdd',$null)
          } else { $null }
        }
      }
}

# --- UWP/Store（現在ユーザー）取得：環境差が大きいので try/catch で保護 ----------
$UWPApps = @()
try {
  if ($PSVersionTable.PSEdition -eq 'Core') {
    # PS7系では WinPS モジュールを互換セッション経由で読み込む
    Import-Module Appx -UseWindowsPowerShell -ErrorAction Stop
  } else {
    Import-Module Appx -ErrorAction Stop
  }

  $UWPraw = Get-AppxPackage    # 現在ユーザーのみ
  $UWPApps = $UWPraw | Select-Object @{
      Name='Name';       Expression={$_.Name}        # 例: Microsoft.WindowsNotepad
    },@{
      Name='Version';    Expression={$_.Version}
    },@{
      Name='Publisher';  Expression={$_.Publisher}
    },@{
      # 5.1互換のため ?. を使わずに順次チェック
      Name='InstallDate';Expression={
        if ($_.PSObject.Properties['InstallDate']) { $_.PSObject.Properties['InstallDate'].Value }
        elseif ($_.PSObject.Properties['InstallTime']) { $_.PSObject.Properties['InstallTime'].Value }
        elseif ($_.PSObject.Properties['DateModified']) { $_.PSObject.Properties['DateModified'].Value }
        else { $null }
      }
    }
}
catch {
  Write-Warning "UWP（Appx）取得をスキップ：$($_.Exception.Message)"
}

# --- 統合 → 重複排除（Name+Version+Publisher をキーに -Unique） → 名前順 -------
$AllApps =
  @($RegApps + $UWPApps) |
  Select-Object Name, Version, Publisher, InstallDate |
  Sort-Object Name, Version, Publisher -Unique |
  Sort-Object Name

# --- CSV 出力（PS7→utf8BOM / PS5.1→UTF8：いずれもBOM付き） ---------------------
$enc = if ($PSVersionTable.PSVersion.Major -ge 7) { 'utf8BOM' } else { 'UTF8' }
$AllApps | Export-Csv -Path $CsvPath -NoTypeInformation -Encoding $enc

Write-Host "CSV 出力完了（現在ユーザーのみ）：$CsvPath  件数：$($AllApps.Count)"

<# ======================================================================
  インストール済みアプリ一覧をCSVに出力（管理者用：全ユーザー対象）
  対象: Win32（HKLM/HKCU） + UWP/Store（-AllUsers）
  互換: PowerShell 5.1 / 7 系（BOM付きUTF-8）
  特色: OneDrive デスクトップ対応、UWP失敗しても処理継続
====================================================================== #>

# --- 管理者チェック（任意：権限不足の早期気づき用） ----------------------------
function Test-IsAdmin {
  $current = [Security.Principal.WindowsIdentity]::GetCurrent()
  $principal = New-Object Security.Principal.WindowsPrincipal($current)
  return $principal.IsInRole([Security.Principal.WindowsBuiltInRole]::Administrator)
}
if (-not (Test-IsAdmin)) {
  Write-Warning "管理者権限ではありません。UWP の -AllUsers は失敗します。管理者として実行してください。"
}

# --- 出力先（OneDrive デスクトップ対応） -----------------------------------------
$Desktop = [Environment]::GetFolderPath('Desktop')
$CsvPath = Join-Path $Desktop 'InstalledApplications_AllUsers.csv'
New-Item -ItemType Directory -Force -Path (Split-Path $CsvPath) -ErrorAction SilentlyContinue | Out-Null

# --- Win32（従来型）アプリ取得 --------------------------------------------------
$regPaths = @(
  'HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\*',            # 64bit
  'HKLM:\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\*',# 32bit
  'HKCU:\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\*'             # 現在ユーザー
)
$RegApps = foreach ($p in $regPaths) {
  Get-ItemProperty $p -ErrorAction SilentlyContinue |
    Where-Object {
      $_.DisplayName -and
      (-not $_.SystemComponent -or $_.SystemComponent -eq 0) -and
      (-not $_.ReleaseType -or ($_.ReleaseType -notin 'Update','Hotfix')) -and
      (-not $_.ParentKeyName)
    } |
    Select-Object @{
        Name='Name';       Expression={$_.DisplayName}
      },@{
        Name='Version';    Expression={$_.DisplayVersion}
      },@{
        Name='Publisher';  Expression={$_.Publisher}
      },@{
        Name='InstallDate';Expression={
          if ($_.PSObject.Properties.Name -contains 'InstallDate' -and $_.InstallDate -match '^\d{8}$') {
            [datetime]::ParseExact($_.InstallDate,'yyyyMMdd',$null)
          } else { $null }
        }
      }
}

# --- UWP/Store（全ユーザー）取得：管理者必須 -------------------------------------
$UWPApps = @()
try {
  if ($PSVersionTable.PSEdition -eq 'Core') {
    Import-Module Appx -UseWindowsPowerShell -ErrorAction Stop
  } else {
    Import-Module Appx -ErrorAction Stop
  }

  $UWPraw = Get-AppxPackage -AllUsers      # ★全ユーザー分を取得（管理者必須）
  $UWPApps = $UWPraw | Select-Object @{
      Name='Name';       Expression={$_.Name}
    },@{
      Name='Version';    Expression={$_.Version}
    },@{
      Name='Publisher';  Expression={$_.Publisher}
    },@{
      Name='InstallDate';Expression={
        if ($_.PSObject.Properties['InstallDate']) { $_.PSObject.Properties['InstallDate'].Value }
        elseif ($_.PSObject.Properties['InstallTime']) { $_.PSObject.Properties['InstallTime'].Value }
        elseif ($_.PSObject.Properties['DateModified']) { $_.PSObject.Properties['DateModified'].Value }
        else { $null }
      }
    }
}
catch {
  Write-Warning "全ユーザー UWP（Appx）取得をスキップ：$($_.Exception.Message)"
}

# --- 統合 → 重複排除（Name+Version+Publisher）→ 名前順 --------------------------
$AllApps =
  @($RegApps + $UWPApps) |
  Select-Object Name, Version, Publisher, InstallDate |
  Sort-Object Name, Version, Publisher -Unique |
  Sort-Object Name

# --- CSV 出力（PS7→utf8BOM / PS5.1→UTF8：いずれもBOM付き） ---------------------
$enc = if ($PSVersionTable.PSVersion.Major -ge 7) { 'utf8BOM' } else { 'UTF8' }
$AllApps | Export-Csv -Path $CsvPath -NoTypeInformation -Encoding $enc

Write-Host "CSV 出力完了（全ユーザー対象）：$CsvPath  件数：$($AllApps.Count)"