Get-M365Backups.ps1
|
$ignoredKL = @(600410, 602948) #Oris, Harald - Fordi reasons.... $allErrors = @() $ABO = ConvertFrom-Csv (Get-Content ".\ABO.CSV") -Delimiter ";" $vareNumre = @(170012,170013, 170000, 170002, 170003, 170004, 170005, 170006, 170007, 170008, 170009, 170096, 170119, 170120) # Varenumre i KL med backup $backupAbo = $ABO | Where-Object { $_.'Varenr.' -in $vareNumre } $uniqueKL = $backupAbo.'Kundenr.' | Group-Object -Property 'Kundenr.' | Select-Object -ExpandProperty Group | Select-Object -Unique $currentBackupsInKL = @() foreach ($kl in $uniqueKL) { $AboForKL = $backupAbo | Where-Object { $_.'Kundenr.' -eq $kl } $CurrentBackups = 0 foreach ($uniqueAbo in $AboForKL) { $antalIAlt = [int]$uniqueAbo.'Antal ialt' $faktureretAntal = [int]$uniqueAbo.'Faktureret antal' $antal = $faktureretAntal if ($antalIAlt -gt $faktureretAntal ) { $antal = $antalIAlt } $expired = $false if(($uniqueAbo.'Opsagt pr. dato').Length -gt 2) { $cancelled = [DateTime]::ParseExact($uniqueAbo.'Opsagt pr. dato', "dd-MM-yyyy", $null) $expired = (Get-Date) -gt $cancelled } if(-not $expired) { $CurrentBackups = $CurrentBackups + $antal } } $currentBackupsInKL += [pscustomobject]@{ KL = $kl CurrentBackups = $CurrentBackups } } $templateId = "14381c7c-1cd7-43e5-bf4b-a97700b159b3" ## The ID of the backup in Curanet API $allSubscriptions = Get-CuranetCustomerSubscriptions -Account 3850 $allActiveBackus = @() $customersWithoutRef = $allSubscriptions | Where-Object { -not $_.subscriptionRef } Write-Host "Found $($customersWithoutRef.Count) subscriptions without subscriptionRef/KL" foreach ( $subscription in ($allSubscriptions | Where-Object { ($_.subscriptionRef -ne $null) -and ($_.subscriptionRef -notlike 'INTER') }) ) { if ($subscription.state -ne 'Running') { continue } $kl = ($subscription.subscriptionRef).Trim() if ($ignoredKL -contains $kl) { continue } $details = Get-CuranetCustomerSubscriptionDetails -SubscriptionId $subscription.id -Account 3850 $products = $details.products $backups = $products | Where-Object { $_.templateId -eq $templateId } if (-not $backups) { continue } $obj = [pscustomobject]@{ Domain = $subscription.description KL = $kl ActiveBackups = [int]$backups.quantity } $allActiveBackus += $obj $match = $currentBackupsInKL | Where-Object { $_.KL -eq $kl } if(-not $match) { Write-Host "No match for KL $kl - We have $($obj.ActiveBackups) active backups" continue } if ($match.CurrentBackups -lt $obj.ActiveBackups) { Write-Host "KL $kl has $($obj.ActiveBackups) active backups, but $($match.CurrentBackups) in KL ABO" $allErrors += [pscustomobject]@{ KL = $kl ActiveBackups = $obj.ActiveBackups CurrentBackups = $match.CurrentBackups } } } |