# Debut de la fonction
function GenerateForm {
#region Import des Asemblys
[reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null
[reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null
[System.Reflection.Assembly]::LoadWithPartialName("Microsoft.SharePoint")|Out-Null
#endregion
#region génération de la FORME
$form1 = New-Object System.Windows.Forms.Form
$btn_UserTrash = New-Object System.Windows.Forms.Button
$btnVideCorbeilleUser = New-Object System.Windows.Forms.Button
$SiteTemplate = New-Object System.Windows.Forms.GroupBox
$CreateTemplate = New-Object System.Windows.Forms.Button
$TemplateContent = New-Object System.Windows.Forms.CheckBox
$label5 = New-Object System.Windows.Forms.Label
$label4 = New-Object System.Windows.Forms.Label
$Ltitre = New-Object System.Windows.Forms.Label
$TemplateDescription = New-Object System.Windows.Forms.TextBox
$TemplateNom = New-Object System.Windows.Forms.TextBox
$TemplateTitre = New-Object System.Windows.Forms.TextBox
$LabelTheme = New-Object System.Windows.Forms.Label
$groupBox1 = New-Object System.Windows.Forms.GroupBox
$Infos = New-Object System.Windows.Forms.Label
$BoxResultat = New-Object System.Windows.Forms.TextBox
$SiteList = New-Object System.Windows.Forms.ListBox
$ThemeBox = New-Object System.Windows.Forms.ComboBox
$ThemeChanger = New-Object System.Windows.Forms.Button
$button1 = New-Object System.Windows.Forms.Button
$textBox2 = New-Object System.Windows.Forms.TextBox
$label2 = New-Object System.Windows.Forms.Label
$label1 = New-Object System.Windows.Forms.Label
$textBox1 = New-Object System.Windows.Forms.TextBox
$dataGridTableStyle1 = New-Object System.Windows.Forms.DataGridTableStyle
#endregion
#region Connexion au serveur
$ConexionServeur=
{
#***************************************
#Vide la liste des sites
#***************************************
$SiteList.Items.Clear()
#***************************************
#region Gestion des erreurs de saisie ou serveur inaccessible!
#***************************************
#Gestion des erreurs de connexion
#***************************************
trap [Exception] {
$BoxResultat.text = "Erreur: $($_.Exception.Message) :::: `n`n Impossible de se connecter au serveur. Vérifiez votre saisie!"
continue
}
#***************************************
#endregion
#***************************************
#Definition de l'URL du serveur
#***************************************
$userURL = $TextBox1.text
$userport = $textbox2.text
$userFullURL = $userURL+":"+$userport
#***************************************
#***************************************
#Affichage de l'URL et Connexion au site
#***************************************
$BoxResultat.text = "Connexion au site: " + $userFullURL
$mysite=new-object Microsoft.SharePoint.SPSite($userFullURL)
#$mysite=new-object Microsoft.SharePoint.SPSite("http://win2008as/News")
$AllSites = $mysite.AllWebs
#***************************************
#***************************************
#Boucle pour lister les sites sous l'URL
#***************************************
foreach ($UnSite in $AllSites)
{
$SiteList.Items.Add($UnSite)
}
#***************************************
}
#endregion
#region Click Liste Des Sites
$SiteListClick=
{
$separation = "`r`n-----------------------------------------------------------------------------"
$retour = "`r`n"
#*****************************************************
#*****************************************************
#Vide la liste des informations sur le site
$BoxResultat.text=""
#*****************************************************
#*****************************************************
#Remplir le label avec le nom du site dans la selection
$Infos.Text = 'Connexion au site: '+$SiteList.SelectedItem
#*****************************************************
#*****************************************************
#Connexion au site de la selection
$maselectiondesite=new-object Microsoft.SharePoint.SPSite($SiteList.SelectedItem.url)
##############$maselectiondesite=new-object Microsoft.SharePoint.SPSite("http://win2008as/News")
$myweb = $maselectiondesite.openweb()
#*****************************************************
#*****************************************************
#Affiche les infos de la selection
$Infos.Text = "Informations sur le site - Titre: " + $SiteList.SelectedItem +" URL: " + $SiteList.SelectedItem.url
#*****************************************************
#*****************************************************
$BoxResultat.text += "Titre du site: " + $myweb.Title
$BoxResultat.text += $retour
#region Determine si le site est racine
if ($myweb.IsRootWeb -eq "True")
{
#Fixe l'url du site à / pour la racine Web
$BoxResultat.text += "`r`nURL du site: /"
}
else
{
#Recuperation du nom
$BoxResultat.text += "`r`nURL du site: "+ $myweb.Name
}
$BoxResultat.text += $retour
#endregion
$BoxResultat.text += "Date de création: " + $myweb.Created
$BoxResultat.text += $retour
$BoxResultat.text += "`r`nQuota - Stockage Maxi: " + ($maselectiondesite.Quota.StorageMaximumLevel/1048576) +" Mo"
$BoxResultat.text += "`r`nQuota - Avertissement du stockage: " + ($maselectiondesite.Quota.StorageWarningLevel/1048576) + " Mo"
$BoxResultat.text += $retour
$BoxResultat.text += "`r`nStockage utilisée pour la collection de site: " + ($maselectiondesite.Usage.Storage/1000000)+" Mo"
$BoxResultat.text += $retour
$CorbeilleInfo = $maselectiondesite.RecycleBin.Count
$CorbeilleSite = $myweb.RecycleBin.Count
$BoxResultat.text += "`r`nTotal des éléments dans les corbeilles de la collection: " + $CorbeilleInfo
$BoxResultat.text += "`r`nTotal des éléments dans la corbeille utilisateur pour ce site: " + $CorbeilleSite
$BoxResultat.text += $retour
$BoxResultat.text += "`r`nMethode d'authentification: " + $myweb.AuthenticationMode
$MaDate = $maselectiondesite.LastSecurityModifiedDate.Date
$BoxResultat.text += "`r`nDate de modification de la sécurité dans la collection de site: " + $MaDate.Day+"/"+$MaDate.Month+"/"+$MaDate.Year
$BoxResultat.text += $retour
$BoxResultat.text += "`r`nUrl de la MasterPage par defaut: " + $myweb.MasterUrl
$BoxResultat.text += "`r`nUrl de la MasterPage en cours: " +$myweb.CustomMasterUrl
$BoxResultat.text += $retour
$BoxResultat.text += "`r`nDescription: " + $myweb.Description
$BoxResultat.text += $retour
$BoxResultat.text += "`r`nLocalisation: " + $myweb.Locale
$BoxResultat.text += " -- " + "Language: " + $myweb.Language
$BoxResultat.text += $retour
$BoxResultat.text += "`r`nAutorisez dans les résultats de recherche: " + $myweb.NoCrawl
$BoxResultat.text += $retour
#*****************************************************
#*****************************************************
#region Theme du site
#Determine le nom du theme en cours
if ($myweb.Theme -eq "")
{
#*****************************************************
#Affiche 'Theme par defaut' si le nom du theme est vierge
$BoxResultat.text += "`r`nTheme utilise: Theme par defaut"
$BoxResultat.text += $retour
}
else
{
#*****************************************************
#Affiche le nom du theme en cours d'utilisation si autre que celui par defaut
$BoxResultat.text += "`r`nTheme utilise: " + $myweb.Theme
$BoxResultat.text += $retour
}
#endregion
#region Flux Rss
if ($myweb.AllowRssFeeds -eq "True")
{
$BoxResultat.text += "`r`nAutorise les Flux RSS: Oui"
}
else
{
$BoxResultat.text += "`r`nAutorise les Flux RSS: Non"
}
#endregion
#region liste des listes
$BoxResultat.text += $separation
$BoxResultat.text += "`r`nListe du site: "
foreach ($li in $myweb.Lists)
{
$BoxResultat.text += "`r`n - " + $li
}
#endregion
#region Liste des Admins
$ListAdmin = $myweb.SiteAdministrators
$BoxResultat.text += $separation
$BoxResultat.text += "`r`nListe des Administrateurs"
foreach ($lua in $ListAdmin)
{
$BoxResultat.text += "`r`n- " + $lua
}
#endregion
#region Liste des Users
$BoxResultat.text += $separation
$BoxResultat.text += "`r`nListe des utilisateurs:"
foreach ($au in $myweb.AllUsers)
{
$BoxResultat.text += "`r`n - " + $au
}
#endregion
#region Liste des groupes
$BoxResultat.text += $separation
$BoxResultat.text += "`r`nListe des groupes: "
foreach ($lg in $myweb.AssociatedGroups)
{
$BoxResultat.text += "`r`n - " + $lg
}
#endregion
#$BoxResultat.text += "`r`nQuota: " + $maselectiondesite.LastSecurityModifiedDate.Date
}
#endregion
#region Vider toutes les corbeilles de la collection de site
$Vide_Corbeille=
{
$s = "Voulez-vous supprimer le contenu de la corbeille"
$d = [Windows.Forms.MessageBox]::Show($s, "Suppression", [Windows.Forms.MessageBoxButtons]::YesNo, [Windows.Forms.MessageBoxIcon]::Question)
if ($d -eq [Windows.Forms.DialogResult]::Yes)
{
$mysite.RecycleBin.DeleteAll()
}
}
#endregion
#region Vider la corbeille User
$Vide_CorbeilleUser=
{
$s = "Voulez-vous supprimer le contenu de la corbeille utilisateur définitivement"
$d = [Windows.Forms.MessageBox]::Show($s, "Suppression", [Windows.Forms.MessageBoxButtons]::YesNo, [Windows.Forms.MessageBoxIcon]::Question)
if ($d -eq [Windows.Forms.DialogResult]::Yes)
{
$SitecollectionRecycleBin = $myweb.RecycleBin
for ($x = $SitecollectionRecycleBin.Count ; $x -gt 0 ; $x--)
{
$Item = $SitecollectionRecycleBin.Item($x-1)
$SitecollectionRecycleBin.Delete($Item.ID)
}}}
#endregion
#region Appliquer un theme (A finir)
$AppliquerTheme=
{
#Pas terminé
}
#endregion
#region Creation du modele de site
$CreateTemplateProcess=
{
#region gestion des Erreurs
trap [Exception] {
$BoxResultat.text = "Erreur de creation du modele: $($_.Exception.Message)`r`n Impossible de créer un modele....!"
continue
}
#endregion
$NomTemp = $TemplateNom.text
$Desctemplate = $TemplateDescription.text
$TitleTemp = $TemplateTitre.text
$Content = $templateContent.CheckState
#region Détermine si le contenu doit-être inclus dans le modèle
if ($Content -eq "Checked")
{
$ContentState = "True"
}
else
{
$ContentState = "False"
}
#endregion
$myweb.SaveAsTemplate($NomTemp,$titleTemp,$Desctemplate,$ContentState)
}
#endregion
#region Generated Form Code
$form1.Text = 'SharePoint - Informations sur la collection de site'
$form1.Name = 'form1'
$form1.FormBorderStyle = 5
$form1.AutoSize = 'True'
$form1.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 669
$System_Drawing_Size.Height = 503
$form1.ClientSize = $System_Drawing_Size
$btn_UserTrash.TabIndex = 13
$btn_UserTrash.Name = 'btn_UserTrash'
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 101
$System_Drawing_Size.Height = 36
$btn_UserTrash.Size = $System_Drawing_Size
$btn_UserTrash.UseVisualStyleBackColor = $True
$btn_UserTrash.Text = 'Vider la corbeille du site'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 198
$System_Drawing_Point.Y = 446
$btn_UserTrash.Location = $System_Drawing_Point
$btn_UserTrash.DataBindings.DefaultDataSourceUpdateMode = 0
$btn_UserTrash.add_Click($Vide_CorbeilleUser)
$btnVideCorbeilleUser.TabIndex = 12
$btnVideCorbeilleUser.Name = 'btnVideCorbeilleUser'
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 101
$System_Drawing_Size.Height = 35
$btnVideCorbeilleUser.Size = $System_Drawing_Size
$btnVideCorbeilleUser.UseVisualStyleBackColor = $True
$btnVideCorbeilleUser.Text = 'Vider toutes les corbeilles'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 198
$System_Drawing_Point.Y = 404
$btnVideCorbeilleUser.Location = $System_Drawing_Point
$btnVideCorbeilleUser.DataBindings.DefaultDataSourceUpdateMode = 0
$btnVideCorbeilleUser.add_Click($Vide_Corbeille)
$form1.Controls.Add($btnVideCorbeilleUser)
$form1.Controls.Add($btn_UserTrash)
$SiteTemplate.Name = 'SiteTemplate'
$SiteTemplate.Text = 'Modèle de site'
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 336
$System_Drawing_Size.Height = 147
$SiteTemplate.Size = $System_Drawing_Size
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 324
$System_Drawing_Point.Y = 353
$SiteTemplate.Location = $System_Drawing_Point
$SiteTemplate.TabStop = $False
$SiteTemplate.TabIndex = 11
$SiteTemplate.DataBindings.DefaultDataSourceUpdateMode = 0
$form1.Controls.Add($SiteTemplate)
$CreateTemplate.TabIndex = 7
$CreateTemplate.Name = 'CreateTemplate'
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 55
$System_Drawing_Size.Height = 23
$CreateTemplate.Size = $System_Drawing_Size
$CreateTemplate.UseVisualStyleBackColor = $True
$CreateTemplate.Text = 'Créer'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 265
$System_Drawing_Point.Y = 115
$CreateTemplate.Location = $System_Drawing_Point
$CreateTemplate.DataBindings.DefaultDataSourceUpdateMode = 0
$CreateTemplate.add_Click($CreateTemplateProcess)
$SiteTemplate.Controls.Add($CreateTemplate)
$TemplateContent.TabIndex = 6
$TemplateContent.Name = 'TemplateContent'
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 92
$System_Drawing_Size.Height = 32
$TemplateContent.Size = $System_Drawing_Size
$TemplateContent.UseVisualStyleBackColor = $True
$TemplateContent.Text = 'Inclure le contenu'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 103
$System_Drawing_Point.Y = 109
$TemplateContent.Location = $System_Drawing_Point
$TemplateContent.DataBindings.DefaultDataSourceUpdateMode = 0
$SiteTemplate.Controls.Add($TemplateContent)
$label5.TabIndex = 5
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 30
$System_Drawing_Size.Height = 23
$label5.Size = $System_Drawing_Size
$label5.Text = 'Nom'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 43
$System_Drawing_Point.Y = 56
$label5.Location = $System_Drawing_Point
$label5.DataBindings.DefaultDataSourceUpdateMode = 0
$label5.Name = 'label5'
$SiteTemplate.Controls.Add($label5)
$label4.TabIndex = 4
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 68
$System_Drawing_Size.Height = 23
$label4.Size = $System_Drawing_Size
$label4.Text = 'Description'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 33
$System_Drawing_Point.Y = 82
$label4.Location = $System_Drawing_Point
$label4.DataBindings.DefaultDataSourceUpdateMode = 0
$label4.Name = 'label4'
$SiteTemplate.Controls.Add($label4)
$Ltitre.TabIndex = 3
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 34
$System_Drawing_Size.Height = 13
$Ltitre.Size = $System_Drawing_Size
$Ltitre.Text = 'Titre'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 43
$System_Drawing_Point.Y = 33
$Ltitre.Location = $System_Drawing_Point
$Ltitre.DataBindings.DefaultDataSourceUpdateMode = 0
$Ltitre.Name = 'Ltitre'
$SiteTemplate.Controls.Add($Ltitre)
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 217
$System_Drawing_Size.Height = 20
$TemplateDescription.Size = $System_Drawing_Size
$TemplateDescription.DataBindings.DefaultDataSourceUpdateMode = 0
$TemplateDescription.Name = 'TemplateDescription'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 103
$System_Drawing_Point.Y = 82
$TemplateDescription.Location = $System_Drawing_Point
$TemplateDescription.TabIndex = 2
$SiteTemplate.Controls.Add($TemplateDescription)
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 217
$System_Drawing_Size.Height = 20
$TemplateNom.Size = $System_Drawing_Size
$TemplateNom.DataBindings.DefaultDataSourceUpdateMode = 0
$TemplateNom.Name = 'TemplateNom'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 103
$System_Drawing_Point.Y = 56
$TemplateNom.Location = $System_Drawing_Point
$TemplateNom.TabIndex = 1
$SiteTemplate.Controls.Add($TemplateNom)
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 217
$System_Drawing_Size.Height = 20
$TemplateTitre.Size = $System_Drawing_Size
$TemplateTitre.DataBindings.DefaultDataSourceUpdateMode = 0
$TemplateTitre.Name = 'TemplateTitre'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 103
$System_Drawing_Point.Y = 30
$TemplateTitre.Location = $System_Drawing_Point
$TemplateTitre.TabIndex = 0
$SiteTemplate.Controls.Add($TemplateTitre)
$LabelTheme.TabIndex = 10
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 163
$System_Drawing_Size.Height = 17
$LabelTheme.Size = $System_Drawing_Size
$LabelTheme.font = new-object system.drawing.font("Arial","8","bold")
$LabelTheme.Text = 'Choisir un theme'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 20
$System_Drawing_Point.Y = 350
$LabelTheme.Location = $System_Drawing_Point
$LabelTheme.DataBindings.DefaultDataSourceUpdateMode = 0
$LabelTheme.Name = 'LabelTheme'
$form1.Controls.Add($LabelTheme)
$groupBox1.Name = 'groupBox1'
$groupBox1.Text = 'Resultats'
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 647
$System_Drawing_Size.Height = 309
$groupBox1.Size = $System_Drawing_Size
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 13
$System_Drawing_Point.Y = 38
$groupBox1.Location = $System_Drawing_Point
$groupBox1.BackColor = [System.Drawing.Color]::FromArgb(255,191,205,219)
$groupBox1.TabStop = $False
$groupBox1.TabIndex = 5
$groupBox1.DataBindings.DefaultDataSourceUpdateMode = 0
$form1.Controls.Add($groupBox1)
$Infos.TabIndex = 9
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 464
$System_Drawing_Size.Height = 23
$Infos.set_ForeColor("Black")
$Infos.Size = $System_Drawing_Size
$Infos.Text = 'Informations sur le site'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 177
$System_Drawing_Point.Y = 16
$Infos.Location = $System_Drawing_Point
$Infos.DataBindings.DefaultDataSourceUpdateMode = 0
$Infos.Name = 'Infos'
$groupBox1.Controls.Add($Infos)
$BoxResultat.Multiline = $True
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 464
$System_Drawing_Size.Height = 260
$BoxResultat.Size = $System_Drawing_Size
$BoxResultat.DataBindings.DefaultDataSourceUpdateMode = 0
$BoxResultat.ReadOnly = $True
#$BoxResultat.BorderStyle = 1
$BoxResultat.ScrollBars = 2
$BoxResultat.Name = 'BoxResultat'
$BoxResultat.BackColor = [System.Drawing.Color]::FromArgb(255,255,255,255)
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 177
$System_Drawing_Point.Y = 37
$BoxResultat.Location = $System_Drawing_Point
$BoxResultat.TabIndex = 8
$groupBox1.Controls.Add($BoxResultat)
$SiteList.FormattingEnabled = $True
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 163
$System_Drawing_Size.Height = 277
$SiteList.Size = $System_Drawing_Size
$SiteList.DataBindings.DefaultDataSourceUpdateMode = 0
$SiteList.Name = 'SiteList'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 7
$System_Drawing_Point.Y = 20
$SiteList.Location = $System_Drawing_Point
$SiteList.TabIndex = 7
$SiteList.add_Click($SiteListClick)
$groupBox1.Controls.Add($SiteList)
$ThemeBox.FormattingEnabled = $True
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 163
$System_Drawing_Size.Height = 21
$ThemeBox.Size = $System_Drawing_Size
$ThemeBox.DataBindings.DefaultDataSourceUpdateMode = 0
$ThemeBox.Name = 'ThemeBox'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 20
$System_Drawing_Point.Y = 370
$ThemeBox.Location = $System_Drawing_Point
$ThemeBox.TabIndex = 8
$form1.Controls.Add($ThemeBox)
$ThemeChanger.TabIndex = 9
$ThemeChanger.Name = 'ThemeChanger'
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 101
$System_Drawing_Size.Height = 23
$ThemeChanger.Size = $System_Drawing_Size
$ThemeChanger.UseVisualStyleBackColor = $True
$ThemeChanger.Text = 'Appliquer Theme'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 198
$System_Drawing_Point.Y = 370
$ThemeChanger.Location = $System_Drawing_Point
$ThemeChanger.DataBindings.DefaultDataSourceUpdateMode = 0
$ThemeChanger.add_Click($AppliquerTheme)
$form1.Controls.Add($ThemeChanger)
$button1.TabIndex = 4
$button1.Name = 'button1'
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 75
$System_Drawing_Size.Height = 23
$button1.Size = $System_Drawing_Size
$button1.UseVisualStyleBackColor = $True
$button1.Text = 'Connexion'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 550
$System_Drawing_Point.Y = 10
$button1.Location = $System_Drawing_Point
$button1.DataBindings.DefaultDataSourceUpdateMode = 0
$button1.add_Click($ConexionServeur)
$form1.Controls.Add($button1)
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 47
$System_Drawing_Size.Height = 20
$textBox2.Size = $System_Drawing_Size
$textBox2.DataBindings.DefaultDataSourceUpdateMode = 0
$textBox2.Text = '80'
$textBox2.Name = 'textBox2'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 486
$System_Drawing_Point.Y = 10
$textBox2.Location = $System_Drawing_Point
$textBox2.TabIndex = 3
$form1.Controls.Add($textBox2)
$label2.TabIndex = 2
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 32
$System_Drawing_Size.Height = 24
$label2.Size = $System_Drawing_Size
$label2.Text = 'Port'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 448
$System_Drawing_Point.Y = 11
$label2.Location = $System_Drawing_Point
$label2.DataBindings.DefaultDataSourceUpdateMode = 0
$label2.Name = 'label2'
$form1.Controls.Add($label2)
$label1.TabIndex = 1
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 76
$System_Drawing_Size.Height = 23
$label1.Size = $System_Drawing_Size
$label1.Text = 'Url du serveur'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 13
$System_Drawing_Point.Y = 12
$label1.Location = $System_Drawing_Point
$label1.DataBindings.DefaultDataSourceUpdateMode = 0
$label1.Name = 'label1'
$form1.Controls.Add($label1)
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Width = 339
$System_Drawing_Size.Height = 20
$textBox1.Size = $System_Drawing_Size
$textBox1.DataBindings.DefaultDataSourceUpdateMode = 0
$textBox1.Text = 'http://'+$env:computername
$textBox1.Name = 'textBox1'
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 95
$System_Drawing_Point.Y = 10
$textBox1.Location = $System_Drawing_Point
$textBox1.TabIndex = 0
$form1.Controls.Add($textBox1)
$dataGridTableStyle1.HeaderForeColor = [System.Drawing.Color]::FromArgb(255,0,0,0)
#endregion
#region Affiche le formulaire
$form1.ShowDialog()| Out-Null
#endregion
}
#Fin Fonction
#Appel de la fonction
GenerateForm
SharePointInfosFull.ps1 (23,19 kb)