Added stuff

Sharepoint/gui/spmover/sputils.ps1

@@ -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
 
-	$ConnBool = $ConnResult -contains "Host not reachable"
+	$tenantURL = $URLTenant.Text
-	if($ConnBool = $true) 
+	Connect-PnPOnline -Url $tenantURL -Interactive 2>&1 | Out-String
-	{ 
+	
+	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é"
-		}
-		
-}
 
 })