diff --git a/Sharepoint_ToolBox.ps1 b/Sharepoint_ToolBox.ps1
deleted file mode 100644
index 08003d8..0000000
--- a/Sharepoint_ToolBox.ps1
+++ /dev/null
@@ -1,6408 +0,0 @@
-Add-Type -AssemblyName System.Windows.Forms
-Add-Type -AssemblyName System.Drawing
-
-#region ===== Shared Helpers =====
-
-function Write-Log {
- param([string]$Message, [string]$Color = "LightGreen")
- if ($script:LogBox -and !$script:LogBox.IsDisposed) {
- $script:LogBox.SelectionStart = $script:LogBox.TextLength
- $script:LogBox.SelectionLength = 0
- $script:LogBox.SelectionColor = [System.Drawing.Color]::$Color
- $script:LogBox.AppendText("$(Get-Date -Format 'HH:mm:ss') - $Message`n")
- $script:LogBox.ScrollToCaret()
- [System.Windows.Forms.Application]::DoEvents()
- }
- Write-Host $Message
-}
-
-function EscHtml([string]$s) {
- return $s -replace '&','&' -replace '<','<' -replace '>','>' -replace '"','"'
-}
-
-function Format-Bytes([long]$b) {
- if ($b -ge 1GB) { return "$([math]::Round($b/1GB,2)) GB" }
- if ($b -ge 1MB) { return "$([math]::Round($b/1MB,1)) MB" }
- if ($b -ge 1KB) { return "$([math]::Round($b/1KB,0)) KB" }
- return "$b B"
-}
-
-function Validate-Inputs {
- if ([string]::IsNullOrWhiteSpace($script:txtClientId.Text)) {
- $msg = T "validate.missing.clientid.hint"
- [System.Windows.Forms.MessageBox]::Show($msg, (T "validate.missing.title"), "OK", "Warning")
- return $false
- }
- $hasSites = ($script:SelectedSites -and $script:SelectedSites.Count -gt 0)
- if (-not $hasSites -and [string]::IsNullOrWhiteSpace($script:txtSiteURL.Text)) {
- [System.Windows.Forms.MessageBox]::Show(
- "Please enter a Site URL or select sites via 'Voir les sites'.",
- "Missing Field", "OK", "Warning")
- return $false
- }
- return $true
-}
-
-#endregion
-
-#region ===== Profile Management =====
-
-function Get-ProfilesFilePath {
- $dir = if ($script:DataFolder) { $script:DataFolder }
- elseif ($PSScriptRoot) { $PSScriptRoot }
- else { $PWD.Path }
- return Join-Path $dir "Sharepoint_Export_profiles.json"
-}
-
-function Load-Profiles {
- $path = Get-ProfilesFilePath
- if (Test-Path $path) {
- try {
- $data = Get-Content $path -Raw | ConvertFrom-Json
- if ($data.profiles) { return @($data.profiles) }
- } catch {}
- }
- return @()
-}
-
-function Save-Profiles {
- param([array]$Profiles)
- $path = Get-ProfilesFilePath
- @{ profiles = @($Profiles) } | ConvertTo-Json -Depth 5 | Set-Content $path -Encoding UTF8
-}
-
-function Show-InputDialog {
- param(
- [string]$Prompt,
- [string]$Title,
- [string]$Default = "",
- [System.Windows.Forms.Form]$Owner = $null
- )
- $dlg = New-Object System.Windows.Forms.Form
- $dlg.Text = $Title
- $dlg.Size = New-Object System.Drawing.Size(380, 140)
- $dlg.StartPosition = "CenterParent"
- $dlg.FormBorderStyle = "FixedDialog"
- $dlg.MaximizeBox = $false
- $dlg.MinimizeBox = $false
- $dlg.BackColor = [System.Drawing.Color]::WhiteSmoke
- $lbl = New-Object System.Windows.Forms.Label
- $lbl.Text = $Prompt; $lbl.Location = New-Object System.Drawing.Point(10,10)
- $lbl.Size = New-Object System.Drawing.Size(340,20)
- $txt = New-Object System.Windows.Forms.TextBox
- $txt.Text = $Default; $txt.Location = New-Object System.Drawing.Point(10,36)
- $txt.Size = New-Object System.Drawing.Size(340,22)
- $btnOK = New-Object System.Windows.Forms.Button
- $btnOK.Text = "OK"; $btnOK.Location = New-Object System.Drawing.Point(152,70)
- $btnOK.Size = New-Object System.Drawing.Size(80,26); $btnOK.DialogResult = "OK"
- $dlg.AcceptButton = $btnOK
- $btnCancel = New-Object System.Windows.Forms.Button
- $btnCancel.Text = "Annuler"; $btnCancel.Location = New-Object System.Drawing.Point(246,70)
- $btnCancel.Size = New-Object System.Drawing.Size(104,26); $btnCancel.DialogResult = "Cancel"
- $dlg.CancelButton = $btnCancel
- $dlg.Controls.AddRange(@($lbl, $txt, $btnOK, $btnCancel))
- $result = if ($Owner) { $dlg.ShowDialog($Owner) } else { $dlg.ShowDialog() }
- if ($result -eq "OK") { return $txt.Text.Trim() }
- return $null
-}
-
-function Refresh-ProfileList {
- $script:Profiles = Load-Profiles
- $script:cboProfile.Items.Clear()
- foreach ($p in $script:Profiles) { [void]$script:cboProfile.Items.Add($p.name) }
- if ($script:cboProfile.Items.Count -gt 0) { $script:cboProfile.SelectedIndex = 0 }
-}
-
-function Apply-Profile {
- param([int]$idx)
- if ($idx -lt 0 -or $idx -ge $script:Profiles.Count) { return }
- $p = $script:Profiles[$idx]
- if ($p.clientId) { $script:txtClientId.Text = $p.clientId }
- if ($p.tenantUrl) { $script:txtTenantUrl.Text = $p.tenantUrl }
- # Reset site selection when switching profile
- $script:SelectedSites = @()
- $script:btnBrowseSites.Text = "Voir les sites"
-}
-
-#endregion
-
-#region ===== Settings =====
-
-function Get-SettingsFilePath {
- $dir = if ($PSScriptRoot) { $PSScriptRoot } else { $PWD.Path }
- return Join-Path $dir "Sharepoint_Settings.json"
-}
-
-function Load-Settings {
- $path = Get-SettingsFilePath
- if (Test-Path $path) {
- try {
- $data = Get-Content $path -Raw | ConvertFrom-Json
- return $data
- } catch {}
- }
- return [PSCustomObject]@{ dataFolder = ""; lang = "en" }
-}
-
-function Save-Settings {
- param([string]$DataFolder, [string]$Lang = "en")
- $path = Get-SettingsFilePath
- [PSCustomObject]@{ dataFolder = $DataFolder; lang = $Lang } |
- ConvertTo-Json | Set-Content $path -Encoding UTF8
-}
-
-#endregion
-
-#region ===== Site Picker =====
-
-# All state in $script:_pkl; accessible from any event handler (no closure tricks needed)
-
-function _Pkl-FormatMB([long]$mb) {
- if ($mb -ge 1024) { return "$([math]::Round($mb / 1024, 1)) GB" }
- if ($mb -gt 0) { return "$mb MB" }
- return "-"
-}
-
-function _Pkl-Sort {
- $col = $script:_pkl.SortCol
- $desc = -not $script:_pkl.SortAsc
- $script:_pkl.AllSites = @(switch ($col) {
- 0 { $script:_pkl.AllSites | Sort-Object -Property Title -Descending:$desc }
- 1 { $script:_pkl.AllSites | Sort-Object -Property { [int][bool]$_.IsTeamsConnected } -Descending:$desc }
- 2 { $script:_pkl.AllSites | Sort-Object -Property { [long]$_.StorageUsageCurrent } -Descending:$desc }
- default { $script:_pkl.AllSites | Sort-Object -Property Title -Descending:$desc }
- })
- $lv = $script:_pkl.Lv
- $dir = if (-not $desc) { " ^" } else { " v" }
- $script:_pkl.ColNames | ForEach-Object -Begin { $i = 0 } -Process {
- $lv.Columns[$i].Text = $_ + $(if ($i -eq $col) { $dir } else { "" })
- $i++
- }
-}
-
-function _Pkl-Repopulate {
- $filter = $script:_pkl.TxtFilter.Text.ToLower()
- $lv = $script:_pkl.Lv
- $script:_pkl.SuppressCheck = $true
- $lv.BeginUpdate()
- $lv.Items.Clear()
- $visible = if ($filter) {
- $script:_pkl.AllSites | Where-Object {
- $_.Title.ToLower().Contains($filter) -or $_.Url.ToLower().Contains($filter)
- }
- } else { $script:_pkl.AllSites }
- foreach ($s in $visible) {
- $teams = if ($s.IsTeamsConnected) { "Oui" } else { "Non" }
- $stor = _Pkl-FormatMB ([long]$s.StorageUsageCurrent)
- $item = New-Object System.Windows.Forms.ListViewItem($s.Title)
- $item.Tag = $s.Url
- [void]$item.SubItems.Add($teams)
- [void]$item.SubItems.Add($stor)
- [void]$item.SubItems.Add($s.Url)
- [void]$lv.Items.Add($item)
- $item.Checked = $script:_pkl.CheckedUrls.Contains($s.Url)
- }
- $lv.EndUpdate()
- $script:_pkl.SuppressCheck = $false
- $script:_pkl.LblStatus.Text = "$($script:_pkl.CheckedUrls.Count) coche(s) -- " +
- "$($lv.Items.Count) affiche(s) sur $($script:_pkl.AllSites.Count)"
- $script:_pkl.LblStatus.ForeColor = [System.Drawing.Color]::Gray
-}
-
-function Show-SitePicker {
- param(
- [string]$TenantUrl,
- [string]$ClientId,
- [System.Windows.Forms.Form]$Owner = $null,
- [object[]]$InitialSites = @(),
- [string[]]$PreSelected = @()
- )
-
- $dlg = New-Object System.Windows.Forms.Form
- $dlg.Text = "Sites SharePoint -- $TenantUrl"
- $dlg.Size = New-Object System.Drawing.Size(900, 580)
- $dlg.StartPosition = "CenterParent"
- $dlg.FormBorderStyle = "Sizable"
- $dlg.MinimumSize = New-Object System.Drawing.Size(600, 440)
- $dlg.BackColor = [System.Drawing.Color]::WhiteSmoke
-
- # -- Top bar --
- $lblFilter = New-Object System.Windows.Forms.Label
- $lblFilter.Text = "Filtrer :"
- $lblFilter.Location = New-Object System.Drawing.Point(10, 12)
- $lblFilter.Size = New-Object System.Drawing.Size(52, 22)
- $lblFilter.TextAlign = "MiddleLeft"
-
- $txtFilter = New-Object System.Windows.Forms.TextBox
- $txtFilter.Location = New-Object System.Drawing.Point(66, 10)
- $txtFilter.Size = New-Object System.Drawing.Size(570, 22)
- $txtFilter.Font = New-Object System.Drawing.Font("Segoe UI", 9)
- $txtFilter.Anchor = [System.Windows.Forms.AnchorStyles]"Top,Left,Right"
-
- $btnLoad = New-Object System.Windows.Forms.Button
- $btnLoad.Text = "Charger les sites"
- $btnLoad.Location = New-Object System.Drawing.Point(648, 8)
- $btnLoad.Size = New-Object System.Drawing.Size(148, 26)
- $btnLoad.Anchor = [System.Windows.Forms.AnchorStyles]"Top,Right"
- $btnLoad.BackColor = [System.Drawing.Color]::SteelBlue
- $btnLoad.ForeColor = [System.Drawing.Color]::White
- $btnLoad.FlatStyle = "Flat"
- $btnLoad.Font = New-Object System.Drawing.Font("Segoe UI", 9, [System.Drawing.FontStyle]::Bold)
-
- # -- Site list (ListView with columns) --
- $lv = New-Object System.Windows.Forms.ListView
- $lv.Location = New-Object System.Drawing.Point(10, 44)
- $lv.Size = New-Object System.Drawing.Size(864, 400)
- $lv.Anchor = [System.Windows.Forms.AnchorStyles]"Top,Bottom,Left,Right"
- $lv.View = [System.Windows.Forms.View]::Details
- $lv.CheckBoxes = $true
- $lv.FullRowSelect = $true
- $lv.GridLines = $true
- $lv.Font = New-Object System.Drawing.Font("Segoe UI", 9)
- $lv.HeaderStyle = [System.Windows.Forms.ColumnHeaderStyle]::Clickable
-
- [void]$lv.Columns.Add("Nom", 380)
- [void]$lv.Columns.Add("Equipe Teams", 90)
- [void]$lv.Columns.Add("Stockage", 100)
- [void]$lv.Columns.Add("URL", 280)
-
- # -- Status bar --
- $lblStatus = New-Object System.Windows.Forms.Label
- $lblStatus.Text = "Cliquez sur 'Charger les sites' pour recuperer la liste du tenant."
- $lblStatus.Location = New-Object System.Drawing.Point(10, 456)
- $lblStatus.Size = New-Object System.Drawing.Size(860, 18)
- $lblStatus.Anchor = [System.Windows.Forms.AnchorStyles]"Bottom,Left,Right"
- $lblStatus.ForeColor = [System.Drawing.Color]::Gray
- $lblStatus.Font = New-Object System.Drawing.Font("Segoe UI", 8, [System.Drawing.FontStyle]::Italic)
-
- # -- Bottom buttons --
- $btnSelAll = New-Object System.Windows.Forms.Button
- $btnSelAll.Text = "Tout selectionner"
- $btnSelAll.Location = New-Object System.Drawing.Point(10, 484)
- $btnSelAll.Size = New-Object System.Drawing.Size(130, 26)
- $btnSelAll.Anchor = [System.Windows.Forms.AnchorStyles]"Bottom,Left"
-
- $btnSelNone = New-Object System.Windows.Forms.Button
- $btnSelNone.Text = "Tout decocher"
- $btnSelNone.Location = New-Object System.Drawing.Point(148, 484)
- $btnSelNone.Size = New-Object System.Drawing.Size(110, 26)
- $btnSelNone.Anchor = [System.Windows.Forms.AnchorStyles]"Bottom,Left"
-
- $btnOK = New-Object System.Windows.Forms.Button
- $btnOK.Text = "OK"
- $btnOK.Location = New-Object System.Drawing.Point(694, 484)
- $btnOK.Size = New-Object System.Drawing.Size(90, 26)
- $btnOK.Anchor = [System.Windows.Forms.AnchorStyles]"Bottom,Right"
- $btnOK.DialogResult = "OK"
- $btnOK.BackColor = [System.Drawing.Color]::SteelBlue
- $btnOK.ForeColor = [System.Drawing.Color]::White
- $btnOK.FlatStyle = "Flat"
- $btnOK.Enabled = $false
-
- $btnDlgCancel = New-Object System.Windows.Forms.Button
- $btnDlgCancel.Text = "Annuler"
- $btnDlgCancel.Location = New-Object System.Drawing.Point(794, 484)
- $btnDlgCancel.Size = New-Object System.Drawing.Size(90, 26)
- $btnDlgCancel.Anchor = [System.Windows.Forms.AnchorStyles]"Bottom,Right"
- $btnDlgCancel.DialogResult = "Cancel"
-
- $dlg.AcceptButton = $btnOK
- $dlg.CancelButton = $btnDlgCancel
- $dlg.Controls.AddRange(@($lblFilter, $txtFilter, $btnLoad, $lv, $lblStatus,
- $btnSelAll, $btnSelNone, $btnOK, $btnDlgCancel))
-
- # Init script-scope state (modal dialog - no concurrency issue)
- $script:_pkl = @{
- AllSites = @()
- CheckedUrls = [System.Collections.Generic.HashSet[string]]::new(
- [System.StringComparer]::OrdinalIgnoreCase)
- Lv = $lv
- TxtFilter = $txtFilter
- LblStatus = $lblStatus
- BtnOK = $btnOK
- BtnLoad = $btnLoad
- SuppressCheck = $false
- SortCol = 0
- SortAsc = $true
- ColNames = @("Nom", "Equipe Teams", "Stockage", "URL")
- Sync = $null
- Timer = $null
- RS = $null
- PS = $null
- Hnd = $null
- AdminUrl = if ($TenantUrl -match '^(https?://[^.]+)(\.sharepoint\.com.*)') {
- "$($Matches[1])-admin$($Matches[2])"
- } else { $null }
- ClientId = $ClientId
- }
-
- # Pre-populate from cache + restore previous selection
- if ($InitialSites -and $InitialSites.Count -gt 0) {
- $script:_pkl.AllSites = @($InitialSites)
- foreach ($url in $PreSelected) { [void]$script:_pkl.CheckedUrls.Add($url) }
- $btnLoad.Text = "Recharger"
- _Pkl-Sort
- _Pkl-Repopulate
- $script:_pkl.BtnOK.Enabled = $true
- }
-
- # ItemChecked fires AFTER the checked state changes (unlike ItemCheck)
- $lv.Add_ItemChecked({
- param($s, $e)
- if ($script:_pkl.SuppressCheck) { return }
- $url = $e.Item.Tag
- if ($e.Item.Checked) { [void]$script:_pkl.CheckedUrls.Add($url) }
- else { [void]$script:_pkl.CheckedUrls.Remove($url) }
- $script:_pkl.LblStatus.Text = "$($script:_pkl.CheckedUrls.Count) coche(s) -- " +
- "$($script:_pkl.Lv.Items.Count) affiche(s) sur $($script:_pkl.AllSites.Count)"
- })
-
- $lv.Add_ColumnClick({
- param($s, $e)
- if ($script:_pkl.SortCol -eq $e.Column) {
- $script:_pkl.SortAsc = -not $script:_pkl.SortAsc
- } else {
- $script:_pkl.SortCol = $e.Column
- $script:_pkl.SortAsc = $true
- }
- _Pkl-Sort
- _Pkl-Repopulate
- })
-
- $txtFilter.Add_TextChanged({ _Pkl-Repopulate })
-
- $btnSelAll.Add_Click({
- $script:_pkl.CheckedUrls.Clear()
- $script:_pkl.SuppressCheck = $true
- foreach ($item in $script:_pkl.Lv.Items) {
- $item.Checked = $true
- [void]$script:_pkl.CheckedUrls.Add($item.Tag)
- }
- $script:_pkl.SuppressCheck = $false
- $script:_pkl.LblStatus.Text = "$($script:_pkl.CheckedUrls.Count) coche(s) -- " +
- "$($script:_pkl.Lv.Items.Count) affiche(s) sur $($script:_pkl.AllSites.Count)"
- })
-
- $btnSelNone.Add_Click({
- $script:_pkl.CheckedUrls.Clear()
- $script:_pkl.SuppressCheck = $true
- foreach ($item in $script:_pkl.Lv.Items) { $item.Checked = $false }
- $script:_pkl.SuppressCheck = $false
- $script:_pkl.LblStatus.Text = "0 coche(s) -- " +
- "$($script:_pkl.Lv.Items.Count) affiche(s) sur $($script:_pkl.AllSites.Count)"
- })
-
- $btnLoad.Add_Click({
- if (-not $script:_pkl.AdminUrl) {
- [System.Windows.Forms.MessageBox]::Show(
- "URL Tenant invalide (attendu: https://xxx.sharepoint.com).",
- "Erreur", "OK", "Error")
- return
- }
- $script:_pkl.BtnLoad.Enabled = $false
- $script:_pkl.BtnOK.Enabled = $false
- $script:_pkl.Lv.Items.Clear()
- $script:_pkl.AllSites = @()
- $script:_pkl.LblStatus.Text = "Connexion a $($script:_pkl.AdminUrl) ..."
- $script:_pkl.LblStatus.ForeColor = [System.Drawing.Color]::DarkOrange
-
- $sync = [hashtable]::Synchronized(@{ Done = $false; Error = $null; Sites = $null })
- $script:_pkl.Sync = $sync
-
- $bgFetch = {
- param($AdminUrl, $ClientId, $Sync)
- try {
- Import-Module PnP.PowerShell -ErrorAction Stop
- Connect-PnPOnline -Url $AdminUrl -Interactive -ClientId $ClientId
- $Sync.Sites = @(
- Get-PnPTenantSite |
- Select-Object Title, Url, IsTeamsConnected, StorageUsageCurrent |
- Sort-Object Title
- )
- } catch { $Sync.Error = $_.Exception.Message }
- finally { $Sync.Done = $true }
- }
-
- $rs = [System.Management.Automation.Runspaces.RunspaceFactory]::CreateRunspace()
- $rs.ApartmentState = "STA"; $rs.ThreadOptions = "ReuseThread"; $rs.Open()
- $ps = [System.Management.Automation.PowerShell]::Create()
- $ps.Runspace = $rs
- [void]$ps.AddScript($bgFetch)
- [void]$ps.AddArgument($script:_pkl.AdminUrl)
- [void]$ps.AddArgument($script:_pkl.ClientId)
- [void]$ps.AddArgument($sync)
- $script:_pkl.RS = $rs
- $script:_pkl.PS = $ps
- $script:_pkl.Hnd = $ps.BeginInvoke()
-
- $tmr = New-Object System.Windows.Forms.Timer
- $tmr.Interval = 300
- $script:_pkl.Timer = $tmr
-
- $tmr.Add_Tick({
- if ($script:_pkl.Sync.Done) {
- $script:_pkl.Timer.Stop(); $script:_pkl.Timer.Dispose()
- try { [void]$script:_pkl.PS.EndInvoke($script:_pkl.Hnd) } catch {}
- try { $script:_pkl.RS.Close(); $script:_pkl.RS.Dispose() } catch {}
- $script:_pkl.BtnLoad.Enabled = $true
- if ($script:_pkl.Sync.Error) {
- $script:_pkl.LblStatus.Text = "Erreur: $($script:_pkl.Sync.Error)"
- $script:_pkl.LblStatus.ForeColor = [System.Drawing.Color]::Red
- } else {
- $script:_pkl.AllSites = @($script:_pkl.Sync.Sites)
- $script:_SiteCache = @($script:_pkl.Sync.Sites)
- _Pkl-Sort
- _Pkl-Repopulate
- $script:_pkl.BtnLoad.Text = "Recharger"
- $script:_pkl.BtnOK.Enabled = ($script:_pkl.Lv.Items.Count -gt 0)
- }
- } else {
- $dot = "." * (([System.DateTime]::Now.Second % 4) + 1)
- $script:_pkl.LblStatus.Text = "Chargement$dot"
- }
- })
- $tmr.Start()
- })
-
- $result = if ($Owner) { $dlg.ShowDialog($Owner) } else { $dlg.ShowDialog() }
-
- if ($result -eq "OK") { return ,@($script:_pkl.CheckedUrls) }
- return $null
-}
-
-#endregion
-
-#region ===== Template Management =====
-
-function Get-TemplatesFilePath {
- $dir = if ($script:DataFolder) { $script:DataFolder }
- elseif ($PSScriptRoot) { $PSScriptRoot }
- else { $PWD.Path }
- return Join-Path $dir "Sharepoint_Templates.json"
-}
-
-function Load-Templates {
- $path = Get-TemplatesFilePath
- if (Test-Path $path) {
- try {
- $data = Get-Content $path -Raw | ConvertFrom-Json
- if ($data.templates) { return @($data.templates) }
- } catch {}
- }
- return @()
-}
-
-function Save-Templates {
- param([array]$Templates)
- $path = Get-TemplatesFilePath
- @{ templates = @($Templates) } | ConvertTo-Json -Depth 20 | Set-Content $path -Encoding UTF8
-}
-
-# Script-scope helpers (accessible from all event handlers - no closure tricks)
-function _Tpl-Repopulate {
- $lv = $script:_tpl.Lv
- $lv.BeginUpdate()
- $lv.Items.Clear()
- foreach ($t in $script:_tpl.Templates) {
- $opts = @()
- if ($t.options.structure) { $opts += "Arborescence" }
- if ($t.options.permissions) { $opts += "Permissions" }
- if ($t.options.settings) { $opts += "Parametres" }
- if ($t.options.style) { $opts += "Style" }
- $item = New-Object System.Windows.Forms.ListViewItem($t.name)
- $item.Tag = $t
- $srcText = if ($t.sourceUrl) { $t.sourceUrl } else { "" }
- $datText = if ($t.capturedAt) { $t.capturedAt } else { "" }
- [void]$item.SubItems.Add($srcText)
- [void]$item.SubItems.Add($datText)
- [void]$item.SubItems.Add(($opts -join ", "))
- [void]$lv.Items.Add($item)
- }
- $lv.EndUpdate()
- $script:_tpl.BtnDelete.Enabled = $false
- $script:_tpl.BtnCreate.Enabled = $false
-}
-
-function _Tpl-RefreshCombo {
- $cbo = $script:_tpl.CboCrTpl
- $cbo.Items.Clear()
- foreach ($t in $script:_tpl.Templates) { [void]$cbo.Items.Add($t.name) }
- if ($cbo.Items.Count -gt 0) { $cbo.SelectedIndex = 0 }
-}
-
-function _Tpl-Log {
- param([System.Windows.Forms.RichTextBox]$Box, [string]$Msg, [string]$Color = "LightGreen")
- $Box.SelectionStart = $Box.TextLength
- $Box.SelectionLength = 0
- $Box.SelectionColor = [System.Drawing.Color]::$Color
- $Box.AppendText("$(Get-Date -Format 'HH:mm:ss') - $Msg`n")
- $Box.ScrollToCaret()
-}
-
-function Show-TemplateManager {
- param(
- [string]$DefaultSiteUrl = "",
- [string]$ClientId = "",
- [string]$TenantUrl = "",
- [System.Windows.Forms.Form]$Owner = $null
- )
-
- $dlg = New-Object System.Windows.Forms.Form
- $dlg.Text = "Gestionnaire de Templates SharePoint"
- $dlg.Size = New-Object System.Drawing.Size(980, 700)
- $dlg.StartPosition = "CenterParent"
- $dlg.FormBorderStyle = "Sizable"
- $dlg.MinimumSize = New-Object System.Drawing.Size(700, 560)
- $dlg.BackColor = [System.Drawing.Color]::WhiteSmoke
-
- # ── Template list ──────────────────────────────────────────────────────
- $grpList = New-Object System.Windows.Forms.GroupBox
- $grpList.Text = "Templates enregistres"
- $grpList.Location = New-Object System.Drawing.Point(10, 8)
- $grpList.Size = New-Object System.Drawing.Size(950, 174)
- $grpList.Anchor = [System.Windows.Forms.AnchorStyles]"Top,Left,Right"
- $grpList.Font = New-Object System.Drawing.Font("Segoe UI", 9, [System.Drawing.FontStyle]::Bold)
-
- $lv = New-Object System.Windows.Forms.ListView
- $lv.Location = New-Object System.Drawing.Point(8, 22)
- $lv.Size = New-Object System.Drawing.Size(820, 138)
- $lv.Anchor = [System.Windows.Forms.AnchorStyles]"Top,Left,Right"
- $lv.View = [System.Windows.Forms.View]::Details
- $lv.FullRowSelect = $true
- $lv.GridLines = $true
- $lv.MultiSelect = $false
- $lv.Font = New-Object System.Drawing.Font("Segoe UI", 9, [System.Drawing.FontStyle]::Regular)
- [void]$lv.Columns.Add("Nom", 200)
- [void]$lv.Columns.Add("Site source", 280)
- [void]$lv.Columns.Add("Date", 120)
- [void]$lv.Columns.Add("Options capturees", 200)
-
- $btnDelete = New-Object System.Windows.Forms.Button
- $btnDelete.Text = "Supprimer"
- $btnDelete.Location = New-Object System.Drawing.Point(836, 22)
- $btnDelete.Size = New-Object System.Drawing.Size(106, 26)
- $btnDelete.Anchor = [System.Windows.Forms.AnchorStyles]"Top,Right"
- $btnDelete.Enabled = $false
-
- $btnCreate = New-Object System.Windows.Forms.Button
- $btnCreate.Text = "Creer depuis ce template >"
- $btnCreate.Location = New-Object System.Drawing.Point(836, 56)
- $btnCreate.Size = New-Object System.Drawing.Size(106, 42)
- $btnCreate.Anchor = [System.Windows.Forms.AnchorStyles]"Top,Right"
- $btnCreate.Enabled = $false
- $btnCreate.BackColor = [System.Drawing.Color]::SteelBlue
- $btnCreate.ForeColor = [System.Drawing.Color]::White
- $btnCreate.FlatStyle = "Flat"
- $btnCreate.Font = New-Object System.Drawing.Font("Segoe UI", 8, [System.Drawing.FontStyle]::Bold)
-
- $grpList.Controls.AddRange(@($lv, $btnDelete, $btnCreate))
-
- # ── Bottom tabs ────────────────────────────────────────────────────────
- $btabs = New-Object System.Windows.Forms.TabControl
- $btabs.Location = New-Object System.Drawing.Point(10, 190)
- $btabs.Size = New-Object System.Drawing.Size(950, 464)
- $btabs.Anchor = [System.Windows.Forms.AnchorStyles]"Top,Bottom,Left,Right"
- $btabs.Font = New-Object System.Drawing.Font("Segoe UI", 9)
-
- # ── Tab: Capturer ──────────────────────────────────────────────────────
- $tabCap = New-Object System.Windows.Forms.TabPage
- $tabCap.Text = " Capturer un template "
- $tabCap.BackColor = [System.Drawing.Color]::WhiteSmoke
-
- $mkLbl = {
- param($t,$x,$y,$w=110)
- $l = New-Object System.Windows.Forms.Label
- $l.Text = $t; $l.Location = New-Object System.Drawing.Point($x,$y)
- $l.Size = New-Object System.Drawing.Size($w,22); $l.TextAlign = "MiddleLeft"; $l
- }
-
- $lblCapSrc = & $mkLbl "Site source :" 10 18
- $txtCapSrc = New-Object System.Windows.Forms.TextBox
- $txtCapSrc.Location = New-Object System.Drawing.Point(128, 18)
- $txtCapSrc.Size = New-Object System.Drawing.Size(560, 22)
- $txtCapSrc.Text = $DefaultSiteUrl
- $txtCapSrc.Font = New-Object System.Drawing.Font("Consolas", 9)
-
- $lblCapName = & $mkLbl "Nom du template :" 10 48 120
- $txtCapName = New-Object System.Windows.Forms.TextBox
- $txtCapName.Location = New-Object System.Drawing.Point(134, 48)
- $txtCapName.Size = New-Object System.Drawing.Size(300, 22)
- $txtCapName.Font = New-Object System.Drawing.Font("Segoe UI", 9)
-
- $grpOpts = New-Object System.Windows.Forms.GroupBox
- $grpOpts.Text = "Elements a capturer"
- $grpOpts.Location = New-Object System.Drawing.Point(10, 80)
- $grpOpts.Size = New-Object System.Drawing.Size(680, 68)
- $grpOpts.Font = New-Object System.Drawing.Font("Segoe UI", 9, [System.Drawing.FontStyle]::Bold)
-
- $mkChk = {
- param($t,$x,$y,$w,$checked=$false)
- $c = New-Object System.Windows.Forms.CheckBox
- $c.Text = $t; $c.Location = New-Object System.Drawing.Point($x,$y)
- $c.Size = New-Object System.Drawing.Size($w,20)
- $c.Font = New-Object System.Drawing.Font("Segoe UI",9,[System.Drawing.FontStyle]::Regular)
- $c.Checked = $checked; $c
- }
-
- $chkCapStruct = & $mkChk "Arborescence (bibliotheques et dossiers)" 10 22 300 $true
- $chkCapPerms = & $mkChk "Permissions (groupes et roles)" 320 22 260
- $chkCapSettings = & $mkChk "Parametres du site (titre, langue...)" 10 44 300 $true
- $chkCapStyle = & $mkChk "Style (logo)" 320 44 200
- $grpOpts.Controls.AddRange(@($chkCapStruct, $chkCapPerms, $chkCapSettings, $chkCapStyle))
-
- $btnCapture = New-Object System.Windows.Forms.Button
- $btnCapture.Text = "Lancer la capture"
- $btnCapture.Location = New-Object System.Drawing.Point(10, 162)
- $btnCapture.Size = New-Object System.Drawing.Size(155, 34)
- $btnCapture.BackColor = [System.Drawing.Color]::FromArgb(16,124,16)
- $btnCapture.ForeColor = [System.Drawing.Color]::White
- $btnCapture.FlatStyle = "Flat"
- $btnCapture.Font = New-Object System.Drawing.Font("Segoe UI", 9, [System.Drawing.FontStyle]::Bold)
-
- $txtCapLog = New-Object System.Windows.Forms.RichTextBox
- $txtCapLog.Location = New-Object System.Drawing.Point(10, 206)
- $txtCapLog.Size = New-Object System.Drawing.Size(918, 208)
- $txtCapLog.Anchor = [System.Windows.Forms.AnchorStyles]"Top,Bottom,Left,Right"
- $txtCapLog.ReadOnly = $true
- $txtCapLog.BackColor = [System.Drawing.Color]::Black
- $txtCapLog.ForeColor = [System.Drawing.Color]::LightGreen
- $txtCapLog.Font = New-Object System.Drawing.Font("Consolas", 8)
- $txtCapLog.ScrollBars = "Vertical"
-
- $tabCap.Controls.AddRange(@($lblCapSrc, $txtCapSrc, $lblCapName, $txtCapName,
- $grpOpts, $btnCapture, $txtCapLog))
-
- # ── Tab: Creer depuis template ─────────────────────────────────────────
- $tabCr = New-Object System.Windows.Forms.TabPage
- $tabCr.Text = " Creer depuis un template "
- $tabCr.BackColor = [System.Drawing.Color]::WhiteSmoke
-
- $lblCrTpl = & $mkLbl "Template :" 10 18
- $cboCrTpl = New-Object System.Windows.Forms.ComboBox
- $cboCrTpl.Location = New-Object System.Drawing.Point(128, 16)
- $cboCrTpl.Size = New-Object System.Drawing.Size(400, 24)
- $cboCrTpl.DropDownStyle = "DropDownList"
- $cboCrTpl.Font = New-Object System.Drawing.Font("Segoe UI", 9)
-
- $lblCrTitle = & $mkLbl "Titre du site :" 10 48
- $txtCrTitle = New-Object System.Windows.Forms.TextBox
- $txtCrTitle.Location = New-Object System.Drawing.Point(128, 46)
- $txtCrTitle.Size = New-Object System.Drawing.Size(300, 22)
- $txtCrTitle.Font = New-Object System.Drawing.Font("Segoe UI", 9)
-
- $lblCrAlias = & $mkLbl "Alias URL :" 10 78
- $txtCrAlias = New-Object System.Windows.Forms.TextBox
- $txtCrAlias.Location = New-Object System.Drawing.Point(128, 76)
- $txtCrAlias.Size = New-Object System.Drawing.Size(200, 22)
- $txtCrAlias.Font = New-Object System.Drawing.Font("Consolas", 9)
-
- $lblCrAliasHint = New-Object System.Windows.Forms.Label
- $lblCrAliasHint.Text = "(lettres, chiffres, tirets uniquement)"
- $lblCrAliasHint.Location = New-Object System.Drawing.Point(336, 78)
- $lblCrAliasHint.Size = New-Object System.Drawing.Size(250, 20)
- $lblCrAliasHint.ForeColor = [System.Drawing.Color]::Gray
- $lblCrAliasHint.Font = New-Object System.Drawing.Font("Segoe UI", 8, [System.Drawing.FontStyle]::Italic)
-
- $lblCrType = & $mkLbl "Type :" 10 108
- $radCrTeam = New-Object System.Windows.Forms.RadioButton
- $radCrTeam.Text = "Team Site (avec groupe M365)"
- $radCrTeam.Location = New-Object System.Drawing.Point(128, 108)
- $radCrTeam.Size = New-Object System.Drawing.Size(220, 22)
- $radCrTeam.Checked = $true
-
- $radCrComm = New-Object System.Windows.Forms.RadioButton
- $radCrComm.Text = "Communication Site"
- $radCrComm.Location = New-Object System.Drawing.Point(358, 108)
- $radCrComm.Size = New-Object System.Drawing.Size(200, 22)
-
- $lblCrOwners = & $mkLbl "Proprietaires :" 10 138
- $txtCrOwners = New-Object System.Windows.Forms.TextBox
- $txtCrOwners.Location = New-Object System.Drawing.Point(128, 136)
- $txtCrOwners.Size = New-Object System.Drawing.Size(550, 22)
- $txtCrOwners.Font = New-Object System.Drawing.Font("Segoe UI", 9)
- $txtCrOwners.PlaceholderText = "user1@domain.com, user2@domain.com"
-
- $lblCrMembers = & $mkLbl "Membres :" 10 168
- $txtCrMembers = New-Object System.Windows.Forms.TextBox
- $txtCrMembers.Location = New-Object System.Drawing.Point(128, 166)
- $txtCrMembers.Size = New-Object System.Drawing.Size(410, 22)
- $txtCrMembers.Font = New-Object System.Drawing.Font("Segoe UI", 9)
- $txtCrMembers.PlaceholderText = "user@domain.com, ..."
-
- $btnCrCsv = New-Object System.Windows.Forms.Button
- $btnCrCsv.Text = "Importer CSV..."
- $btnCrCsv.Location = New-Object System.Drawing.Point(546, 164)
- $btnCrCsv.Size = New-Object System.Drawing.Size(120, 26)
-
- $grpApply = New-Object System.Windows.Forms.GroupBox
- $grpApply.Text = "Appliquer depuis le template"
- $grpApply.Location = New-Object System.Drawing.Point(10, 200)
- $grpApply.Size = New-Object System.Drawing.Size(680, 60)
- $grpApply.Font = New-Object System.Drawing.Font("Segoe UI", 9, [System.Drawing.FontStyle]::Bold)
-
- $chkApplyStruct = & $mkChk "Arborescence" 10 22 140 $true
- $chkApplyPerms = & $mkChk "Permissions" 158 22 120
- $chkApplySettings = & $mkChk "Parametres" 286 22 120 $true
- $chkApplyStyle = & $mkChk "Style" 414 22 100
- $grpApply.Controls.AddRange(@($chkApplyStruct, $chkApplyPerms, $chkApplySettings, $chkApplyStyle))
-
- $btnCreateSite = New-Object System.Windows.Forms.Button
- $btnCreateSite.Text = "Creer le site"
- $btnCreateSite.Location = New-Object System.Drawing.Point(10, 272)
- $btnCreateSite.Size = New-Object System.Drawing.Size(155, 34)
- $btnCreateSite.BackColor = [System.Drawing.Color]::SteelBlue
- $btnCreateSite.ForeColor = [System.Drawing.Color]::White
- $btnCreateSite.FlatStyle = "Flat"
- $btnCreateSite.Font = New-Object System.Drawing.Font("Segoe UI", 9, [System.Drawing.FontStyle]::Bold)
-
- $txtCreateLog = New-Object System.Windows.Forms.RichTextBox
- $txtCreateLog.Location = New-Object System.Drawing.Point(10, 316)
- $txtCreateLog.Size = New-Object System.Drawing.Size(918, 100)
- $txtCreateLog.Anchor = [System.Windows.Forms.AnchorStyles]"Top,Bottom,Left,Right"
- $txtCreateLog.ReadOnly = $true
- $txtCreateLog.BackColor = [System.Drawing.Color]::Black
- $txtCreateLog.ForeColor = [System.Drawing.Color]::LightGreen
- $txtCreateLog.Font = New-Object System.Drawing.Font("Consolas", 8)
- $txtCreateLog.ScrollBars = "Vertical"
-
- $tabCr.Controls.AddRange(@(
- $lblCrTpl, $cboCrTpl,
- $lblCrTitle, $txtCrTitle,
- $lblCrAlias, $txtCrAlias, $lblCrAliasHint,
- $lblCrType, $radCrTeam, $radCrComm,
- $lblCrOwners, $txtCrOwners,
- $lblCrMembers, $txtCrMembers, $btnCrCsv,
- $grpApply,
- $btnCreateSite, $txtCreateLog
- ))
-
- $btabs.TabPages.AddRange(@($tabCap, $tabCr))
- $dlg.Controls.AddRange(@($grpList, $btabs))
-
- # ── Init state ─────────────────────────────────────────────────────────
- $script:_tpl = @{
- Lv = $lv
- BtnDelete = $btnDelete
- BtnCreate = $btnCreate
- CboCrTpl = $cboCrTpl
- TxtCapLog = $txtCapLog
- TxtCreateLog = $txtCreateLog
- Templates = @(Load-Templates)
- ClientId = $ClientId
- TenantUrl = $TenantUrl
- CapSync = $null; CapTimer = $null; CapRS = $null; CapPS = $null; CapHnd = $null
- CrSync = $null; CrTimer = $null; CrRS = $null; CrPS = $null; CrHnd = $null
- CapTplName = ""; CapSrcUrl = ""; CapOpts = $null
- }
- _Tpl-Repopulate
- _Tpl-RefreshCombo
-
- # ── Event handlers ─────────────────────────────────────────────────────
- $lv.Add_SelectedIndexChanged({
- $sel = $script:_tpl.Lv.SelectedItems.Count -gt 0
- $script:_tpl.BtnDelete.Enabled = $sel
- $script:_tpl.BtnCreate.Enabled = $sel
- })
-
- $btnDelete.Add_Click({
- $item = $script:_tpl.Lv.SelectedItems[0]
- if (-not $item) { return }
- $name = $item.Text
- $res = [System.Windows.Forms.MessageBox]::Show(
- "Supprimer le template '$name' ?", "Confirmer", "YesNo", "Warning")
- if ($res -ne "Yes") { return }
- $script:_tpl.Templates = @($script:_tpl.Templates | Where-Object { $_.name -ne $name })
- Save-Templates -Templates $script:_tpl.Templates
- _Tpl-Repopulate
- _Tpl-RefreshCombo
- })
-
- $btnCreate.Add_Click({
- $item = $script:_tpl.Lv.SelectedItems[0]
- if (-not $item) { return }
- $t = $item.Tag
- $idx = [array]::IndexOf(($script:_tpl.Templates | ForEach-Object { $_.name }), $t.name)
- if ($idx -ge 0) { $script:_tpl.CboCrTpl.SelectedIndex = $idx }
- $btabs.SelectedTab = $tabCr
- })
-
- # Auto-generate alias from title
- $txtCrTitle.Add_TextChanged({
- $a = $txtCrTitle.Text -replace '[^a-zA-Z0-9 \-]','' -replace '\s+','-' -replace '\-+','-'
- $a = $a.ToLower().Trim('-')
- if ($a.Length -gt 64) { $a = $a.Substring(0,64) }
- $txtCrAlias.Text = $a
- })
-
- # CSV import for members
- $btnCrCsv.Add_Click({
- $ofd = New-Object System.Windows.Forms.OpenFileDialog
- $ofd.Filter = "CSV (*.csv)|*.csv|Tous (*.*)|*.*"
- $ofd.Title = "Importer des membres depuis CSV"
- if ($ofd.ShowDialog() -ne "OK") { return }
- try {
- $rows = Import-Csv $ofd.FileName
- $emails = $rows | ForEach-Object {
- $r = $_
- $v = if ($r.Email) { $r.Email } elseif ($r.email) { $r.email } `
- elseif ($r.UPN) { $r.UPN } elseif ($r.upn) { $r.upn } `
- elseif ($r.UserPrincipalName) { $r.UserPrincipalName } `
- else { $r.userprincipalname }
- $v
- } | Where-Object { $_ } | Select-Object -Unique
- $txtCrMembers.Text = ($emails -join ", ")
- [System.Windows.Forms.MessageBox]::Show(
- "$($emails.Count) membre(s) importe(s).", "Import CSV", "OK", "Information")
- } catch {
- [System.Windows.Forms.MessageBox]::Show(
- "Erreur CSV: $($_.Exception.Message)", "Erreur", "OK", "Error")
- }
- })
-
- # ── Capture button ─────────────────────────────────────────────────────
- $btnCapture.Add_Click({
- $srcUrl = $txtCapSrc.Text.Trim()
- $tplName = $txtCapName.Text.Trim()
- if ([string]::IsNullOrWhiteSpace($srcUrl)) {
- [System.Windows.Forms.MessageBox]::Show("Veuillez saisir l'URL du site source.", "Champ manquant", "OK", "Warning")
- return
- }
- if ([string]::IsNullOrWhiteSpace($tplName)) {
- [System.Windows.Forms.MessageBox]::Show("Veuillez saisir un nom pour le template.", "Champ manquant", "OK", "Warning")
- return
- }
- if ([string]::IsNullOrWhiteSpace($script:_tpl.ClientId)) {
- [System.Windows.Forms.MessageBox]::Show("Client ID manquant dans le formulaire principal.", "Erreur", "OK", "Warning")
- return
- }
-
- # Stash locals so timer tick can read them from script scope
- $script:_tpl.CapTplName = $tplName
- $script:_tpl.CapSrcUrl = $srcUrl
- $script:_tpl.CapOpts = @{
- structure = $chkCapStruct.Checked
- permissions = $chkCapPerms.Checked
- settings = $chkCapSettings.Checked
- style = $chkCapStyle.Checked
- }
-
- $btnCapture.Enabled = $false
- $script:_tpl.TxtCapLog.Clear()
-
- $bgCapture = {
- param($SiteUrl, $ClientId, $Opts, $Sync)
- function BgLog([string]$m, [string]$c="LightGreen") {
- $Sync.Queue.Enqueue([PSCustomObject]@{ Text=$m; Color=$c })
- }
- function Collect-Folders([string]$SiteRelUrl) {
- $out = [System.Collections.Generic.List[object]]::new()
- try {
- $items = Get-PnPFolderItem -FolderSiteRelativeUrl $SiteRelUrl -ItemType Folder -ErrorAction SilentlyContinue
- foreach ($fi in $items) {
- if ($fi.Name -match '^_|^Forms$') { continue }
- $sub = Collect-Folders "$SiteRelUrl/$($fi.Name)"
- $out.Add(@{ name=$fi.Name; subfolders=@($sub) })
- }
- } catch {}
- return @($out)
- }
- try {
- Import-Module PnP.PowerShell -ErrorAction Stop
- BgLog "Connexion a $SiteUrl..." "Yellow"
- Connect-PnPOnline -Url $SiteUrl -Interactive -ClientId $ClientId
- $web = Get-PnPWeb -Includes Title,Description,Language,SiteLogoUrl
- $wSrl = $web.ServerRelativeUrl.TrimEnd('/')
- $result = @{ settings=@{}; style=@{}; structure=@(); permissions=@(); folderPermissions=@() }
-
- if ($Opts.settings) {
- BgLog "Capture des parametres..." "Yellow"
- $result.settings = @{
- title = $web.Title
- description = $web.Description
- language = [int]$web.Language
- }
- BgLog " Titre: $($web.Title) | Langue: $($web.Language)" "Cyan"
- }
-
- if ($Opts.style) {
- BgLog "Capture du style..." "Yellow"
- $result.style = @{ logoUrl = $web.SiteLogoUrl }
- BgLog " Logo: $($web.SiteLogoUrl)" "Cyan"
- }
-
- if ($Opts.structure) {
- BgLog "Capture de l'arborescence..." "Yellow"
- $lists = Get-PnPList | Where-Object {
- !$_.Hidden -and ($_.BaseType -eq "DocumentLibrary" -or $_.BaseType -eq "GenericList")
- }
- $struct = [System.Collections.Generic.List[object]]::new()
- foreach ($list in $lists) {
- $rf = Get-PnPProperty -ClientObject $list -Property RootFolder
- $srl = $rf.ServerRelativeUrl.Substring($wSrl.Length).TrimStart('/')
- $fld = Collect-Folders $srl
- $struct.Add(@{
- name = $list.Title
- type = $list.BaseType.ToString()
- template = [int]$list.BaseTemplate
- rootSiteRel = $srl # site-relative URL of library root
- folders = @($fld)
- })
- BgLog " [$($list.BaseType)] $($list.Title) ($srl) - $($fld.Count) dossier(s)" "Cyan"
- }
- $result.structure = @($struct)
- }
-
- if ($Opts.permissions) {
- BgLog "Capture des groupes site..." "Yellow"
- $groups = Get-PnPSiteGroup
- $permArr = [System.Collections.Generic.List[object]]::new()
- foreach ($g in $groups) {
- try {
- $members = @(Get-PnPGroupMember -Identity $g.LoginName -ErrorAction SilentlyContinue |
- Where-Object { $_.Title -ne "System Account" } |
- Select-Object -ExpandProperty LoginName)
- $roles = @(Get-PnPGroupPermissions -Identity $g.LoginName -ErrorAction SilentlyContinue |
- Select-Object -ExpandProperty Name)
- $permArr.Add(@{
- groupName = $g.Title
- loginName = $g.LoginName
- roles = @($roles)
- members = @($members)
- })
- BgLog " Groupe: $($g.Title) - $($members.Count) membre(s)" "Cyan"
- } catch {}
- }
- $result.permissions = @($permArr)
-
- # Capture des permissions uniques sur les dossiers
- BgLog "Scan des permissions sur les dossiers..." "Yellow"
- $scanLists = Get-PnPList | Where-Object {
- !$_.Hidden -and ($_.BaseType -eq "DocumentLibrary" -or $_.BaseType -eq "GenericList")
- }
- $folderPerms = [System.Collections.Generic.List[object]]::new()
- $ctx = Get-PnPContext
- foreach ($scanList in $scanLists) {
- $rf = Get-PnPProperty -ClientObject $scanList -Property RootFolder
- $listSrl = $rf.ServerRelativeUrl.Substring($wSrl.Length).TrimStart('/')
- try {
- $items = Get-PnPListItem -List $scanList -PageSize 2000 -ErrorAction SilentlyContinue |
- Where-Object { $_.FileSystemObjectType -eq "Folder" }
- foreach ($folder in $items) {
- try {
- $hasUnique = Get-PnPProperty -ClientObject $folder -Property HasUniqueRoleAssignments
- if (-not $hasUnique) { continue }
- $ra = Get-PnPProperty -ClientObject $folder -Property RoleAssignments
- $folderRoleArr = [System.Collections.Generic.List[object]]::new()
- foreach ($assignment in $ra) {
- Get-PnPProperty -ClientObject $assignment.Member -Property Title,LoginName | Out-Null
- Get-PnPProperty -ClientObject $assignment -Property RoleDefinitionBindings | Out-Null
- $rNames = @($assignment.RoleDefinitionBindings |
- Where-Object { $_.Name -ne "Limited Access" } |
- Select-Object -ExpandProperty Name)
- if ($rNames.Count -gt 0) {
- $folderRoleArr.Add(@{
- principal = $assignment.Member.Title
- loginName = $assignment.Member.LoginName
- roles = @($rNames)
- })
- }
- }
- $fileRef = $folder.FieldValues.FileRef
- $relPath = $fileRef.Substring($wSrl.Length).TrimStart('/')
- $folderPerms.Add(@{
- listSiteRel = $listSrl
- path = $relPath
- perms = @($folderRoleArr)
- })
- BgLog " Perms uniques: $relPath ($($folderRoleArr.Count) entree(s))" "Cyan"
- } catch {}
- }
- } catch { BgLog " Liste ignoree '$($scanList.Title)': $($_.Exception.Message)" "DarkGray" }
- }
- $result.folderPermissions = @($folderPerms)
- BgLog " $($folderPerms.Count) dossier(s) avec permissions uniques captures" "LightGreen"
- }
-
- $Sync.Result = $result
- BgLog "=== Capture terminee ! ===" "White"
- } catch {
- $Sync.Error = $_.Exception.Message
- BgLog "Erreur: $($_.Exception.Message)" "Red"
- } finally { $Sync.Done = $true }
- }
-
- $sync = [hashtable]::Synchronized(@{
- Queue = [System.Collections.Generic.Queue[object]]::new()
- Done = $false; Error = $null; Result = $null
- })
- $script:_tpl.CapSync = $sync
-
- $rs = [System.Management.Automation.Runspaces.RunspaceFactory]::CreateRunspace()
- $rs.ApartmentState = "STA"; $rs.ThreadOptions = "ReuseThread"; $rs.Open()
- $ps = [System.Management.Automation.PowerShell]::Create()
- $ps.Runspace = $rs
- [void]$ps.AddScript($bgCapture)
- [void]$ps.AddArgument($srcUrl)
- [void]$ps.AddArgument($script:_tpl.ClientId)
- [void]$ps.AddArgument($script:_tpl.CapOpts)
- [void]$ps.AddArgument($sync)
- $script:_tpl.CapRS = $rs
- $script:_tpl.CapPS = $ps
- $script:_tpl.CapHnd = $ps.BeginInvoke()
-
- $tmr = New-Object System.Windows.Forms.Timer
- $tmr.Interval = 200
- $script:_tpl.CapTimer = $tmr
- $tmr.Add_Tick({
- while ($script:_tpl.CapSync.Queue.Count -gt 0) {
- $m = $script:_tpl.CapSync.Queue.Dequeue()
- _Tpl-Log -Box $script:_tpl.TxtCapLog -Msg $m.Text -Color $m.Color
- }
- if ($script:_tpl.CapSync.Done) {
- $script:_tpl.CapTimer.Stop(); $script:_tpl.CapTimer.Dispose()
- while ($script:_tpl.CapSync.Queue.Count -gt 0) {
- $m = $script:_tpl.CapSync.Queue.Dequeue()
- _Tpl-Log -Box $script:_tpl.TxtCapLog -Msg $m.Text -Color $m.Color
- }
- try { [void]$script:_tpl.CapPS.EndInvoke($script:_tpl.CapHnd) } catch {}
- try { $script:_tpl.CapRS.Close(); $script:_tpl.CapRS.Dispose() } catch {}
- $btnCapture.Enabled = $true
- if (-not $script:_tpl.CapSync.Error -and $script:_tpl.CapSync.Result) {
- $r = $script:_tpl.CapSync.Result
- $newTpl = [PSCustomObject]@{
- name = $script:_tpl.CapTplName
- sourceUrl = $script:_tpl.CapSrcUrl
- capturedAt = (Get-Date -Format 'dd/MM/yyyy HH:mm')
- options = $script:_tpl.CapOpts
- settings = $r.settings
- style = $r.style
- structure = $r.structure
- permissions = $r.permissions
- folderPermissions = $r.folderPermissions
- }
- $n = $script:_tpl.CapTplName
- $script:_tpl.Templates = @($script:_tpl.Templates | Where-Object { $_.name -ne $n }) + $newTpl
- Save-Templates -Templates $script:_tpl.Templates
- _Tpl-Repopulate
- _Tpl-RefreshCombo
- [System.Windows.Forms.MessageBox]::Show(
- "Template '$n' sauvegarde avec succes.",
- "Capture reussie", "OK", "Information")
- }
- }
- })
- $tmr.Start()
- })
-
- # ── Create site button ─────────────────────────────────────────────────
- $btnCreateSite.Add_Click({
- $tplIdx = $cboCrTpl.SelectedIndex
- if ($tplIdx -lt 0 -or $tplIdx -ge $script:_tpl.Templates.Count) {
- [System.Windows.Forms.MessageBox]::Show("Veuillez selectionner un template.", "Aucun template", "OK", "Warning")
- return
- }
- $tpl = $script:_tpl.Templates[$tplIdx]
- $title = $txtCrTitle.Text.Trim()
- $alias = $txtCrAlias.Text.Trim()
- $owners = @($txtCrOwners.Text -split '[,;]' | ForEach-Object { $_.Trim() } | Where-Object { $_ })
- $members = @($txtCrMembers.Text -split '[,;]' | ForEach-Object { $_.Trim() } | Where-Object { $_ })
-
- if ([string]::IsNullOrWhiteSpace($title)) {
- [System.Windows.Forms.MessageBox]::Show("Veuillez saisir le titre du site.", "Champ manquant", "OK", "Warning"); return
- }
- if ([string]::IsNullOrWhiteSpace($alias)) {
- [System.Windows.Forms.MessageBox]::Show("Veuillez saisir un alias URL.", "Champ manquant", "OK", "Warning"); return
- }
- if ([string]::IsNullOrWhiteSpace($script:_tpl.TenantUrl)) {
- [System.Windows.Forms.MessageBox]::Show("Tenant URL manquant dans le formulaire principal.", "Erreur", "OK", "Warning"); return
- }
- if ($owners.Count -eq 0) {
- [System.Windows.Forms.MessageBox]::Show("Veuillez saisir au moins un proprietaire.", "Champ manquant", "OK", "Warning"); return
- }
-
- $applyOpts = @{
- structure = $chkApplyStruct.Checked -and $tpl.options.structure
- permissions = $chkApplyPerms.Checked -and $tpl.options.permissions
- settings = $chkApplySettings.Checked -and $tpl.options.settings
- style = $chkApplyStyle.Checked -and $tpl.options.style
- }
- $isTeam = $radCrTeam.Checked
-
- $btnCreateSite.Enabled = $false
- $script:_tpl.TxtCreateLog.Clear()
-
- $bgCreate = {
- param($TenantUrl, $ClientId, $Title, $Alias, $IsTeam, $Owners, $Members, $ApplyOpts, $Tpl, $Sync)
- function BgLog([string]$m, [string]$c="LightGreen") {
- $Sync.Queue.Enqueue([PSCustomObject]@{ Text=$m; Color=$c })
- }
- function Apply-FolderTree([object[]]$Folders, [string]$ParentSrl) {
- foreach ($f in $Folders) {
- try {
- Add-PnPFolder -Name $f.name -Folder $ParentSrl -ErrorAction SilentlyContinue | Out-Null
- BgLog " + $($f.name)" "Cyan"
- } catch {}
- if ($f.subfolders -and $f.subfolders.Count -gt 0) {
- Apply-FolderTree $f.subfolders "$ParentSrl/$($f.name)"
- }
- }
- }
- try {
- Import-Module PnP.PowerShell -ErrorAction Stop
- $adminUrl = if ($TenantUrl -match '^(https?://[^.]+)(\.sharepoint\.com.*)') {
- "$($Matches[1])-admin$($Matches[2])"
- } else { $TenantUrl }
-
- BgLog "Connexion au tenant admin..." "Yellow"
- Connect-PnPOnline -Url $adminUrl -Interactive -ClientId $ClientId
-
- BgLog "Creation du site '$Title' (alias: $Alias)..." "Yellow"
- $newUrl = if ($IsTeam) {
- New-PnPSite -Type TeamSite -Title $Title -Alias $Alias -Owners $Owners -Wait
- } else {
- $base = if ($TenantUrl -match '^(https?://[^.]+\.sharepoint\.com)') { $Matches[1] } else { $TenantUrl }
- New-PnPSite -Type CommunicationSite -Title $Title -Url "$base/sites/$Alias" -Wait
- }
- $Sync.NewSiteUrl = $newUrl
- BgLog "Site cree : $newUrl" "LightGreen"
-
- BgLog "Connexion au nouveau site..." "Yellow"
- Connect-PnPOnline -Url $newUrl -Interactive -ClientId $ClientId
- $web = Get-PnPWeb
- $wSrl = $web.ServerRelativeUrl.TrimEnd('/')
-
- if ($ApplyOpts.settings -and $Tpl.settings -and $Tpl.settings.description) {
- BgLog "Application des parametres..." "Yellow"
- Set-PnPWeb -Description $Tpl.settings.description
- }
-
- if ($ApplyOpts.style -and $Tpl.style -and $Tpl.style.logoUrl) {
- BgLog "Application du style (logo)..." "Yellow"
- Set-PnPWeb -SiteLogoUrl $Tpl.style.logoUrl
- }
-
- if ($ApplyOpts.structure -and $Tpl.structure -and $Tpl.structure.Count -gt 0) {
- BgLog "Application de l'arborescence..." "Yellow"
- foreach ($lib in $Tpl.structure) {
- BgLog " Bibliotheque: $($lib.name)" "Yellow"
- $existing = Get-PnPList -Identity $lib.name -ErrorAction SilentlyContinue
- if (-not $existing) {
- try {
- $tplType = if ($lib.template -eq 101 -or $lib.type -eq "DocumentLibrary") {
- [Microsoft.SharePoint.Client.ListTemplateType]::DocumentLibrary
- } else {
- [Microsoft.SharePoint.Client.ListTemplateType]::GenericList
- }
- New-PnPList -Title $lib.name -Template $tplType | Out-Null
- BgLog " Creee." "Cyan"
- } catch { BgLog " Ignoree: $($_.Exception.Message)" "DarkGray" }
- } else { BgLog " Deja existante." "DarkGray" }
-
- if ($lib.folders -and $lib.folders.Count -gt 0) {
- # Get actual root folder URL from target list (avoids display-name vs URL mismatch)
- $targetList = Get-PnPList -Identity $lib.name -ErrorAction SilentlyContinue
- if ($targetList) {
- $listRf = Get-PnPProperty -ClientObject $targetList -Property RootFolder
- $libBase = $listRf.ServerRelativeUrl.TrimEnd('/')
- BgLog " Base URL: $libBase" "DarkGray"
- Apply-FolderTree $lib.folders $libBase
- } else {
- BgLog " Liste '$($lib.name)' non trouvee, dossiers ignores." "DarkGray"
- }
- }
- }
- }
-
- if ($Members -and $Members.Count -gt 0) {
- BgLog "Ajout de $($Members.Count) membre(s)..." "Yellow"
- $memberGroup = Get-PnPGroup | Where-Object { $_.Title -like "*Membres*" -or $_.Title -like "*Members*" } | Select-Object -First 1
- if ($memberGroup) {
- foreach ($m in $Members) {
- try {
- Add-PnPGroupMember -LoginName $m -Group $memberGroup.Title -ErrorAction SilentlyContinue
- BgLog " + $m" "Cyan"
- } catch { BgLog " Ignore $m" "DarkGray" }
- }
- } else { BgLog " Groupe membres non trouve, ajout ignore." "DarkGray" }
- }
-
- # Apply folder-level unique permissions
- $fpList = $Tpl.folderPermissions
- if ($ApplyOpts.permissions -and $fpList -and $fpList.Count -gt 0) {
- BgLog "Application des permissions sur les dossiers ($($fpList.Count))..." "Yellow"
-
- # Build map: source library rootSiteRel -> target library server-relative URL
- $libMap = @{}
- foreach ($lib in $Tpl.structure) {
- if (-not $lib.rootSiteRel) { continue }
- $tgtLib = Get-PnPList -Identity $lib.name -ErrorAction SilentlyContinue
- if ($tgtLib) {
- $tgtRf = Get-PnPProperty -ClientObject $tgtLib -Property RootFolder
- $libMap[$lib.rootSiteRel] = $tgtRf.ServerRelativeUrl.TrimEnd('/')
- }
- }
-
- $ctx = Get-PnPContext
- foreach ($fp in $fpList) {
- # Compute folder SRL on target using the library map
- $srcLibSrl = $fp.listSiteRel
- $tgtLibBase = $libMap[$srcLibSrl]
- if (-not $tgtLibBase) {
- BgLog " Bibliotheque non mappee pour '$srcLibSrl', dossier ignore." "DarkGray"
- continue
- }
- # Folder path relative to library root (strip the lib prefix from fp.path)
- $folderRelToLib = $fp.path.Substring($srcLibSrl.Length).TrimStart('/')
- $folderSrl = "$tgtLibBase/$folderRelToLib"
-
- try {
- $folder = $ctx.Web.GetFolderByServerRelativeUrl($folderSrl)
- $folderItem = $folder.ListItemAllFields
- $ctx.Load($folderItem)
- $ctx.ExecuteQuery()
-
- # Break inheritance and clear all inherited permissions
- $folderItem.BreakRoleInheritance($false, $false)
- $ctx.ExecuteQuery()
-
- # Apply each captured permission entry
- foreach ($perm in $fp.perms) {
- # Skip system accounts and source-specific SP groups (detected by failed EnsureUser)
- try {
- $principal = $ctx.Web.EnsureUser($perm.loginName)
- $ctx.Load($principal)
- $ctx.ExecuteQuery()
- foreach ($roleName in $perm.roles) {
- try {
- $roleDef = $ctx.Web.RoleDefinitions.GetByName($roleName)
- $bindings = New-Object Microsoft.SharePoint.Client.RoleDefinitionBindingCollection($ctx)
- $bindings.Add($roleDef)
- $folderItem.RoleAssignments.Add($principal, $bindings) | Out-Null
- $ctx.ExecuteQuery()
- BgLog " + $($perm.principal) [$roleName]" "Cyan"
- } catch { BgLog " Role '$roleName' ignore pour '$($perm.principal)'" "DarkGray" }
- }
- } catch {
- BgLog " Principal ignore (groupe source ou compte systeme) : '$($perm.principal)'" "DarkGray"
- }
- }
- BgLog " OK: $folderRelToLib" "Cyan"
- } catch { BgLog " Dossier ignore '$folderRelToLib': $($_.Exception.Message)" "DarkGray" }
- }
- }
-
- BgLog "=== Site cree avec succes ! ===" "White"
- } catch {
- $Sync.Error = $_.Exception.Message
- BgLog "Erreur: $($_.Exception.Message)" "Red"
- } finally { $Sync.Done = $true }
- }
-
- $sync = [hashtable]::Synchronized(@{
- Queue = [System.Collections.Generic.Queue[object]]::new()
- Done = $false; Error = $null; NewSiteUrl = $null
- })
- $script:_tpl.CrSync = $sync
-
- $rs = [System.Management.Automation.Runspaces.RunspaceFactory]::CreateRunspace()
- $rs.ApartmentState = "STA"; $rs.ThreadOptions = "ReuseThread"; $rs.Open()
- $ps = [System.Management.Automation.PowerShell]::Create()
- $ps.Runspace = $rs
- [void]$ps.AddScript($bgCreate)
- [void]$ps.AddArgument($script:_tpl.TenantUrl)
- [void]$ps.AddArgument($script:_tpl.ClientId)
- [void]$ps.AddArgument($title)
- [void]$ps.AddArgument($alias)
- [void]$ps.AddArgument($isTeam)
- [void]$ps.AddArgument($owners)
- [void]$ps.AddArgument($members)
- [void]$ps.AddArgument($applyOpts)
- [void]$ps.AddArgument($tpl)
- [void]$ps.AddArgument($sync)
- $script:_tpl.CrRS = $rs
- $script:_tpl.CrPS = $ps
- $script:_tpl.CrHnd = $ps.BeginInvoke()
-
- $tmr = New-Object System.Windows.Forms.Timer
- $tmr.Interval = 200
- $script:_tpl.CrTimer = $tmr
- $tmr.Add_Tick({
- while ($script:_tpl.CrSync.Queue.Count -gt 0) {
- $m = $script:_tpl.CrSync.Queue.Dequeue()
- _Tpl-Log -Box $script:_tpl.TxtCreateLog -Msg $m.Text -Color $m.Color
- }
- if ($script:_tpl.CrSync.Done) {
- $script:_tpl.CrTimer.Stop(); $script:_tpl.CrTimer.Dispose()
- while ($script:_tpl.CrSync.Queue.Count -gt 0) {
- $m = $script:_tpl.CrSync.Queue.Dequeue()
- _Tpl-Log -Box $script:_tpl.TxtCreateLog -Msg $m.Text -Color $m.Color
- }
- try { [void]$script:_tpl.CrPS.EndInvoke($script:_tpl.CrHnd) } catch {}
- try { $script:_tpl.CrRS.Close(); $script:_tpl.CrRS.Dispose() } catch {}
- $btnCreateSite.Enabled = $true
- if ($script:_tpl.CrSync.NewSiteUrl -and -not $script:_tpl.CrSync.Error) {
- $url = $script:_tpl.CrSync.NewSiteUrl
- $res = [System.Windows.Forms.MessageBox]::Show(
- "Site cree avec succes !`n`n$url`n`nOuvrir dans le navigateur ?",
- "Succes", "YesNo", "Information")
- if ($res -eq "Yes") { Start-Process $url }
- }
- }
- })
- $tmr.Start()
- })
-
- if ($Owner) { [void]$dlg.ShowDialog($Owner) } else { [void]$dlg.ShowDialog() }
- $dlg.Dispose()
-}
-
-#endregion
-
-#region ===== HTML Export: Permissions =====
-
-function Merge-PermissionRows([array]$Data) {
- # Groups rows that share the same Users + Permissions + GrantedThrough into one merged row.
- # Uses [ordered] to preserve insertion order without a separate list.
- $map = [ordered]@{}
- foreach ($row in $Data) {
- $key = "$($row.Users)|$($row.Permissions)|$($row.GrantedThrough)"
- if (-not $map.Contains($key)) {
- $map[$key] = [PSCustomObject]@{
- Locations = @()
- Permissions = $row.Permissions
- GrantedThrough = $row.GrantedThrough
- Type = $row.Type
- Users = $row.Users
- UserLogins = if ($row.UserLogins) { $row.UserLogins } else { "" }
- }
- }
- $map[$key].Locations += [PSCustomObject]@{
- Object = [string]$row.Object
- Title = [string]$row.Title
- URL = if ($row.URL) { [string]$row.URL } else { "" }
- HasUniquePermissions = $row.HasUniquePermissions
- }
- }
- return @($map.Values)
-}
-
-function Export-PermissionsToHTML {
- param([array]$Data, [string]$SiteTitle, [string]$SiteURL, [string]$OutputPath)
-
- $generated = Get-Date -Format 'dd/MM/yyyy HH:mm'
- $count = $Data.Count
- $uniqueCount = ($Data | Where-Object { $_.HasUniquePermissions -eq 'TRUE' -or $_.HasUniquePermissions -eq $true } | Measure-Object).Count
- $userCount = ($Data | ForEach-Object { $_.Users -split '; ' } | Where-Object { $_ } | Sort-Object -Unique | Measure-Object).Count
-
- # Build pills HTML for a list of names + emails
- function Build-Pills([string[]]$Names, [string[]]$Emails) {
- $html = ""
- for ($i = 0; $i -lt $Names.Count; $i++) {
- $n = EscHtml $Names[$i]
- $e = if ($Emails -and $i -lt $Emails.Count) { EscHtml $Emails[$i] } else { "" }
- $html += "$n"
- }
- return $html
- }
-
- $mergedRows = Merge-PermissionRows $Data
- $script:grpIdx = 0
- $rows = ""
- foreach ($mrow in $mergedRows) {
- $locs = @($mrow.Locations)
-
- # Dominant type badge (use first location's type - entries in a merged group are typically the same type)
- $dominantType = $locs[0].Object
- $badgeClass = switch -Regex ($dominantType) {
- "Site Collection" { "bc"; break }
- "^Site$" { "bs"; break }
- "Folder" { "bf"; break }
- Default { "bl" }
- }
-
- # Name / locations cell + Unique Permissions cell
- if ($locs.Count -eq 1) {
- $loc = $locs[0]
- $isUnique = ($loc.HasUniquePermissions -eq 'TRUE' -or $loc.HasUniquePermissions -eq $true)
- $uqClass = if ($isUnique) { "uq" } else { "inh" }
- $uqText = if ($isUnique) { "✓ Unique" } else { "Inherited" }
- $nameCell = if ($loc.URL) { "$(EscHtml $loc.Title)" } else { EscHtml $loc.Title }
- $uqCell = "$uqText"
- } else {
- $uqTotal = ($locs | Where-Object { $_.HasUniquePermissions -eq 'TRUE' -or $_.HasUniquePermissions -eq $true }).Count
- $locHtml = ""
- foreach ($loc in $locs) {
- $isUnique = ($loc.HasUniquePermissions -eq 'TRUE' -or $loc.HasUniquePermissions -eq $true)
- $uqMark = if ($isUnique) { "
✓" } else { "
~" }
- $locBc = switch -Regex ($loc.Object) {
- "Site Collection" { "bc"; break }
- "^Site$" { "bs"; break }
- "Folder" { "bf"; break }
- Default { "bl" }
- }
- $locLink = if ($loc.URL) { "
$(EscHtml $loc.Title)" } else { EscHtml $loc.Title }
- $locHtml += "
$(EscHtml $loc.Object) $locLink $uqMark
"
- }
- $locHtml += "
($uqTotal uniques)"
- }
-
- # Build Users / Members cell
- $names = if ($mrow.Users) { @($mrow.Users -split '; ') } else { @() }
- $emails = if ($mrow.UserLogins) { @($mrow.UserLogins -split '; ') } else { @() }
- $usersCell = ""
- if ($names.Count -gt 0) {
- $pills = Build-Pills $names $emails
- if ($mrow.GrantedThrough -match '^SharePoint Group: (.+)$') {
- $grpName = EscHtml $Matches[1]
- $gid = "g$($script:grpIdx)"
- $script:grpIdx++
- $usersCell = ""
- } else {
- $usersCell = $pills
- }
- }
-
- $rows += "| $(EscHtml $dominantType) | "
- $rows += "$nameCell | "
- $rows += "$usersCell | "
- $rows += "$(EscHtml $mrow.Permissions) | "
- $rows += "$(EscHtml $mrow.GrantedThrough) | "
- $rows += "$uqCell |
`n"
- }
-
-$html = @"
-
-
-Permissions - $(EscHtml $SiteTitle)
-
-
-
SharePoint Permissions Report
-
-
-
-
$uniqueCount
Unique Permission Sets
-
$userCount
Distinct Users / Groups
-
-
-
-| Type | Name | Users / Members | Permission Level | Granted Through | Unique Permissions |
|---|
-
-$rows
-
$togBtn $sfLink | "
- $html += "$($sf.ItemCount) | "
- $html += "$(Format-Bytes $sf.SizeBytes) | "
- $html += "$sfVerTxt | "
- $html += "$(EscHtml $sf.LastModified) |
`n"
-
- if ($hasSubs) {
- $html += ""
- $html += " | Folder | Files | Size | Versions | Last Modified |
|---|
"
- $html += "$(Build-FolderRows $sf.SubFolders)
|
`n"
- }
- }
- return $html
- }
-
- $rows = ""
- foreach ($row in ($Data | Sort-Object SizeBytes -Descending)) {
- $myLibIdx = $script:togIdx++
- $pct = if ($totalBytes -gt 0) { [math]::Round($row.SizeBytes / $totalBytes * 100, 1) } else { 0 }
- $szClass = if ($row.SizeBytes -ge 10GB) { "sz-lg" } elseif ($row.SizeBytes -ge 1GB) { "sz-md" } else { "sz-sm" }
- $hasFolders = $row.SubFolders -and $row.SubFolders.Count -gt 0
- $toggleBtn = if ($hasFolders) { "" } else { "" }
- $nameCell = if ($row.LibraryURL) { "$(EscHtml $row.Library)" } else { EscHtml $row.Library }
-
- $verBytes = if ($row.VersionSizeBytes) { $row.VersionSizeBytes } else { 0 }
- $verPct = if ($row.SizeBytes -gt 0 -and $verBytes -gt 0) { [math]::Round($verBytes / $row.SizeBytes * 100, 0) } else { 0 }
- $verClass = if ($verPct -ge 40) { "sz-lg" } elseif ($verPct -ge 15) { "sz-md" } else { "" }
- $verTxt = if ($verBytes -gt 0) { "$(Format-Bytes $verBytes) ($verPct%)" } else { "-" }
- $rows += "$toggleBtn $nameCell | "
- $rows += "$(EscHtml $row.SiteTitle) | "
- $rows += "$($row.ItemCount) | "
- $rows += "$(Format-Bytes $row.SizeBytes) | "
- $rows += "$verTxt | "
- $rows += " | "
- $rows += "$(EscHtml $row.LastModified) |
`n"
-
- if ($hasFolders) {
- $rows += ""
- $rows += " | Folder | Files | Size | Versions | Last Modified |
|---|
"
- $rows += "$(Build-FolderRows $row.SubFolders)
|
`n"
- }
- }
-
-$html = @"
-
-
-Storage - $(EscHtml $SiteTitle)
-
-
-
-
-
SharePoint Storage Metrics
-
-
-
$(Format-Bytes $totalBytes)
Total Storage Used
-
$(Format-Bytes $totalVersionBytes)
Version Storage
-
-
$libCount
Libraries / Sites Scanned
-
-
-
-| Library | Site | Files | Size | Versions | Share of Total | Last Modified |
|---|
-
-$rows
-
| $title | "
- $rows += "$ext | "
- $rows += "$created | "
- $rows += "$modif | "
- $rows += "$author | $modby | "
- $rows += "$sizeStr |
`n"
- }
- $count = $Results.Count
- $date = Get-Date -Format "dd/MM/yyyy HH:mm"
- $kqlEsc = EscHtml $KQL
- $siteEsc = EscHtml $SiteUrl
-
-$html = @"
-
-
-Recherche de fichiers
-
-
-
-
Recherche de fichiers SharePoint
-
-
Requete KQL : $kqlEsc
-
-
-
-
-| Nom du fichier |
-Extension |
-Cree le |
-Modifie le |
-Cree par |
-Modifie par |
-Taille |
-
-$rows
-
Taille | " } else {""}
- $thCr = if ($hasCr) { "Cree le | " } else {""}
- $thMod = if ($hasMod) { "Modifie le | " } else {""}
- $thSub = if ($hasSub) { "Sous-dossiers | " } else {""}
- $thFil = if ($hasFil) { "Fichiers | " } else {""}
-
- $rows = ""
- foreach ($item in $items) {
- $nm = EscHtml $item.Name
- $path = EscHtml $item.Path
- $href = EscHtml $item.Path
- $lib = EscHtml $item.Library
-
- $tdSz = if ($hasSz) {
- $cls = if ($szSame) { "ok" } else { "diff" }
- "$(EscHtml (Format-Bytes ([long]$item.SizeBytes))) | "
- } else {""}
- $tdCr = if ($hasCr) {
- $cls = if ($crSame) { "ok" } else { "diff" }
- "$(EscHtml $item.Created) | "
- } else {""}
- $tdMod = if ($hasMod) {
- $cls = if ($modSame) { "ok" } else { "diff" }
- "$(EscHtml $item.Modified) | "
- } else {""}
- $tdSub = if ($hasSub) {
- $cls = if ($subSame) { "ok" } else { "diff" }
- "$($item.FolderCount) | "
- } else {""}
- $tdFil = if ($hasFil) {
- $cls = if ($filSame) { "ok" } else { "diff" }
- "$($item.FileCount) | "
- } else {""}
-
- $rows += ""
- $rows += "$nm
$lib | "
- $rows += "$tdSz$tdCr$tdMod$tdSub$tdFil"
- $rows += "
`n"
- }
-
- $diffBadge = if ($szSame -and $crSame -and $modSame -and $subSame -and $filSame) {
- "Identiques"
- } else {
- "Differences detectees"
- }
-
- $cards += @"
-
-
- $name
- $count occurrences
- $diffBadge
- ▼
-
-
-
-| Chemin | $thSz$thCr$thMod$thSub$thFil
-
$rows
-
-
Doublons de $modeLabel — SharePoint
-
-
-
$totalGroups
Groupes de doublons
-
$totalItems
$modeLabel en double (total)
-
"
- $rows += "| $statusLabel | "
- $rows += "$name | "
- $rows += "$relPath | "
- $rows += "$srcSize | "
- $rows += "$dstSize |
`n"
- }
-
- $srcEsc = EscHtml "$SrcSite/$SrcLib"
- $dstEsc = EscHtml "$DstSite/$DstLib"
-
-$html = @"
-
-
-Transfer Verification Report
-
-
-
-
Transfer Verification Report
-
Source: $srcEsc → Destination: $dstEsc — $date
-
-
-
-
-
$mismatchCount
Size mismatch
-
-
-
-
-
-| Status |
-File Name |
-Relative Path |
-Source Size |
-Dest Size |
-
-$rows
-
| $([System.Web.HttpUtility]::HtmlEncode($r.SourceSite)) | $([System.Web.HttpUtility]::HtmlEncode($r.File)) | $($r.Status) | $srcSz | $dstSz | $msg |
`n"
- }
-
- $html = @"
-Transfer Report
-
-
-Transfer Report
-
-OK: $okNError: $errN
-Skipped: $skipN / Mismatch: $mmNMissing: $missN
-Extra: $exN
-
-| Site | File | Status | Source Size | Dest Size | Message |
|---|
-$rows
-"@
- $html | Set-Content -Path $f -Encoding UTF8
- return $f
-}
-
-# ── Transfer Start ────────────────────────────────────────────────────────────
-
-$btnXferStart.Add_Click({
- $clientId = $txtClientId.Text.Trim()
- if (-not $clientId) { Write-Log "Client ID requis." "Red"; return }
-
- $jobs = Get-XferJobs
- if ($jobs.Count -eq 0) { return }
-
- $recursive = $chkXferRecursive.Checked
- $overwrite = $chkXferOverwrite.Checked
- $createFolder = $chkXferCreateFolders.Checked
- $outDir = $txtOutput.Text.Trim()
- if (-not $outDir) { $outDir = if ($PSScriptRoot) { $PSScriptRoot } else { $PWD.Path } }
- $asHtml = $radXferHtml.Checked
-
- $params = @{
- ClientId = $clientId
- Jobs = @($jobs)
- Recursive = $recursive
- Overwrite = $overwrite
- CreateFolders = $createFolder
- OutFolder = $outDir
- AsHtml = $asHtml
- }
-
- $btnXferStart.Enabled = $false
- $btnXferVerify.Enabled = $false
- $btnXferOpen.Enabled = $false
- $txtLog.Clear()
- Start-ProgressAnim
- Write-Log "=== TRANSFER ($($jobs.Count) job(s)) ===" "White"
- foreach ($j in $jobs) {
- Write-Log " $($j.SrcSite)/$($j.SrcLib) -> $($j.DstSite)/$($j.DstLib)" "Gray"
- }
- Write-Log "Recursive: $recursive Overwrite: $overwrite Create folders: $createFolder" "Gray"
- Write-Log ("-" * 52) "DarkGray"
-
- $bgTransfer = {
- param($Params, $Sync)
- function BgLog([string]$m, [string]$c = "LightGreen") {
- $Sync.Queue.Enqueue(@{ Text = $m; Color = $c })
- }
-
- function Get-AllSPFiles([string]$BasePath, [bool]$Recurse, [string]$Rel = "") {
- $files = @(Get-PnPFolderItem -FolderSiteRelativeUrl $BasePath -ItemType File -ErrorAction SilentlyContinue)
- foreach ($f in $files) {
- if ($f.ServerRelativeUrl -match '/_vti_history/') { continue }
- [PSCustomObject]@{
- Name = $f.Name
- ServerRelativeUrl = $f.ServerRelativeUrl
- Length = $f.Length
- RelativePath = "$Rel$($f.Name)"
- RelativeFolder = $Rel
- }
- }
- if ($Recurse) {
- $folders = @(Get-PnPFolderItem -FolderSiteRelativeUrl $BasePath -ItemType Folder -ErrorAction SilentlyContinue)
- foreach ($d in $folders) {
- if ($d.Name -in @("Forms", "_vti_cnf", "_vti_history")) { continue }
- Get-AllSPFiles "$BasePath/$($d.Name)" $Recurse "$Rel$($d.Name)/"
- }
- }
- }
-
- try {
- Import-Module PnP.PowerShell -ErrorAction Stop
- $report = [System.Collections.Generic.List[object]]::new()
- $totalOk = 0; $totalErr = 0; $totalSkip = 0
-
- foreach ($job in $Params.Jobs) {
- BgLog "--- $($job.SrcSite) / $($job.SrcLib) -> $($job.DstSite) / $($job.DstLib) ---" "White"
-
- # Enumerate source
- BgLog "Connecting to source..." "Cyan"
- Connect-PnPOnline -Url $job.SrcSite -Interactive -ClientId $Params.ClientId
- $srcFiles = @(Get-AllSPFiles $job.SrcLib $Params.Recursive)
- BgLog " $($srcFiles.Count) file(s) found" "LightGreen"
-
- if ($srcFiles.Count -eq 0) {
- BgLog " No files to transfer." "DarkOrange"
- continue
- }
-
- # Download to temp
- $tempRoot = Join-Path ([System.IO.Path]::GetTempPath()) "SPToolbox_Xfer_$(Get-Date -Format 'yyyyMMdd_HHmmss')_$([guid]::NewGuid().ToString('N').Substring(0,6))"
- New-Item -ItemType Directory -Path $tempRoot -Force | Out-Null
-
- $idx = 0
- foreach ($f in $srcFiles) {
- $idx++
- $localDir = Join-Path $tempRoot $f.RelativeFolder
- if (-not (Test-Path $localDir)) { New-Item -ItemType Directory -Path $localDir -Force | Out-Null }
- try {
- Get-PnPFile -Url $f.ServerRelativeUrl -Path $localDir -FileName $f.Name -AsFile -Force
- } catch {
- BgLog " ERROR downloading $($f.RelativePath): $($_.Exception.Message)" "Red"
- $report.Add([PSCustomObject]@{ SourceSite=$job.SrcSite; DestSite=$job.DstSite; File=$f.RelativePath; Status="ERROR"; SourceSize=$f.Length; DestSize=$null; Message="Download: $($_.Exception.Message)" })
- $totalErr++
- continue
- }
- }
-
- # Upload to destination
- BgLog "Connecting to destination..." "Cyan"
- Connect-PnPOnline -Url $job.DstSite -Interactive -ClientId $Params.ClientId
-
- $idx = 0
- foreach ($f in $srcFiles) {
- $idx++
- $dstFolder = if ($f.RelativeFolder) {
- "$($job.DstLib.TrimEnd('/'))/$($f.RelativeFolder.TrimEnd('/'))"
- } else { $job.DstLib }
-
- # Check if dest folder exists / create if needed
- if ($Params.CreateFolders) {
- try { Resolve-PnPFolder -SiteRelativePath $dstFolder -ErrorAction Stop | Out-Null } catch {
- BgLog " ERROR creating folder $dstFolder : $($_.Exception.Message)" "Red"
- $report.Add([PSCustomObject]@{ SourceSite=$job.SrcSite; DestSite=$job.DstSite; File=$f.RelativePath; Status="ERROR"; SourceSize=$f.Length; DestSize=$null; Message="Folder creation: $($_.Exception.Message)" })
- $totalErr++
- continue
- }
- }
-
- $localFile = Join-Path (Join-Path $tempRoot $f.RelativeFolder) $f.Name
- if (-not (Test-Path $localFile)) { continue }
-
- # Check for existing file if not overwriting
- if (-not $Params.Overwrite) {
- try {
- $existing = Get-PnPFile -Url "$dstFolder/$($f.Name)" -ErrorAction SilentlyContinue
- if ($existing) {
- BgLog " [$idx/$($srcFiles.Count)] SKIPPED (exists): $($f.RelativePath)" "DarkOrange"
- $report.Add([PSCustomObject]@{ SourceSite=$job.SrcSite; DestSite=$job.DstSite; File=$f.RelativePath; Status="SKIPPED"; SourceSize=$f.Length; DestSize=$null; Message="File already exists" })
- $totalSkip++
- continue
- }
- } catch {}
- }
-
- try {
- Add-PnPFile -Path $localFile -Folder $dstFolder -ErrorAction Stop | Out-Null
- BgLog " [$idx/$($srcFiles.Count)] OK: $($f.RelativePath)" "LightGreen"
- $report.Add([PSCustomObject]@{ SourceSite=$job.SrcSite; DestSite=$job.DstSite; File=$f.RelativePath; Status="OK"; SourceSize=$f.Length; DestSize=$f.Length; Message="" })
- $totalOk++
- } catch {
- BgLog " [$idx/$($srcFiles.Count)] ERROR: $($f.RelativePath) - $($_.Exception.Message)" "Red"
- $report.Add([PSCustomObject]@{ SourceSite=$job.SrcSite; DestSite=$job.DstSite; File=$f.RelativePath; Status="ERROR"; SourceSize=$f.Length; DestSize=$null; Message=$_.Exception.Message })
- $totalErr++
- }
- }
-
- # Cleanup temp
- if ($tempRoot -and (Test-Path $tempRoot)) {
- Remove-Item -Path $tempRoot -Recurse -Force -ErrorAction SilentlyContinue
- }
- }
-
- $Sync.Report = @($report)
- $Sync.TotalOk = $totalOk
- $Sync.TotalErr = $totalErr
- $Sync.TotalSkip = $totalSkip
- } catch {
- $Sync.Error = $_.Exception.Message
- BgLog "Erreur : $($_.Exception.Message)" "Red"
- } finally {
- $Sync.Done = $true
- }
- }
-
- $sync = [hashtable]::Synchronized(@{
- Queue = [System.Collections.Generic.Queue[object]]::new()
- Done = $false
- Error = $null
- Report = $null
- TotalOk = 0
- TotalErr = 0
- TotalSkip = 0
- })
- $script:_XferSync = $sync
- $script:_XferParams = $params
-
- $rs = [System.Management.Automation.Runspaces.RunspaceFactory]::CreateRunspace()
- $rs.ApartmentState = "STA"; $rs.ThreadOptions = "ReuseThread"; $rs.Open()
- $ps = [System.Management.Automation.PowerShell]::Create()
- $ps.Runspace = $rs
- [void]$ps.AddScript($bgTransfer)
- [void]$ps.AddArgument($params)
- [void]$ps.AddArgument($sync)
- $script:_XferRS = $rs
- $script:_XferPS = $ps
- $script:_XferHnd = $ps.BeginInvoke()
-
- $tmr = New-Object System.Windows.Forms.Timer
- $tmr.Interval = 250
- $script:_XferTimer = $tmr
- $tmr.Add_Tick({
- while ($script:_XferSync.Queue.Count -gt 0) {
- $m = $script:_XferSync.Queue.Dequeue()
- Write-Log $m.Text $m.Color
- }
- if ($script:_XferSync.Done) {
- $script:_XferTimer.Stop(); $script:_XferTimer.Dispose()
- while ($script:_XferSync.Queue.Count -gt 0) {
- $m = $script:_XferSync.Queue.Dequeue(); Write-Log $m.Text $m.Color
- }
- try { [void]$script:_XferPS.EndInvoke($script:_XferHnd) } catch {}
- try { $script:_XferRS.Close(); $script:_XferRS.Dispose() } catch {}
- $btnXferStart.Enabled = $true
- $btnXferVerify.Enabled = $true
- Stop-ProgressAnim
-
- if ($script:_XferSync.Error) {
- Write-Log "Echec du transfert : $($script:_XferSync.Error)" "Red"
- return
- }
-
- $ok = $script:_XferSync.TotalOk; $er = $script:_XferSync.TotalErr; $sk = $script:_XferSync.TotalSkip
- Write-Log "=== TRANSFER COMPLETE: $ok OK, $er error(s), $sk skipped ===" "White"
-
- # Generate report
- $report = $script:_XferSync.Report
- if ($report -and $report.Count -gt 0) {
- $p = $script:_XferParams
- $rptFile = Export-XferReport ([System.Collections.Generic.List[object]]$report) $p.OutFolder "Transfer" $p.AsHtml
- if ($rptFile) {
- Write-Log "Report: $rptFile" "White"
- $script:_XferLastReport = $rptFile
- $btnXferOpen.Enabled = $true
- }
- }
- }
- })
- $tmr.Start()
-})
-
-# ── Verify ────────────────────────────────────────────────────────────────────
-
-$btnXferVerify.Add_Click({
- $clientId = $txtClientId.Text.Trim()
- if (-not $clientId) { Write-Log "Client ID requis." "Red"; return }
-
- $jobs = Get-XferJobs
- if ($jobs.Count -eq 0) { return }
-
- $recursive = $chkXferRecursive.Checked
- $outDir = $txtOutput.Text.Trim()
- if (-not $outDir) { $outDir = if ($PSScriptRoot) { $PSScriptRoot } else { $PWD.Path } }
- $asHtml = $radXferHtml.Checked
-
- $params = @{
- ClientId = $clientId
- Jobs = @($jobs)
- Recursive = $recursive
- OutFolder = $outDir
- AsHtml = $asHtml
- }
-
- $btnXferStart.Enabled = $false
- $btnXferVerify.Enabled = $false
- $btnXferOpen.Enabled = $false
- $txtLog.Clear()
- Start-ProgressAnim
- Write-Log "=== VERIFICATION ($($jobs.Count) job(s)) ===" "White"
- Write-Log ("-" * 52) "DarkGray"
-
- $bgVerify = {
- param($Params, $Sync)
- function BgLog([string]$m, [string]$c = "LightGreen") {
- $Sync.Queue.Enqueue(@{ Text = $m; Color = $c })
- }
-
- function Get-AllSPFiles([string]$BasePath, [bool]$Recurse, [string]$Rel = "") {
- $files = @(Get-PnPFolderItem -FolderSiteRelativeUrl $BasePath -ItemType File -ErrorAction SilentlyContinue)
- foreach ($f in $files) {
- if ($f.ServerRelativeUrl -match '/_vti_history/') { continue }
- [PSCustomObject]@{
- Name = $f.Name
- Length = $f.Length
- RelativePath = "$Rel$($f.Name)"
- }
- }
- if ($Recurse) {
- $folders = @(Get-PnPFolderItem -FolderSiteRelativeUrl $BasePath -ItemType Folder -ErrorAction SilentlyContinue)
- foreach ($d in $folders) {
- if ($d.Name -in @("Forms", "_vti_cnf", "_vti_history")) { continue }
- Get-AllSPFiles "$BasePath/$($d.Name)" $Recurse "$Rel$($d.Name)/"
- }
- }
- }
-
- try {
- Import-Module PnP.PowerShell -ErrorAction Stop
- $allResults = [System.Collections.Generic.List[object]]::new()
-
- foreach ($job in $Params.Jobs) {
- BgLog "--- Verifying $($job.SrcSite)/$($job.SrcLib) vs $($job.DstSite)/$($job.DstLib) ---" "White"
-
- BgLog "Connecting to source..." "Cyan"
- Connect-PnPOnline -Url $job.SrcSite -Interactive -ClientId $Params.ClientId
- $srcFiles = @(Get-AllSPFiles $job.SrcLib $Params.Recursive)
- BgLog " $($srcFiles.Count) source file(s)" "LightGreen"
- $srcMap = @{}; foreach ($f in $srcFiles) { $srcMap[$f.RelativePath] = $f }
-
- BgLog "Connecting to destination..." "Cyan"
- Connect-PnPOnline -Url $job.DstSite -Interactive -ClientId $Params.ClientId
- $dstFiles = @(Get-AllSPFiles $job.DstLib $Params.Recursive)
- BgLog " $($dstFiles.Count) destination file(s)" "LightGreen"
- $dstMap = @{}; foreach ($f in $dstFiles) { $dstMap[$f.RelativePath] = $f }
-
- foreach ($key in $srcMap.Keys) {
- $src = $srcMap[$key]
- if ($dstMap.ContainsKey($key)) {
- $dst = $dstMap[$key]
- $st = if ([long]$src.Length -eq [long]$dst.Length) { "OK" } else { "SIZE_MISMATCH" }
- $allResults.Add([PSCustomObject]@{ SourceSite=$job.SrcSite; DestSite=$job.DstSite; File=$key; Status=$st; SourceSize=[long]$src.Length; DestSize=[long]$dst.Length; Message="" })
- } else {
- $allResults.Add([PSCustomObject]@{ SourceSite=$job.SrcSite; DestSite=$job.DstSite; File=$key; Status="MISSING"; SourceSize=[long]$src.Length; DestSize=$null; Message="" })
- }
- }
- foreach ($key in $dstMap.Keys) {
- if (-not $srcMap.ContainsKey($key)) {
- $dst = $dstMap[$key]
- $allResults.Add([PSCustomObject]@{ SourceSite=$job.SrcSite; DestSite=$job.DstSite; File=$key; Status="EXTRA"; SourceSize=$null; DestSize=[long]$dst.Length; Message="" })
- }
- }
-
- $okN = @($allResults | Where-Object { $_.Status -eq "OK" }).Count
- $missN = @($allResults | Where-Object { $_.Status -eq "MISSING" }).Count
- $mmN = @($allResults | Where-Object { $_.Status -eq "SIZE_MISMATCH" }).Count
- $exN = @($allResults | Where-Object { $_.Status -eq "EXTRA" }).Count
- BgLog " Results: $okN OK, $missN missing, $mmN size mismatch, $exN extra" "White"
- }
-
- $Sync.VerifyResults = @($allResults)
- } catch {
- $Sync.Error = $_.Exception.Message
- BgLog "Erreur : $($_.Exception.Message)" "Red"
- } finally {
- $Sync.Done = $true
- }
- }
-
- $sync = [hashtable]::Synchronized(@{
- Queue = [System.Collections.Generic.Queue[object]]::new()
- Done = $false
- Error = $null
- VerifyResults = $null
- })
- $script:_VerSync = $sync
- $script:_VerParams = $params
-
- $rs = [System.Management.Automation.Runspaces.RunspaceFactory]::CreateRunspace()
- $rs.ApartmentState = "STA"; $rs.ThreadOptions = "ReuseThread"; $rs.Open()
- $ps = [System.Management.Automation.PowerShell]::Create()
- $ps.Runspace = $rs
- [void]$ps.AddScript($bgVerify)
- [void]$ps.AddArgument($params)
- [void]$ps.AddArgument($sync)
- $script:_VerRS = $rs
- $script:_VerPS = $ps
- $script:_VerHnd = $ps.BeginInvoke()
-
- $tmr = New-Object System.Windows.Forms.Timer
- $tmr.Interval = 250
- $script:_VerTimer = $tmr
- $tmr.Add_Tick({
- while ($script:_VerSync.Queue.Count -gt 0) {
- $m = $script:_VerSync.Queue.Dequeue()
- Write-Log $m.Text $m.Color
- }
- if ($script:_VerSync.Done) {
- $script:_VerTimer.Stop(); $script:_VerTimer.Dispose()
- while ($script:_VerSync.Queue.Count -gt 0) {
- $m = $script:_VerSync.Queue.Dequeue(); Write-Log $m.Text $m.Color
- }
- try { [void]$script:_VerPS.EndInvoke($script:_VerHnd) } catch {}
- try { $script:_VerRS.Close(); $script:_VerRS.Dispose() } catch {}
- $btnXferStart.Enabled = $true
- $btnXferVerify.Enabled = $true
- Stop-ProgressAnim
-
- if ($script:_VerSync.Error) {
- Write-Log "Echec de la verification : $($script:_VerSync.Error)" "Red"
- return
- }
-
- $results = $script:_VerSync.VerifyResults
- if (-not $results -or $results.Count -eq 0) {
- Write-Log "Aucun fichier a comparer." "Orange"
- return
- }
-
- $p = $script:_VerParams
- $rptFile = Export-XferReport ([System.Collections.Generic.List[object]]$results) $p.OutFolder "TransferVerify" $p.AsHtml
- if ($rptFile) {
- Write-Log "Report: $rptFile" "White"
- $script:_XferLastReport = $rptFile
- $btnXferOpen.Enabled = $true
- }
- }
- })
- $tmr.Start()
-})
-
-# ── Open Transfer Report ──────────────────────────────────────────────────────
-
-$btnXferOpen.Add_Click({
- $f = $script:_XferLastReport
- if ($f -and (Test-Path $f)) { Start-Process $f }
-})
-
-# ── Bulk Create ───────────────────────────────────────────────────────────────
-
-# Helper: add a site entry hashtable to the ListView
-function Add-BulkListItem([hashtable]$entry) {
- $lvi = New-Object System.Windows.Forms.ListViewItem($entry.Name)
- $lvi.SubItems.Add($entry.Alias) | Out-Null
- $lvi.SubItems.Add($entry.Type) | Out-Null
- $lvi.SubItems.Add($entry.Template)| Out-Null
- $lvi.SubItems.Add($entry.Owners) | Out-Null
- $lvi.SubItems.Add($entry.Members) | Out-Null
- $lvi.Tag = $entry
- $lvBulk.Items.Add($lvi) | Out-Null
-}
-
-# Double-click to edit
-$lvBulk.Add_DoubleClick({
- if ($lvBulk.SelectedItems.Count -eq 0) { return }
- $sel = $lvBulk.SelectedItems[0]
- $edited = Show-BulkSiteDialog -Owner $form -Existing $sel.Tag
- if ($edited) {
- $sel.Text = $edited.Name
- $sel.SubItems[1].Text = $edited.Alias
- $sel.SubItems[2].Text = $edited.Type
- $sel.SubItems[3].Text = $edited.Template
- $sel.SubItems[4].Text = $edited.Owners
- $sel.SubItems[5].Text = $edited.Members
- $sel.Tag = $edited
- }
-})
-
-$btnBulkAdd.Add_Click({
- $entry = Show-BulkSiteDialog -Owner $form
- if ($entry) { Add-BulkListItem $entry }
-})
-
-$btnBulkCsv.Add_Click({
- $ofd = New-Object System.Windows.Forms.OpenFileDialog
- $ofd.Filter = "CSV (*.csv)|*.csv|All (*.*)|*.*"
- if ($ofd.ShowDialog($form) -ne "OK") { return }
- # Try semicolon first (handles commas inside fields), fall back to comma
- $content = Get-Content $ofd.FileName -Raw
- if ($content -match ';') {
- $rows = Import-Csv $ofd.FileName -Delimiter ';'
- } else {
- $rows = Import-Csv $ofd.FileName
- }
- $count = 0
- foreach ($r in $rows) {
- # Read columns via PSObject properties (case-insensitive)
- $props = @{}
- foreach ($p in $r.PSObject.Properties) { $props[$p.Name.ToLower()] = "$($p.Value)".Trim() }
-
- $name = if ($props['name']) { $props['name'] } elseif ($props['title']) { $props['title'] } else { "" }
- $alias = if ($props['alias']) { $props['alias'] } elseif ($props['url']) { $props['url'] } else { "" }
- $type = if ($props['type']) { $props['type'] } else { "Team" }
- $tpl = if ($props['template']) { $props['template'] } else { "" }
- $own = if ($props['owners']) { $props['owners'] } elseif ($props['owner']) { $props['owner'] } else { "" }
- $mem = if ($props['members']) { $props['members'] } else { "" }
-
- # Name is required; skip empty rows
- if (-not $name) { continue }
- # Auto-generate alias from name if not provided
- if (-not $alias) {
- $alias = $name.ToLower() -replace '[^a-z0-9\-]', '-' -replace '-+', '-' -replace '^-|-$', ''
- }
- # Normalize type
- if ($type -match '^[Cc]omm') { $type = "Communication" } else { $type = "Team" }
- Add-BulkListItem @{
- Name = $name
- Alias = $alias
- Type = $type
- Template = $tpl
- Owners = $own
- Members = $mem
- }
- $count++
- }
- Write-Log "$count site(s) imported from CSV." "LightGreen"
-})
-
-$btnBulkRemove.Add_Click({
- while ($lvBulk.SelectedItems.Count -gt 0) {
- $lvBulk.Items.Remove($lvBulk.SelectedItems[0])
- }
-})
-
-$btnBulkClear.Add_Click({
- $lvBulk.Items.Clear()
-})
-
-$btnBulkCreate.Add_Click({
- $clientId = $txtClientId.Text.Trim()
- $tenantUrl = $txtTenantUrl.Text.Trim()
-
- if (-not $clientId) { Write-Log "Client ID requis." "Red"; return }
- if (-not $tenantUrl) { Write-Log "Tenant URL requis." "Red"; return }
- if ($lvBulk.Items.Count -eq 0) { Write-Log "Aucun site dans la liste." "Red"; return }
-
- # Collect entries
- $entries = @()
- foreach ($lvi in $lvBulk.Items) { $entries += $lvi.Tag }
-
- # Load all templates once
- $allTemplates = @{}
- foreach ($t in (Load-Templates)) { $allTemplates[$t.name] = $t }
-
- $params = @{
- ClientId = $clientId
- TenantUrl = $tenantUrl
- Entries = $entries
- Templates = $allTemplates
- }
-
- $btnBulkCreate.Enabled = $false
- $btnBulkAdd.Enabled = $false
- $btnBulkCsv.Enabled = $false
- $btnBulkRemove.Enabled = $false
- $btnBulkClear.Enabled = $false
- $txtLog.Clear()
- Start-ProgressAnim
- Write-Log "=== BULK SITE CREATION ===" "White"
- Write-Log "Sites to create: $($entries.Count)" "Gray"
- Write-Log ("-" * 52) "DarkGray"
-
- $bgBulk = {
- param($Params, $Sync)
- function BgLog([string]$m, [string]$c = "LightGreen") {
- $Sync.Queue.Enqueue(@{ Text = $m; Color = $c })
- }
-
- # Folder-tree helper (same as template manager)
- function Apply-FolderTreeBg([array]$folders, [string]$parentUrl) {
- foreach ($fd in $folders) {
- try {
- Add-PnPFolder -Name $fd.name -Folder $parentUrl -ErrorAction SilentlyContinue | Out-Null
- } catch {}
- if ($fd.subfolders -and $fd.subfolders.Count -gt 0) {
- Apply-FolderTreeBg $fd.subfolders "$parentUrl/$($fd.name)"
- }
- }
- }
-
- try {
- Import-Module PnP.PowerShell -ErrorAction Stop
-
- $adminUrl = if ($Params.TenantUrl -match '^(https?://[^.]+)(\.sharepoint\.com.*)') {
- "$($Matches[1])-admin$($Matches[2])"
- } else { $Params.TenantUrl }
- $base = if ($Params.TenantUrl -match '^(https?://[^.]+\.sharepoint\.com)') { $Matches[1] } else { $Params.TenantUrl }
-
- BgLog "Connexion au tenant admin..." "Yellow"
- Connect-PnPOnline -Url $adminUrl -Interactive -ClientId $Params.ClientId
-
- $total = $Params.Entries.Count
- $idx = 0
-
- foreach ($entry in $Params.Entries) {
- $idx++
- $name = $entry.Name
- $alias = $entry.Alias
- $isTeam = $entry.Type -ne "Communication"
- $ownerRaw = "$($entry.Owners)"
- $memberRaw = "$($entry.Members)"
- $owners = [string[]]@($ownerRaw -split '[,;\s]+' | Where-Object { $_ -match '\S' })
- $members = [string[]]@($memberRaw -split '[,;\s]+' | Where-Object { $_ -match '\S' })
- $tplName = $entry.Template
-
- BgLog "[$idx/$total] Creating '$name' (alias: $alias, type: $($entry.Type))..." "White"
- BgLog " DEBUG owners raw='$ownerRaw' parsed=[$($owners -join '|')] count=$($owners.Count)" "Gray"
- BgLog " DEBUG members raw='$memberRaw' parsed=[$($members -join '|')] count=$($members.Count)" "Gray"
-
- # TeamSite requires at least one owner
- if ($isTeam -and $owners.Count -eq 0) {
- BgLog " ERREUR : TeamSite requires at least one owner — skipping '$name'" "Red"
- $Sync.Queue.Enqueue(@{ Text = "##STATUS##"; Index = ($idx - 1); Value = "Error: no owner" })
- $Sync.ErrCount++
- continue
- }
-
- # Update status
- $Sync.Queue.Enqueue(@{ Text = "##STATUS##"; Index = ($idx - 1); Value = "Creating..." })
-
- try {
- # Create the site WITHOUT owners/members (PnP bug: odata.bind empty array)
- # Current user becomes default owner; we add owners/members after creation
- Connect-PnPOnline -Url $adminUrl -Interactive -ClientId $Params.ClientId
- if ($isTeam) {
- BgLog " Creating TeamSite '$alias' (owners/members added after)..." "DarkGray"
- $newUrl = New-PnPSite -Type TeamSite -Title $name -Alias $alias -Wait
- } else {
- BgLog " Creating CommunicationSite '$alias'..." "DarkGray"
- $newUrl = New-PnPSite -Type CommunicationSite -Title $name -Url "$base/sites/$alias" -Wait
- }
- BgLog " Site cree : $newUrl" "LightGreen"
-
- # Connect to the new site for owners/members/template
- Connect-PnPOnline -Url $newUrl -Interactive -ClientId $Params.ClientId
-
- # Assign owners & members post-creation
- if ($isTeam) {
- $groupId = $null
- try { $groupId = (Get-PnPSite -Includes GroupId).GroupId.Guid } catch {}
- if ($groupId) {
- foreach ($o in $owners) {
- try {
- Add-PnPMicrosoft365GroupOwner -Identity $groupId -Users $o -ErrorAction Stop
- BgLog " Owner added: $o" "Cyan"
- } catch { BgLog " Warn owner '$o': $($_.Exception.Message)" "DarkYellow" }
- }
- foreach ($m in $members) {
- try {
- Add-PnPMicrosoft365GroupMember -Identity $groupId -Users $m -ErrorAction Stop
- BgLog " Member added: $m" "Cyan"
- } catch { BgLog " Warn member '$m': $($_.Exception.Message)" "DarkYellow" }
- }
- } else {
- BgLog " Could not get M365 GroupId — owners/members not assigned" "DarkYellow"
- }
- } else {
- # CommunicationSite — classic SharePoint groups
- if ($owners.Count -gt 0) {
- $ownerGrp = Get-PnPGroup | Where-Object { $_.Title -like "*Propri*" -or $_.Title -like "*Owner*" } | Select-Object -First 1
- if ($ownerGrp) {
- foreach ($o in $owners) {
- try { Add-PnPGroupMember -LoginName $o -Group $ownerGrp.Title -ErrorAction SilentlyContinue } catch {}
- }
- }
- }
- if ($members.Count -gt 0) {
- $memberGrp = Get-PnPGroup | Where-Object { $_.Title -like "*Membre*" -or $_.Title -like "*Member*" } | Select-Object -First 1
- if ($memberGrp) {
- foreach ($m in $members) {
- try { Add-PnPGroupMember -LoginName $m -Group $memberGrp.Title -ErrorAction SilentlyContinue } catch {}
- }
- }
- }
- }
-
- # Apply template if specified
- if ($tplName -and $Params.Templates.ContainsKey($tplName)) {
- $tpl = $Params.Templates[$tplName]
- BgLog " Applying template '$tplName'..." "Yellow"
-
- # Settings
- if ($tpl.options.settings -and $tpl.settings -and $tpl.settings.description) {
- Set-PnPWeb -Description $tpl.settings.description
- }
- # Style
- if ($tpl.options.style -and $tpl.style -and $tpl.style.logoUrl) {
- Set-PnPWeb -SiteLogoUrl $tpl.style.logoUrl
- }
- # Structure
- if ($tpl.options.structure -and $tpl.structure -and $tpl.structure.Count -gt 0) {
- foreach ($lib in $tpl.structure) {
- $existing = Get-PnPList -Identity $lib.name -ErrorAction SilentlyContinue
- if (-not $existing) {
- try {
- $tplType = if ($lib.template -eq 101 -or $lib.type -eq "DocumentLibrary") {
- [Microsoft.SharePoint.Client.ListTemplateType]::DocumentLibrary
- } else {
- [Microsoft.SharePoint.Client.ListTemplateType]::GenericList
- }
- New-PnPList -Title $lib.name -Template $tplType | Out-Null
- } catch {}
- }
- if ($lib.folders -and $lib.folders.Count -gt 0) {
- $targetList = Get-PnPList -Identity $lib.name -ErrorAction SilentlyContinue
- if ($targetList) {
- $listRf = Get-PnPProperty -ClientObject $targetList -Property RootFolder
- $libBase = $listRf.ServerRelativeUrl.TrimEnd('/')
- Apply-FolderTreeBg $lib.folders $libBase
- }
- }
- }
- BgLog " Structure applied." "Cyan"
- }
- }
-
-
-
- $Sync.Queue.Enqueue(@{ Text = "##STATUS##"; Index = ($idx - 1); Value = "OK" })
- $Sync.CreatedSites.Add([PSCustomObject]@{
- Name = $name
- Alias = $alias
- Type = $entry.Type
- URL = $newUrl
- })
- $Sync.OkCount++
-
- } catch {
- $errMsg = $_.Exception.Message
- BgLog " ERREUR : $errMsg" "Red"
- $Sync.Queue.Enqueue(@{ Text = "##STATUS##"; Index = ($idx - 1); Value = "Error: $errMsg" })
- $Sync.ErrCount++
- }
- }
-
- BgLog "Termine : $($Sync.OkCount) OK, $($Sync.ErrCount) erreur(s)" "White"
- } catch {
- $Sync.Error = $_.Exception.Message
- BgLog "Erreur globale : $($_.Exception.Message)" "Red"
- } finally {
- $Sync.Done = $true
- }
- }
-
- $sync = [hashtable]::Synchronized(@{
- Queue = [System.Collections.Generic.Queue[object]]::new()
- Done = $false
- Error = $null
- OkCount = 0
- ErrCount = 0
- CreatedSites = [System.Collections.Generic.List[object]]::new()
- })
- $script:_BulkSync = $sync
-
- $rs = [System.Management.Automation.Runspaces.RunspaceFactory]::CreateRunspace()
- $rs.ApartmentState = "STA"; $rs.ThreadOptions = "ReuseThread"; $rs.Open()
- $ps = [System.Management.Automation.PowerShell]::Create()
- $ps.Runspace = $rs
- [void]$ps.AddScript($bgBulk)
- [void]$ps.AddArgument($params)
- [void]$ps.AddArgument($sync)
- $script:_BulkRS = $rs
- $script:_BulkPS = $ps
- $script:_BulkHnd = $ps.BeginInvoke()
-
- $tmr = New-Object System.Windows.Forms.Timer
- $tmr.Interval = 250
- $script:_BulkTimer = $tmr
- $tmr.Add_Tick({
- while ($script:_BulkSync.Queue.Count -gt 0) {
- $m = $script:_BulkSync.Queue.Dequeue()
- # Status update messages update the ListView item
- if ($m.Text -eq "##STATUS##") {
- $i = $m.Index
- if ($i -lt $lvBulk.Items.Count) {
- $lvi = $lvBulk.Items[$i]
- # Use the first column text to show status via ForeColor
- if ($m.Value -eq "OK") {
- $lvi.ForeColor = [System.Drawing.Color]::Green
- } elseif ($m.Value -like "Error*") {
- $lvi.ForeColor = [System.Drawing.Color]::Red
- } else {
- $lvi.ForeColor = [System.Drawing.Color]::DarkOrange
- }
- }
- } else {
- Write-Log $m.Text $m.Color
- }
- }
- if ($script:_BulkSync.Done) {
- $script:_BulkTimer.Stop(); $script:_BulkTimer.Dispose()
- while ($script:_BulkSync.Queue.Count -gt 0) {
- $m = $script:_BulkSync.Queue.Dequeue()
- if ($m.Text -ne "##STATUS##") { Write-Log $m.Text $m.Color }
- }
- try { [void]$script:_BulkPS.EndInvoke($script:_BulkHnd) } catch {}
- try { $script:_BulkRS.Close(); $script:_BulkRS.Dispose() } catch {}
- $btnBulkCreate.Enabled = $true
- $btnBulkAdd.Enabled = $true
- $btnBulkCsv.Enabled = $true
- $btnBulkRemove.Enabled = $true
- $btnBulkClear.Enabled = $true
- Stop-ProgressAnim
-
- if ($script:_BulkSync.Error) {
- Write-Log "Echec : $($script:_BulkSync.Error)" "Red"
- return
- }
- # Export CSV report of created sites
- if ($script:_BulkSync.CreatedSites.Count -gt 0) {
- $outDir = $txtOutput.Text.Trim()
- if (-not $outDir) { $outDir = if ($PSScriptRoot) { $PSScriptRoot } else { $PWD.Path } }
- if (-not (Test-Path $outDir)) { New-Item -ItemType Directory -Path $outDir | Out-Null }
- $stamp = Get-Date -Format "yyyyMMdd_HHmmss"
- $csvFile = Join-Path $outDir "BulkCreate_$stamp.csv"
- $script:_BulkSync.CreatedSites | Export-Csv -Path $csvFile -NoTypeInformation -Encoding UTF8
- Write-Log "Rapport CSV : $csvFile" "White"
- }
- Write-Log "=== BULK CREATE COMPLETE: $($script:_BulkSync.OkCount) OK, $($script:_BulkSync.ErrCount) error(s) ===" "White"
- }
- })
- $tmr.Start()
-})
-
-#endregion
-
-#region ===== Structure (folder tree from CSV) =====
-
-# Store the parsed folder paths
-$script:_StructPaths = @()
-
-function Build-StructTree([string]$csvPath) {
- # Auto-detect delimiter
- $raw = Get-Content $csvPath -Raw
- $delim = if ($raw -match ';') { ';' } else { ',' }
- $rows = Import-Csv $csvPath -Delimiter $delim
-
- $paths = [System.Collections.Generic.List[string]]::new()
- foreach ($r in $rows) {
- $cols = @($r.PSObject.Properties | ForEach-Object { "$($_.Value)".Trim() })
- # Build path from non-empty columns
- $parts = @($cols | Where-Object { $_ -ne '' })
- if ($parts.Count -gt 0) {
- # Add all intermediate paths to ensure parents exist
- for ($i = 1; $i -le $parts.Count; $i++) {
- $p = ($parts[0..($i-1)] -join '/')
- if (-not $paths.Contains($p)) { $paths.Add($p) }
- }
- }
- }
- $script:_StructPaths = @($paths | Sort-Object)
- return $script:_StructPaths
-}
-
-function Populate-StructTreeView([string[]]$paths) {
- $tvStruct.Nodes.Clear()
- $nodeMap = @{}
- foreach ($p in $paths) {
- $parts = $p -split '/'
- $parentKey = if ($parts.Count -gt 1) { ($parts[0..($parts.Count - 2)] -join '/') } else { '' }
- $name = $parts[-1]
- $node = New-Object System.Windows.Forms.TreeNode($name)
- $node.Tag = $p
- if ($parentKey -and $nodeMap.ContainsKey($parentKey)) {
- $nodeMap[$parentKey].Nodes.Add($node) | Out-Null
- } else {
- $tvStruct.Nodes.Add($node) | Out-Null
- }
- $nodeMap[$p] = $node
- }
- $tvStruct.ExpandAll()
-}
-
-$btnStructCsv.Add_Click({
- $ofd = New-Object System.Windows.Forms.OpenFileDialog
- $ofd.Filter = "CSV (*.csv)|*.csv|All (*.*)|*.*"
- if ($ofd.ShowDialog($form) -ne "OK") { return }
- try {
- $paths = Build-StructTree $ofd.FileName
- Populate-StructTreeView $paths
- Write-Log "$($paths.Count) folder(s) loaded from CSV." "LightGreen"
- } catch {
- Write-Log "CSV error: $($_.Exception.Message)" "Red"
- }
-})
-
-$btnStructClear.Add_Click({
- $tvStruct.Nodes.Clear()
- $script:_StructPaths = @()
- Write-Log "Structure cleared." "Gray"
-})
-
-$btnStructCreate.Add_Click({
- $siteUrl = $txtSiteUrl.Text.Trim()
- $clientId = $txtClientId.Text.Trim()
- $library = $txtStructLib.Text.Trim()
-
- if (-not $siteUrl) { Write-Log "Site URL required." "Red"; return }
- if (-not $clientId) { Write-Log "Client ID required." "Red"; return }
- if (-not $library) { Write-Log "Target library required." "Red"; return }
- if ($script:_StructPaths.Count -eq 0) { Write-Log "No structure loaded. Load a CSV first." "Red"; return }
-
- $btnStructCreate.Enabled = $false
- $btnStructCsv.Enabled = $false
- Start-ProgressAnim
- Write-Log "=== CREATING FOLDER STRUCTURE ===" "White"
- Write-Log "Target: $siteUrl / $library" "Gray"
- Write-Log "Folders to create: $($script:_StructPaths.Count)" "Gray"
- Write-Log ("-" * 52) "DarkGray"
-
- try {
- Connect-PnPOnline -Url $siteUrl -Interactive -ClientId $clientId
-
- # Get the library root
- $list = Get-PnPList -Identity $library -ErrorAction Stop
- $rf = Get-PnPProperty -ClientObject $list -Property RootFolder
- $base = $rf.ServerRelativeUrl.TrimEnd('/')
-
- $ok = 0
- $err = 0
- $total = $script:_StructPaths.Count
- foreach ($p in $script:_StructPaths) {
- $folderPath = "$base/$p"
- try {
- # Resolve-PnPFolder creates the full path recursively
- Resolve-PnPFolder -SiteRelativePath "$library/$p" -ErrorAction Stop | Out-Null
- $ok++
- Write-Log " OK: $p" "LightGreen"
- } catch {
- $err++
- Write-Log " FAIL: $p — $($_.Exception.Message)" "Red"
- }
- }
- Write-Log "=== STRUCTURE COMPLETE: $ok OK, $err error(s) ===" "White"
- } catch {
- Write-Log "Error: $($_.Exception.Message)" "Red"
- } finally {
- $btnStructCreate.Enabled = $true
- $btnStructCsv.Enabled = $true
- Stop-ProgressAnim
- }
-})
-
-# ── Version Cleanup handlers ─────────────────────────────────────────────────
-$script:_VerReport = $null
-
-$btnVerOpen.Add_Click({
- if ($script:_VerReport -and (Test-Path $script:_VerReport)) {
- Start-Process $script:_VerReport
- }
-})
-
-$btnVerRun.Add_Click({
- # --- Gather all selected site URLs ---
- $siteUrls = if ($script:SelectedSites -and $script:SelectedSites.Count -gt 0) {
- @($script:SelectedSites)
- } else {
- @($txtSiteURL.Text.Trim())
- }
- $siteUrls = @($siteUrls | Where-Object { $_ })
- if ($siteUrls.Count -eq 0) { Write-Log "Site URL required." "Red"; return }
-
- $clientId = $txtClientId.Text.Trim()
- if (-not $clientId) { Write-Log "Client ID required." "Red"; return }
-
- $keepCount = [int]$nudVerCount.Value
- $useDate = $chkVerDate.Checked
- $dateBefore = $radVerBefore.Checked # true = keep before, false = keep after
- $cutoffDate = $dtpVer.Value
- $library = $txtVerLib.Text.Trim()
- $recursive = $chkVerRecursive.Checked
- $subsites = $chkVerSubsites.Checked
- $dryRun = $chkVerDryRun.Checked
-
- $btnVerRun.Enabled = $false
- Start-ProgressAnim
- $modeLabel = if ($dryRun) { "DRY RUN" } else { "LIVE" }
- Write-Log "=== VERSION CLEANUP ($modeLabel) ===" "White"
- Write-Log "Keep: $keepCount version(s)" "Gray"
- if ($useDate) {
- $dir = if ($dateBefore) { "before" } else { "after" }
- Write-Log "Date filter: keep versions $dir $($cutoffDate.ToString('yyyy-MM-dd'))" "Gray"
- }
- Write-Log ("-" * 52) "DarkGray"
-
- $report = [System.Collections.Generic.List[object]]::new()
- $totalDeleted = 0
- $totalKept = 0
- $totalErrors = 0
-
- try {
- foreach ($siteUrl in $siteUrls) {
- Write-Log "Connecting to $siteUrl ..." "Gray"
- Connect-PnPOnline -Url $siteUrl -Interactive -ClientId $clientId
-
- # Collect site URLs to process (main + subsites)
- $sitesToProcess = @($siteUrl)
- if ($subsites) {
- try {
- $subs = Get-PnPSubWeb -Recurse -ErrorAction SilentlyContinue
- foreach ($sw in $subs) { $sitesToProcess += $sw.Url }
- } catch {}
- }
-
- foreach ($currentSite in $sitesToProcess) {
- if ($currentSite -ne $siteUrl) {
- try { Connect-PnPOnline -Url $currentSite -Interactive -ClientId $clientId } catch {
- Write-Log " Cannot connect to subsite $currentSite — skipped" "DarkOrange"
- continue
- }
- }
- Write-Log "Processing site: $currentSite" "White"
-
- # Get target lists
- $lists = @()
- if ($library) {
- try { $lists = @(Get-PnPList -Identity $library -ErrorAction Stop) } catch {
- Write-Log " Library '$library' not found — skipped" "DarkOrange"
- continue
- }
- } else {
- $lists = Get-PnPList | Where-Object { $_.BaseTemplate -eq 101 -and $_.Hidden -eq $false }
- }
-
- foreach ($list in $lists) {
- Write-Log " Library: $($list.Title)" "Gray"
- try {
- $camlQuery = "5000"
- if (-not $recursive) {
- $camlQuery = "5000"
- }
- $items = Get-PnPListItem -List $list.Title -Query $camlQuery -ErrorAction Stop |
- Where-Object { $_.FileSystemObjectType -eq "File" }
- } catch {
- Write-Log " Error listing files: $($_.Exception.Message)" "Red"
- $totalErrors++
- continue
- }
-
- foreach ($item in $items) {
- try {
- $file = $item.FieldValues["FileRef"]
- $versions = Get-PnPFileVersion -Url $file -ErrorAction Stop
-
- if ($versions.Count -le $keepCount) { continue }
-
- # Sort versions oldest first (by VersionLabel numeric)
- $sorted = $versions | Sort-Object { [double]$_.VersionLabel }
-
- # Determine which versions to delete
- $toDelete = @()
- foreach ($v in $sorted) {
- # Always keep the last $keepCount versions
- $idx = [array]::IndexOf($sorted, $v)
- $remaining = $sorted.Count - $idx
- if ($remaining -le $keepCount) { break }
-
- # Apply date filter if enabled
- if ($useDate) {
- $vDate = [datetime]$v.Created
- if ($dateBefore) {
- # Keep versions before cutoff → delete versions ON or AFTER cutoff
- if ($vDate -lt $cutoffDate) { continue }
- } else {
- # Keep versions after cutoff → delete versions BEFORE cutoff
- if ($vDate -ge $cutoffDate) { continue }
- }
- }
-
- $toDelete += $v
- }
-
- if ($toDelete.Count -eq 0) { continue }
-
- $fileName = Split-Path $file -Leaf
- foreach ($v in $toDelete) {
- if ($dryRun) {
- Write-Log " [DRY] Would delete v$($v.VersionLabel) of $fileName ($($v.Created))" "DarkOrange"
- } else {
- try {
- Remove-PnPFileVersion -Url $file -Identity $v.Id -Force -ErrorAction Stop
- Write-Log " Deleted v$($v.VersionLabel) of $fileName" "LightGreen"
- } catch {
- Write-Log " Error deleting v$($v.VersionLabel) of $fileName — $($_.Exception.Message)" "Red"
- $totalErrors++
- }
- }
- $totalDeleted++
- }
-
- $kept = $sorted.Count - $toDelete.Count
- $totalKept += $kept
-
- $report.Add([PSCustomObject]@{
- Site = $currentSite
- Library = $list.Title
- File = $file
- TotalVer = $sorted.Count
- Deleted = $toDelete.Count
- Kept = $kept
- })
- } catch {
- $totalErrors++
- }
- }
- }
- }
- }
-
- # Export CSV report
- if ($report.Count -gt 0) {
- $outDir = $txtOutput.Text.Trim()
- if (-not $outDir) { $outDir = if ($PSScriptRoot) { $PSScriptRoot } else { $PWD.Path } }
- if (-not (Test-Path $outDir)) { New-Item -ItemType Directory -Path $outDir | Out-Null }
- $stamp = Get-Date -Format "yyyyMMdd_HHmmss"
- $prefix = if ($dryRun) { "VersionCleanup_DryRun" } else { "VersionCleanup" }
- $csvFile = Join-Path $outDir "${prefix}_$stamp.csv"
- $report | Export-Csv -Path $csvFile -NoTypeInformation -Encoding UTF8
- $script:_VerReport = $csvFile
- $btnVerOpen.Enabled = $true
- Write-Log "Report: $csvFile" "White"
- }
-
- Write-Log "=== VERSION CLEANUP COMPLETE: $totalDeleted deleted, $totalKept kept, $totalErrors error(s) ===" "White"
- } catch {
- Write-Log "Error: $($_.Exception.Message)" "Red"
- } finally {
- $btnVerRun.Enabled = $true
- Stop-ProgressAnim
- }
-})
-
-#endregion
-
-# ── Initialisation : chargement des settings ───────────────────────────────
-$_settings = Load-Settings
-$script:DataFolder = if ($_settings.dataFolder -and (Test-Path $_settings.dataFolder)) {
- $_settings.dataFolder
-} elseif ($PSScriptRoot) { $PSScriptRoot } else { $PWD.Path }
-
-# Load saved language (applies T() translations and updates all registered controls)
-$_savedLang = if ($_settings.lang) { $_settings.lang } else { "en" }
-if ($_savedLang -ne "en") {
- Load-Language $_savedLang
- Update-UILanguage
- foreach ($mi in $menuLang.DropDownItems) {
- if ($mi -is [System.Windows.Forms.ToolStripMenuItem]) {
- $mi.Checked = ($mi.Tag -eq $script:CurrentLang)
- }
- }
-}
-
-Refresh-ProfileList
-$n = (Load-Templates).Count
-$lblTplCount.Text = "$n $(T 'tpl.count')"
-
-[System.Windows.Forms.Application]::Run($form)