Added stuff

This commit is contained in:
Sébastien QUEROL 2024-03-11 23:58:54 +01:00
parent 8b50ddb79c
commit 993825bea5
1 changed files with 59 additions and 25 deletions

View File

@ -32,6 +32,7 @@ $Mquestion = New-Object System.Windows.Forms.ToolStripMenuItem
$MQuestionApropos = New-Object System.Windows.Forms.ToolStripMenuItem
$MQuestionWiki = New-Object System.Windows.Forms.ToolStripMenuItem
$Bgo = New-Object System.Windows.Forms.Button
$BlistSites = New-Object System.Windows.Forms.Button
$CBsourceSite = New-Object System.Windows.Forms.ComboBox
$CBdestSite = New-Object System.Windows.Forms.ComboBox
$progressBar1 = New-Object System.Windows.Forms.ProgressBar
@ -98,13 +99,23 @@ $Bgo.TabIndex = 1
$Bgo.Text = "GO"
$Bgo.UseVisualStyleBackColor = $true
#
# BlistSites
#
$BlistSItes.ForeColor = [System.Drawing.Color]::Black
$BlistSItes.Location = New-Object System.Drawing.Point(649, 55)
$BlistSItes.Name = "BlistSites"
$BlistSItes.Size = New-Object System.Drawing.Size(75, 23)
$BlistSItes.TabIndex = 2
$BlistSItes.Text = "List. Sites"
$BlistSItes.UseVisualStyleBackColor = $true
#
# CBsourceSite
#
$CBsourceSite.FormattingEnabled = $true
$CBsourceSite.Location = New-Object System.Drawing.Point(23, 44)
$CBsourceSite.Name = "CBsourceSite"
$CBsourceSite.Size = New-Object System.Drawing.Size(587, 21)
$CBsourceSite.TabIndex = 2
$CBsourceSite.TabIndex = 3
#
# CBdestSite
#
@ -112,14 +123,14 @@ $CBdestSite.FormattingEnabled = $true
$CBdestSite.Location = New-Object System.Drawing.Point(23, 113)
$CBdestSite.Name = "CBdestSite"
$CBdestSite.Size = New-Object System.Drawing.Size(587, 21)
$CBdestSite.TabIndex = 3
$CBdestSite.TabIndex = 4
#
# progressBar1
#
$progressBar1.Location = New-Object System.Drawing.Point(8, 369)
$progressBar1.Name = "progressBar1"
$progressBar1.Size = New-Object System.Drawing.Size(776, 23)
$progressBar1.TabIndex = 4
$progressBar1.TabIndex = 5
#
# label1
#
@ -128,7 +139,7 @@ $label1.ForeColor = [System.Drawing.Color]::Black
$label1.Location = New-Object System.Drawing.Point(23, 19)
$label1.Name = "label1"
$label1.Size = New-Object System.Drawing.Size(41, 13)
$label1.TabIndex = 5
$label1.TabIndex = 6
$label1.Text = "Source"
#
# label2
@ -138,7 +149,7 @@ $label2.ForeColor = [System.Drawing.Color]::Black
$label2.Location = New-Object System.Drawing.Point(23, 88)
$label2.Name = "label2"
$label2.Size = New-Object System.Drawing.Size(60, 13)
$label2.TabIndex = 6
$label2.TabIndex = 7
$label2.Text = "Destination"
#
# tabs
@ -152,7 +163,7 @@ $tabs.Location = New-Object System.Drawing.Point(0, 27)
$tabs.Name = "tabs"
$tabs.SelectedIndex = 0
$tabs.Size = New-Object System.Drawing.Size(800, 424)
$tabs.TabIndex = 7
$tabs.TabIndex = 8
#
# tabPage1
#
@ -161,6 +172,7 @@ $tabPage1.Controls.Add($label1)
$tabPage1.Controls.Add($progressBar1)
$tabPage1.Controls.Add($label2)
$tabPage1.Controls.Add($Bgo)
$tabPage1.Controls.Add($BlistSites)
$tabPage1.Controls.Add($CBsourceSite)
$tabPage1.Controls.Add($CBdestSite)
$tabPage1.Location = New-Object System.Drawing.Point(4, 22)
@ -281,7 +293,7 @@ $button1.Location = New-Object System.Drawing.Point(21, 29)
$button1.Name = "button1"
$button1.Size = New-Object System.Drawing.Size(174, 23)
$button1.TabIndex = 3
$button1.Text = "Choix de l\'emplacement..."
$button1.Text = "Choix de l'emplacement..."
$button1.UseVisualStyleBackColor = $true
#
# checkBox1
@ -356,31 +368,53 @@ $FMain.MainMenuStrip = $menuStrip1
$FMain.Name = "FMain"
$FMain.Text = "SharePoint Utils GUI"
#Onglet Move
##Lister les sites dans les comboBoxes
$BlistSites.Add_Click({
#On vide la variable lastError pour ne pas avoir de faux positifs
$lastError=''
#On stocke la derniere erreur
$lastError=$ERROR[0]
#A ameliorer, mais pour l'instant, ca devrait passer
if([string]::IsNullOrEmpty($lastError)){
$sitesList=@()
$sitesList = Get-SPOSite | Select url
$CBsourceSite.Items.AddRange($sitesList)
$CBdestSite.Items.AddRange($sitesList)
}
elseif(-not ([string]::IsNullOrEmpty($lastError))){
$sitesListError=@('Circulez','Ya rien a voir')
$CBsourceSite.Items.AddRange($sitesListError)
$CBdestSite.Items.AddRange($sitesListError)}
else{
$LresultsMove.Items.Add("Connectez-vous au tenant d'abord")
}
})
#Onglet Parametres
##Connexion Sharepoint
$BconnectSP.Add_Click({
$tenantURL = $URLTenant.Text
$ConnResult = Connect-PnPOnline -Url $tenantURL -Interactive | Out-String
Write-Host $ConnResult
Connect-PnPOnline -Url $tenantURL -Interactive 2>&1 | Out-String
$ConnBool = $ConnResult -contains "Host not reachable"
if($ConnBool = $true)
Switch ($ERROR)
{
{$ERROR[0] -match "Host not reachable" }{
$label4.Text = "Injoignable"
$label4.ForeColor = [System.Drawing.Color]::MediumVioletRed
}
{$ERROR[0] -match "User canceled authentication."}{
$label4.Text = "Annulé"
$label4.ForeColor = [System.Drawing.Color]::MediumVioletRed
}
Default {
$label4.Text = "Connecté"
$label4.ForeColor = [System.Drawing.Color]::Green
}
}
else{
$ConnBool = $ConnResult -contains "User canceled authentication."
if($ConnBool = $true)
{
$label4.Text = "Déconnecté"
}
else{
$label4.ForeColor = [System.Drawing.Color]::Green
$label4.Text = "Connecté"
}
}
})