Audit AD – DydySoft Tool
Hello, I regularly use when I audit active directories this program that I developed in powershell in order to get back to me crucial information about users. In particular users who have an expired password, without a manager, without a company etc… It looks like this :

I share the source code, it may interest some people.
###################### DydySoft - Audit AD #########################
####################################################################
###################### RELEASE #################################
# -1.0 : Création initial du soft #
# -1.1 13/08/2019 : Suprression du nom des colonnes des results#
# -1.2 12/09/2019 : Recherche d'utilisateurs #
################################################################
########## DECLARATION PARAMETRES MAILS ##############
$mail = "dylan.huger@gmail.com"
$smtpserver = "<xxxxxx"
$emailFrom = "<xxxxxx"
$domain = "xxxxxxxxxxxxxx"
$emailTo = "$mail"
$subject = "Audit AD"
########## FIN DECLARATION PARAMETRES MAILS ##############
Import-Module ActiveDirectory
####################### SCRIPT INSTRUCTION RESULT AUDIT AD #####################################
$User_Without_EmailAddress = get-aduser -filter {EmailAddress -NOTLIKE "*"} | Select-Object Name -ExpandProperty Name | Out-String
$Users_CannotChangePassword = Get-ADUser -Filter * -Properties CannotChangePassword | where {$_.CannotChangePassword} | Select-Object Name -ExpandProperty Name | Out-String
$Users_Disabled = Get-ADUser -Filter {Enabled -eq $false} | Select-Object -Property name -ExpandProperty name | Out-String
$Users_LastLogonDate = Get-ADUser -Filter * -Properties Name,SamAccountName,LastLogonDate | Where {($_.LastLogonDate -lt (Get-Date).AddDays(-30))} | Sort | Select-Object Name,LastLogonDate -ExpandProperty Name | Out-String
$Users_PasswordLastSet = get-aduser -filter * -properties * | where {$_.passwordlastset -lt ((get-date).adddays(-180))} | select name -ExpandProperty name | Out-String
$Users_NeverPasswordExpired = get-aduser -filter * -properties passwordneverexpires | Select-Object name -ExpandProperty name | Out-String
$Users_Without_Department = get-aduser -filter {Department -NOTLIKE "*"} | select name -ExpandProperty Name | Out-String
$Users_Without_Company = get-aduser -filter * -Properties * | where {$_.company -eq $null} | select name -ExpandProperty name | Out-String
$Users_Without_Manager = get-aduser -filter * -Properties * | where {$_.manager -eq $null} | select name -ExpandProperty name | Out-String
$Users_Without_Title = get-aduser -filter * -Properties * | where {$_.title -eq $null} | select name -ExpandProperty name | Out-String
####################### #Fonction globale qui génére le Windows Form ##########################
function GenerateForm {
[reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null
[reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null
##################### DECLARATION DES OBJETS ##########################################
$Form_Audit = New-Object System.Windows.Forms.Form
$Saisie_Users_RichText = New-Object System.Windows.Forms.RichTextBox
$BoxGenerate = New-Object System.Windows.Forms.RichTextBox
$Saisie_Users_Bouton = New-Object System.Windows.Forms.Button
$Users_LastLogonDate_Bouton = New-Object System.Windows.Forms.Button
$Users_PasswordLastSet_Bouton = New-Object System.Windows.Forms.Button
$Users_CannotChangePassword_Bouton = New-Object System.Windows.Forms.Button
$Users_NeverPasswordExpired_Bouton = New-Object System.Windows.Forms.Button
$Users_Disabled_Bouton = New-Object System.Windows.Forms.Button
$Users_Without_Title_Bouton = New-Object System.Windows.Forms.Button
$Users_Without_Manager_Bouton = New-Object System.Windows.Forms.Button
$Users_Without_Company_Bouton = New-Object System.Windows.Forms.Button
$User_Without_EmailAddress_Bouton = New-Object System.Windows.Forms.Button
$Users_Without_Department_Bouton = New-Object System.Windows.Forms.Button
$Users_Without_Title_Texte = New-Object System.Windows.Forms.Label
$Users_NeverPasswordExpired_Texte = New-Object System.Windows.Forms.Label
$Users_PasswordLastSet_Texte = New-Object System.Windows.Forms.Label
$Users_LastLogonDate_Texte = New-Object System.Windows.Forms.Label
$Users_Disabled_Texte = New-Object System.Windows.Forms.Label
$Users_CannotChangePassword_Texte = New-Object System.Windows.Forms.Label
$User_Without_EmailAddress_Texte = New-Object System.Windows.Forms.Label
$Users_Without_Department_Texte = New-Object System.Windows.Forms.Label
$Users_Without_Manager_Texte = New-Object System.Windows.Forms.Label
$Users_Without_Company_Texte = New-Object System.Windows.Forms.Label
$Saisie_Users_Texte = New-Object System.Windows.Forms.Label
$InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState
##################### FIN DECLARATION DES OBJETS ########################################
##################### INSTRUCTION DES ACTIONS ###########################################
$Users_LastLogonDate_Bouton_OnClick= {
GenerateForm_HELP
}
$Users_PasswordLastSet_Bouton_OnClick= {$BoxGenerate.Text = $Users_PasswordLastSet}
$Users_CannotChangePassword_Bouton_OnClick= {$BoxGenerate.Text = $Users_CannotChangePassword}
$Users_NeverPasswordExpired_Bouton_OnClick = {$BoxGenerate.Text = $Users_NeverPasswordExpired}
$Users_Disabled_Bouton_OnClick= {$BoxGenerate.Text = $Users_Disabled}
$Users_Without_Title_Bouton_OnClick= {$BoxGenerate.Text = $Users_Without_Title}
$Users_Without_Manager_Bouton_OnClick= {$BoxGenerate.Text = $Users_Without_Manager}
$Users_LastLogonDate_Bouton_OnClick= {$BoxGenerate.Text = $Users_LastLogonDate}
$Users_Without_Company_Bouton_OnClick = {$BoxGenerate.Text = $Users_Without_Company}
$User_Without_EmailAddress_Bouton_OnClick = {$BoxGenerate.Text = $User_Without_EmailAddress}
$Users_Without_Department_Bouton_OnClick = {$BoxGenerate.Text = $Users_Without_Department}
###Action bouton saisie Users#####
$Saisie_Users_Bouton_OnClick = {
$Value_Saisie_Users = $Saisie_Users_RichText.Text
$User_ad_exist = Get-ADUser -Filter {sAMAccountName -eq "$Value_Saisie_Users"}
if ($User_ad_exist -eq "$Null" -or $Value_Saisie_Users -eq "$Null")
{$BoxGenerate.Text = "INEXISTANT"}
else {
$BoxGenerate.Text = Get-ADUser $Value_Saisie_Users -Properties * | Select @{Name='Nom Commun'; E={$_.CN}}, @{Name='Adresse e-mail'; E={$_.EmailAddress}}, @{Name='Téléphone Fixe'; E={$_.OfficePhone}}, @{Name='Téléphone Portable'; e={[DateTime]::FromFileTime($_.LastLogon)}}, @{Name='Bureau'; E={$_.Office}}, @{Name='Service'; E={$_.Department}}, @{Name='Etablissement'; E={$_.Company}}, @{Name='Emploi'; E={$_.Title}}, @{Name='Responsable'; E={$_.Manager}}, @{Name='Ne peut pas changer le mot de passe'; E={$_.CannotChangePassword}}, @{Name='Utilisateur activé'; E={$_.Enabled}}, @{Name='Date de création'; E={$_.Created}}, @{Name='Dernière connexion'; E={[DateTime]::FromFileTime($_.LastLogon)}}, @{Name='Mot de passe expiré'; E={$_.PasswordExpired}}, @{Name='Modification mot de passe'; E={$_.PasswordLastSet}}, Organization| Format-List | out-string
}
}
$handler_Form_Audit_HelpButtonClicked=
{
GenerateForm_HELP #Appel la fonction fenetre help
}
################################# FIN INSTRUCTION ACTIONS ########################################
################### Initialisation FENETRE ##########################
$OnLoadForm_StateCorrection=
{
$Form_Audit.WindowState = $InitialFormWindowState
}
############################## PARAMETRES MISE EN FORME ########################################
############################## BARRE FENETRE TOP ###################################
$Form_Audit.AutoScaleMode = 0
$Form_Audit.BackColor = [System.Drawing.Color]::FromArgb(255,240,240,240)
$Form_Audit.BackgroundImageLayout = 2
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 618 #558
$System_Drawing_Size.Width = 1128
$Form_Audit.ClientSize = $System_Drawing_Size
$Form_Audit.DataBindings.DefaultDataSourceUpdateMode = 0
$Form_Audit.ForeColor = [System.Drawing.Color]::FromArgb(255,0,0,0)
$Form_Audit.FormBorderStyle = 1
$Form_Audit.HelpButton = $True
$Form_Audit.IsMdiContainer = $True
$Form_Audit.MaximizeBox = $False
$Form_Audit.MinimizeBox = $False
$Form_Audit.Name = "Form_Audit"
$Form_Audit.RightToLeft = 0
$Form_Audit.ShowIcon = $False
$Form_Audit.Text = "DydySoft - Audit AD"
$Form_Audit.TransparencyKey = [System.Drawing.Color]::FromArgb(0,255,255,255)
$Form_Audit.add_HelpButtonClicked($handler_Form_Audit_HelpButtonClicked)
##################################################################################
######################### BOUTON - USERS WITHOUT EMAIL ADDRESS ######################
$User_Without_EmailAddress_Bouton.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 393
$System_Drawing_Point.Y = 18
$User_Without_EmailAddress_Bouton.Location = $System_Drawing_Point
$User_Without_EmailAddress_Bouton.Name = "User_Without_EmailAddress_Bouton"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 23
$System_Drawing_Size.Width = 76
$User_Without_EmailAddress_Bouton.Size = $System_Drawing_Size
$User_Without_EmailAddress_Bouton.TabIndex = 21
$User_Without_EmailAddress_Bouton.Text = "Générer"
$User_Without_EmailAddress_Bouton.UseMnemonic = $False
$User_Without_EmailAddress_Bouton.UseVisualStyleBackColor = $True
$User_Without_EmailAddress_Bouton.add_Click($User_Without_EmailAddress_Bouton_OnClick)
$Form_Audit.Controls.Add($User_Without_EmailAddress_Bouton)
######################### TEXTE - USERS WITHOUT EMAIL ADDRESS ######################
$User_Without_EmailAddress_Texte.AllowDrop = $True
$User_Without_EmailAddress_Texte.BackColor = [System.Drawing.Color]::FromArgb(0,255,255,255)
$User_Without_EmailAddress_Texte.BorderStyle = 1
$User_Without_EmailAddress_Texte.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 12
$System_Drawing_Point.Y = 9
$User_Without_EmailAddress_Texte.Location = $System_Drawing_Point
$User_Without_EmailAddress_Texte.Name = "User_Without_EmailAddress_Texte"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 41
$System_Drawing_Size.Width = 466
$User_Without_EmailAddress_Texte.Size = $System_Drawing_Size
$User_Without_EmailAddress_Texte.TabIndex = 20
$User_Without_EmailAddress_Texte.Text = "Utilisateur sans adresse mail :"
$User_Without_EmailAddress_Texte.TextAlign = 16
$User_Without_EmailAddress_Texte.add_Click($User_Without_EmailAddress_Texte_OnClick)
$Form_Audit.Controls.Add($User_Without_EmailAddress_Texte)
#####################################################################################
#####################################################################################
######################### BOUTON - USERS WITHOUT COMPANY ######################
$Users_Without_Company_Bouton.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 393
$System_Drawing_Point.Y = 69
$Users_Without_Company_Bouton.Location = $System_Drawing_Point
$Users_Without_Company_Bouton.Name = "Users_Without_Company_Bouton"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 23
$System_Drawing_Size.Width = 76
$Users_Without_Company_Bouton.Size = $System_Drawing_Size
$Users_Without_Company_Bouton.TabIndex = 19
$Users_Without_Company_Bouton.Text = "Générer"
$Users_Without_Company_Bouton.UseVisualStyleBackColor = $True
$Users_Without_Company_Bouton.add_Click($Users_Without_Company_Bouton_OnClick)
$Form_Audit.Controls.Add($Users_Without_Company_Bouton)
######################### TEXTE - USERS WITHOUT COMPANY ######################
$Users_Without_Company_Texte.BackColor = [System.Drawing.Color]::FromArgb(0,255,255,255)
$Users_Without_Company_Texte.BorderStyle = 1
$Users_Without_Company_Texte.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 12
$System_Drawing_Point.Y = 60
$Users_Without_Company_Texte.Location = $System_Drawing_Point
$Users_Without_Company_Texte.Name = "Users_Without_Department_Texte"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 41
$System_Drawing_Size.Width = 466
$Users_Without_Company_Texte.Size = $System_Drawing_Size
$Users_Without_Company_Texte.TabIndex = 18
$Users_Without_Company_Texte.Text = "Uitlisateurs sans société : "
$Users_Without_Company_Texte.TextAlign = 16
$Users_Without_Company_Texte.add_Click($handler_label8_Click)
$Form_Audit.Controls.Add($Users_Without_Company_Texte)
#####################################################################################
#####################################################################################
############################## BOUTON - WITHOUT MANAGER ###################################
$Users_Without_Manager_Bouton.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 393
$System_Drawing_Point.Y = 125
$Users_Without_Manager_Bouton.Location = $System_Drawing_Point
$Users_Without_Manager_Bouton.Name = "Users_Without_Manager_Bouton"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 23
$System_Drawing_Size.Width = 75
$Users_Without_Manager_Bouton.Size = $System_Drawing_Size
$Users_Without_Manager_Bouton.TabIndex = 17
$Users_Without_Manager_Bouton.Text = "Générer"
$Users_Without_Manager_Bouton.UseVisualStyleBackColor = $True
$Users_Without_Manager_Bouton.add_Click($Users_Without_Manager_Bouton_OnClick)
$Form_Audit.Controls.Add($Users_Without_Manager_Bouton)
######################### TEXTE - USERS WITHOUT MANAGER ######################
$Users_Without_Manager_Texte.BackColor = [System.Drawing.Color]::FromArgb(0,255,255,255)
$Users_Without_Manager_Texte.BorderStyle = 1
$Users_Without_Manager_Texte.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 12
$System_Drawing_Point.Y = 116
$Users_Without_Manager_Texte.Location = $System_Drawing_Point
$Users_Without_Manager_Texte.Name = "Users_Without_Manager_Texte"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 41
$System_Drawing_Size.Width = 466
$Users_Without_Manager_Texte.Size = $System_Drawing_Size
$Users_Without_Manager_Texte.TabIndex = 16
$Users_Without_Manager_Texte.Text = "Utilisateurs sans manager : "
$Users_Without_Manager_Texte.TextAlign = 16
$Users_Without_Manager_Texte.add_Click($Users_Without_Manager_Texte_OnClick)
$Form_Audit.Controls.Add($Users_Without_Manager_Texte)
#####################################################################################
#####################################################################################
######################### BOUTON - USERS WITHOUT DEPARTMENT ######################
$Users_Without_Department_Bouton.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 393
$System_Drawing_Point.Y = 182
$Users_Without_Department_Bouton.Location = $System_Drawing_Point
$Users_Without_Department_Bouton.Name = "Users_Without_Department_Bouton"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 23
$System_Drawing_Size.Width = 76
$Users_Without_Department_Bouton.Size = $System_Drawing_Size
$Users_Without_Department_Bouton.TabIndex = 15
$Users_Without_Department_Bouton.Text = "Générer"
$Users_Without_Department_Bouton.UseVisualStyleBackColor = $True
$Users_Without_Department_Bouton.add_Click($Users_Without_Department_Bouton_OnClick)
$Form_Audit.Controls.Add($Users_Without_Department_Bouton)
######################### TEXTE - USERS WITHOUT DEPARTMENT ######################
$Users_Without_Department_Texte.BackColor = [System.Drawing.Color]::FromArgb(0,255,255,255)
$Users_Without_Department_Texte.BorderStyle = 1
$Users_Without_Department_Texte.DataBindings.DefaultDataSourceUpdateMode = 0
$Users_Without_Department_Texte.ImageAlign = 16
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 12
$System_Drawing_Point.Y = 173
$Users_Without_Department_Texte.Location = $System_Drawing_Point
$Users_Without_Department_Texte.Name = "Users_Without_Department_Texte"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 41
$System_Drawing_Size.Width = 466
$Users_Without_Department_Texte.Size = $System_Drawing_Size
$Users_Without_Department_Texte.TabIndex = 14
$Users_Without_Department_Texte.Text = "Utilisateurs sans service : "
$Users_Without_Department_Texte.TextAlign = 16
$Users_Without_Department_Texte.add_Click($Users_Without_Department_Texte_OnClick)
$Form_Audit.Controls.Add($Users_Without_Department_Texte)
#####################################################################################
#####################################################################################
############################## BOUTON - WITHOUT TITLE ###################################
$Users_Without_Title_Bouton.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 394
$System_Drawing_Point.Y = 238
$Users_Without_Title_Bouton.Location = $System_Drawing_Point
$Users_Without_Title_Bouton.Name = "Users_Without_Title_Bouton"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 23
$System_Drawing_Size.Width = 75
$Users_Without_Title_Bouton.Size = $System_Drawing_Size
$Users_Without_Title_Bouton.TabIndex = 13
$Users_Without_Title_Bouton.Text = "Générer"
$Users_Without_Title_Bouton.UseVisualStyleBackColor = $True
$Users_Without_Title_Bouton.add_Click($Users_Without_Title_Bouton_OnClick)
$Form_Audit.Controls.Add($Users_Without_Title_Bouton)
############################## TEXTE - WITHOUT TITLE ###################################
$Users_Without_Title_Texte.DataBindings.DefaultDataSourceUpdateMode = 0
$Users_Without_Title_Texte.BackColor = [System.Drawing.Color]::FromArgb(0,255,255,255)
$Users_Without_Title_Texte.BorderStyle = 1
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 12
$System_Drawing_Point.Y = 229
$Users_Without_Title_Texte.Location = $System_Drawing_Point
$Users_Without_Title_Texte.Name = "Users_Without_Title_Texte"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 41
$System_Drawing_Size.Width = 466
$Users_Without_Title_Texte.Size = $System_Drawing_Size
$Users_Without_Title_Texte.TabIndex = 12
$Users_Without_Title_Texte.Text = "Utilisateurs sans fonction : "
$Users_Without_Title_Texte.TextAlign = 16
$Form_Audit.Controls.Add($Users_Without_Title_Texte)
#####################################################################################
#####################################################################################
############################## BOUTON - USERS DISABLE #####################################
$Users_Disabled_Bouton.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 394
$System_Drawing_Point.Y = 294
$Users_Disabled_Bouton.Location = $System_Drawing_Point
$Users_Disabled_Bouton.Name = "Users_Disabled_Bouton"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 23
$System_Drawing_Size.Width = 75
$Users_Disabled_Bouton.Size = $System_Drawing_Size
$Users_Disabled_Bouton.TabIndex = 11
$Users_Disabled_Bouton.Text = "Générer"
$Users_Disabled_Bouton.UseVisualStyleBackColor = $True
$Users_Disabled_Bouton.add_Click($Users_Disabled_Bouton_OnClick)
$Form_Audit.Controls.Add($Users_Disabled_Bouton)
######################### TEXTE - USERS DISABLED ######################
$Users_Disabled_Texte.BackColor = [System.Drawing.Color]::FromArgb(0,255,255,255)
$Users_Disabled_Texte.BorderStyle = 1
$Users_Disabled_Texte.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 12
$System_Drawing_Point.Y = 285
$Users_Disabled_Texte.Location = $System_Drawing_Point
$Users_Disabled_Texte.Name = "Users_Disabled_Texte"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 41
$System_Drawing_Size.Width = 466
$Users_Disabled_Texte.Size = $System_Drawing_Size
$Users_Disabled_Texte.TabIndex = 10
$Users_Disabled_Texte.Text = "Utilisateurs désactivés : "
$Users_Disabled_Texte.TextAlign = 16
$Users_Disabled_Texte.add_Click($Users_Disabled_Texte_OnClick)
$Form_Audit.Controls.Add($Users_Disabled_Texte)
#####################################################################################
#####################################################################################
################### BOUTON - PROTECTED FROM ACCIDENTAL DELETION ##########################
$Users_NeverPasswordExpired_Bouton.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 393
$System_Drawing_Point.Y = 346
$Users_NeverPasswordExpired_Bouton.Location = $System_Drawing_Point
$Users_NeverPasswordExpired_Bouton.Name = "Users_ProtectedFromAccidentalDeletion_Bouton"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 23
$System_Drawing_Size.Width = 75
$Users_NeverPasswordExpired_Bouton.Size = $System_Drawing_Size
$Users_NeverPasswordExpired_Bouton.TabIndex = 9
$Users_NeverPasswordExpired_Bouton.Text = "Générer"
$Users_NeverPasswordExpired_Bouton.UseVisualStyleBackColor = $True
$Users_NeverPasswordExpired_Bouton.add_Click($Users_NeverPasswordExpired_Bouton_OnClick)
$Form_Audit.Controls.Add($Users_NeverPasswordExpired_Bouton)
################### TEXTE - MOT DE PASSE N'EXPIRE JAMAIS ##########################
$Users_NeverPasswordExpired_Texte.BackColor = [System.Drawing.Color]::FromArgb(0,255,255,255)
$Users_NeverPasswordExpired_Texte.BorderStyle = 1
$Users_NeverPasswordExpired_Texte.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 12
$System_Drawing_Point.Y = 337
$Users_NeverPasswordExpired_Texte.Location = $System_Drawing_Point
$Users_NeverPasswordExpired_Texte.Name = "Users_ProtectedFromAccidentalDeletion_Texte"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 41
$System_Drawing_Size.Width = 466
$Users_NeverPasswordExpired_Texte.Size = $System_Drawing_Size
$Users_NeverPasswordExpired_Texte.TabIndex = 8
$Users_NeverPasswordExpired_Texte.Text = "Utilisateurs dont le mot de passe n'expire jamais :"
$Users_NeverPasswordExpired_Texte.TextAlign = 16
$Users_NeverPasswordExpired_Texte.add_Click($Users_NeverPasswordExpired_Texte_OnClick)
$Form_Audit.Controls.Add($Users_NeverPasswordExpired_Texte)
#####################################################################################
#####################################################################################
############################ BOUTON - CANNOT CHANGE PASSWORD ###################################
$Users_CannotChangePassword_Bouton.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 393
$System_Drawing_Point.Y = 403
$Users_CannotChangePassword_Bouton.Location = $System_Drawing_Point
$Users_CannotChangePassword_Bouton.Name = "Users_CannotChangePassword_Bouton"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 23
$System_Drawing_Size.Width = 75
$Users_CannotChangePassword_Bouton.Size = $System_Drawing_Size
$Users_CannotChangePassword_Bouton.TabIndex = 7
$Users_CannotChangePassword_Bouton.Text = "Generer"
$Users_CannotChangePassword_Bouton.UseVisualStyleBackColor = $True
$Users_CannotChangePassword_Bouton.add_Click($Users_CannotChangePassword_Bouton_OnClick)
$Form_Audit.Controls.Add($Users_CannotChangePassword_Bouton)
######################### TEXTE - CANNOT CHANGE PASSWORD ######################
$Users_CannotChangePassword_Texte.BackColor = [System.Drawing.Color]::FromArgb(0,255,255,255)
$Users_CannotChangePassword_Texte.BorderStyle = 1
$Users_CannotChangePassword_Texte.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 12
$System_Drawing_Point.Y = 393
$Users_CannotChangePassword_Texte.Location = $System_Drawing_Point
$Users_CannotChangePassword_Texte.Name = "Users_CannotChangePassword_Texte"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 41
$System_Drawing_Size.Width = 466
$Users_CannotChangePassword_Texte.Size = $System_Drawing_Size
$Users_CannotChangePassword_Texte.TabIndex = 6
$Users_CannotChangePassword_Texte.Text = "Utilisateurs qui ne peuvent pas changer leurs mots de passe : "
$Users_CannotChangePassword_Texte.TextAlign = 16
$Users_CannotChangePassword_Texte.add_Click($Users_CannotChangePassword_Texte_OnClick)
$Form_Audit.Controls.Add($Users_CannotChangePassword_Texte)
#####################################################################################
#####################################################################################
############################ BOUTON - PASSWORD LAST SET ###################################
$Users_PasswordLastSet_Bouton.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 393
$System_Drawing_Point.Y = 460
$Users_PasswordLastSet_Bouton.Location = $System_Drawing_Point
$Users_PasswordLastSet_Bouton.Name = "Users_PasswordLastSet_Bouton"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 23
$System_Drawing_Size.Width = 75
$Users_PasswordLastSet_Bouton.Size = $System_Drawing_Size
$Users_PasswordLastSet_Bouton.TabIndex = 5
$Users_PasswordLastSet_Bouton.Text = "Generer"
$Users_PasswordLastSet_Bouton.UseVisualStyleBackColor = $True
$Users_PasswordLastSet_Bouton.add_Click($Users_PasswordLastSet_Bouton_OnClick)
$Form_Audit.Controls.Add($Users_PasswordLastSet_Bouton)
######################### TEXTE - PASSWORD LAST SET ######################
$Users_PasswordLastSet_Texte.BackColor = [System.Drawing.Color]::FromArgb(0,255,255,255)
$Users_PasswordLastSet_Texte.BorderStyle = 1
$Users_PasswordLastSet_Texte.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 12
$System_Drawing_Point.Y = 451
$Users_PasswordLastSet_Texte.Location = $System_Drawing_Point
$Users_PasswordLastSet_Texte.Name = "Users_PasswordLastSet_Texte"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 41
$System_Drawing_Size.Width = 466
$Users_PasswordLastSet_Texte.Size = $System_Drawing_Size
$Users_PasswordLastSet_Texte.TabIndex = 4
$Users_PasswordLastSet_Texte.Text = "Utilisateurs dont le mot de passe n'a pas été changé depuis plus de 6 mois :"
$Users_PasswordLastSet_Texte.TextAlign = 16
$Users_PasswordLastSet_Texte.add_Click($Users_PasswordLastSet_Texte_OnClick)
$Form_Audit.Controls.Add($Users_PasswordLastSet_Texte)
#####################################################################################
#####################################################################################
############################## BOUTON - LAST LOGON DATE ###################################
$Users_LastLogonDate_Bouton.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 393
$System_Drawing_Point.Y = 514
$Users_LastLogonDate_Bouton.Location = $System_Drawing_Point
$Users_LastLogonDate_Bouton.Name = "Users_LastLogonDate_Bouton"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 23
$System_Drawing_Size.Width = 75
$Users_LastLogonDate_Bouton.Size = $System_Drawing_Size
$Users_LastLogonDate_Bouton.TabIndex = 3
$Users_LastLogonDate_Bouton.Text = "Générer"
$Users_LastLogonDate_Bouton.UseVisualStyleBackColor = $True
$Users_LastLogonDate_Bouton.add_Click($Users_LastLogonDate_Bouton_OnClick)
$Form_Audit.Controls.Add($Users_LastLogonDate_Bouton)
######################### TEXTE - LAST LOGON DATE ######################
$Users_LastLogonDate_Texte.BackColor = [System.Drawing.Color]::FromArgb(0,255,255,255)
$Users_LastLogonDate_Texte.BorderStyle = 1
$Users_LastLogonDate_Texte.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 12
$System_Drawing_Point.Y = 505
$Users_LastLogonDate_Texte.Location = $System_Drawing_Point
$Users_LastLogonDate_Texte.Name = "Users_LastLogonDate_Texte"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 41
$System_Drawing_Size.Width = 466
$Users_LastLogonDate_Texte.Size = $System_Drawing_Size
$Users_LastLogonDate_Texte.TabIndex = 2
$Users_LastLogonDate_Texte.Text = "Utiliseurs qui ne se sont pas connectés depuis plus de 30 jours :"
$Users_LastLogonDate_Texte.TextAlign = 16
$Users_LastLogonDate_Texte.add_Click($Users_LastLogonDate_Texte_OnClick)
$Form_Audit.Controls.Add($Users_LastLogonDate_Texte)
#####################################################################################
#####################################################################################
######################### RICH TEXTE - SAISIE USER ######################
$Saisie_Users_RichText.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 110
$System_Drawing_Point.Y = 565
$Saisie_Users_RichText.Location = $System_Drawing_Point
$Saisie_Users_RichText.Name = "Saisie_Users_RichText"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 25
$System_Drawing_Size.Width = 210
$Saisie_Users_RichText.Size = $System_Drawing_Size
$Saisie_Users_RichText.TabIndex = 100
$Saisie_Users_RichText.Text = ""
$Form_Audit.Controls.Add($Saisie_Users_RichText)
############################## BOUTON - SAISIE USER ###################################
$Saisie_Users_Bouton.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 393
$System_Drawing_Point.Y = 568
$Saisie_Users_Bouton.Location = $System_Drawing_Point
$Saisie_Users_Bouton.Name = "Saisie_Users_Bouton"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 23
$System_Drawing_Size.Width = 75
$Saisie_Users_Bouton.Size = $System_Drawing_Size
$Saisie_Users_Bouton.TabIndex = 103
$Saisie_Users_Bouton.Text = "Générer"
$Saisie_Users_Bouton.UseVisualStyleBackColor = $True
$Saisie_Users_Bouton.add_Click($Saisie_Users_Bouton_OnClick)
$Form_Audit.Controls.Add($Saisie_Users_Bouton)
######################### TEXTE - SAISIE USER ######################
$Saisie_Users_Texte.BackColor = [System.Drawing.Color]::FromArgb(0,255,255,255)
$Saisie_Users_Texte.BorderStyle = 1
$Saisie_Users_Texte.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 12
$System_Drawing_Point.Y = 559
$Saisie_Users_Texte.Location = $System_Drawing_Point
$Saisie_Users_Texte.Name = "Saisie_Users_Texte"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 41
$System_Drawing_Size.Width = 466
$Saisie_Users_Texte.Size = $System_Drawing_Size
$Saisie_Users_Texte.TabIndex = 101
$Saisie_Users_Texte.Text = "Saisir utilisateur :"
$Saisie_Users_Texte.TextAlign = 16
$Saisie_Users_Texte.add_Click($Saisie_Users_Texte_OnClick)
$Form_Audit.Controls.Add($Saisie_Users_Texte)
#####################################################################################
#####################################################################################
######################### RICH TEXT - AFFICHAGE RESULT ######################
$BoxGenerate.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 497
$System_Drawing_Point.Y = 9
$BoxGenerate.Location = $System_Drawing_Point
$BoxGenerate.Name = "BoxGenerate"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 537 #
$System_Drawing_Size.Width = 619
$BoxGenerate.Size = $System_Drawing_Size
$BoxGenerate.TabIndex = 1
$BoxGenerate.Text = ""
$Form_Audit.Controls.Add($BoxGenerate)
##################################################################################
#Save the initial state of the form
$InitialFormWindowState = $Form_Audit.WindowState
#Init the OnLoad event to correct the initial state of the form
$Form_Audit.add_Load($OnLoadForm_StateCorrection)
#Show the Form
$Form_Audit.ShowDialog()| Out-Null
}
############################## FENETRE HELP ##########################
function GenerateForm_HELP {
[reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null
[reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null
##################### DECLARATION DES OBJETS ##########################################
$Form_Audit = New-Object System.Windows.Forms.Form
$Help_Formulaire = New-Object System.Windows.Forms.RichTextBox
$Help_Envoyer_Bouton = New-Object System.Windows.Forms.Button
$label1 = New-Object System.Windows.Forms.Label
$pictureBox1 = New-Object System.Windows.Forms.PictureBox
$InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState
##################### FIN DECLARATION DES OBJETS ##########################################
##################### INSTRUCTION DES ACTIONS ###########################################
$Contenu_RichText=
{
$body = $Contenu_RichText
}
$Action_Bouton_Envoyer=
{
if ($Help_Formulaire.Text -eq "") {
Form_Msg_refuse}
Else {
$AjoutTextFormulaire = $Help_Formulaire.Text
$body = @"
$($AjoutTextFormulaire)
"@
Send-MailMessage -To $emailTo -From $emailFrom -Subject $subject -Body $body -SmtpServer $smtpserver
Form_Msg_Envoyé }
}
$OnLoadForm_StateCorrection=
{
$Form_Audit.WindowState = $InitialFormWindowState
}
##################### FIN INSTRUCTION DES ACTIONS ###########################################
############################## DECLARATION MISE EN FORME ########################################
$Form_Audit.AutoScaleMode = 0
$Form_Audit.BackColor = [System.Drawing.Color]::FromArgb(255,240,240,240)
$Form_Audit.BackgroundImageLayout = 2
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 240
$System_Drawing_Size.Width = 320
$Form_Audit.ClientSize = $System_Drawing_Size
$Form_Audit.DataBindings.DefaultDataSourceUpdateMode = 0
$Form_Audit.ForeColor = [System.Drawing.Color]::FromArgb(255,0,0,0)
$Form_Audit.FormBorderStyle = 1
$Form_Audit.IsMdiContainer = $True
$Form_Audit.MaximizeBox = $False
$Form_Audit.MinimizeBox = $False
$Form_Audit.Name = "Form_Audit"
$Form_Audit.RightToLeft = 0
$Form_Audit.ShowIcon = $False
$Form_Audit.Text = "DydySoft - HELP"
$Form_Audit.TransparencyKey = [System.Drawing.Color]::FromArgb(0,255,255,255)
######################### RICH TEXT FORMULAIRE ###################################
$Help_Formulaire.AccessibleRole = 0
$Help_Formulaire.BackColor = [System.Drawing.Color]::FromArgb(255,180,180,180)
$Help_Formulaire.DataBindings.DefaultDataSourceUpdateMode = 0
$Help_Formulaire.ForeColor = [System.Drawing.Color]::FromArgb(255,0,0,0)
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 75
$System_Drawing_Point.Y = 41
$Help_Formulaire.Location = $System_Drawing_Point
$Help_Formulaire.Name = "Help_Formulaire"
$Help_Formulaire.ScrollBars = 18
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 104
$System_Drawing_Size.Width = 186
$Help_Formulaire.Size = $System_Drawing_Size
$Help_Formulaire.TabIndex = 8
$Form_Audit.Controls.Add($Help_Formulaire)
#################################################################################
#################################################################################
####################### BOUTON ENVOYER###########################################
$Help_Envoyer_Bouton.BackColor = [System.Drawing.Color]::FromArgb(255,240,240,240)
$Help_Envoyer_Bouton.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 119
$System_Drawing_Point.Y = 151
$Help_Envoyer_Bouton.Location = $System_Drawing_Point
$Help_Envoyer_Bouton.Name = "Help_Envoyer_Bouton"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 23
$System_Drawing_Size.Width = 75
$Help_Envoyer_Bouton.Size = $System_Drawing_Size
$Help_Envoyer_Bouton.TabIndex = 2
$Help_Envoyer_Bouton.Text = "Envoyer"
$Help_Envoyer_Bouton.UseVisualStyleBackColor = $True
$Help_Envoyer_Bouton.add_Click($Action_Bouton_Envoyer)
$Form_Audit.Controls.Add($Help_Envoyer_Bouton)
#################################################################################
#################################################################################
###################### LABEL - COPYRIGHT & VERSION #######################
$label1.BackColor = [System.Drawing.Color]::FromArgb(255,180,180,180)
$label1.DataBindings.DefaultDataSourceUpdateMode = 0
$label1.Font = New-Object System.Drawing.Font("Century Schoolbook",8.25,1,3,1)
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 58
$System_Drawing_Point.Y = 192
$label1.Location = $System_Drawing_Point
$label1.Name = "label1"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 18
$System_Drawing_Size.Width = 187
$label1.Size = $System_Drawing_Size
$label1.TabIndex = 1
$label1.Text = "V1.2 - © 12/09/2019 -D. HUGER"
$label1.TextAlign = 32
$label1.add_Click($handler_label1_Click)
$Form_Audit.Controls.Add($label1)
#################################################################################
#################################################################################
################################## FOND PICTURE ################################
$pictureBox1.BackColor = [System.Drawing.Color]::FromArgb(255,180,180,180)
$pictureBox1.BackgroundImageLayout = 0
$pictureBox1.DataBindings.DefaultDataSourceUpdateMode = 0
$pictureBox1.Image = [System.Drawing.Image]::FromFile('C:\DydySoft - Audit AD\quote-1375855.png')
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 0
$System_Drawing_Point.Y = 1
$pictureBox1.Location = $System_Drawing_Point
$pictureBox1.Name = "pictureBox1"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 242
$System_Drawing_Size.Width = 323
$pictureBox1.Size = $System_Drawing_Size
$pictureBox1.SizeMode = 1
$pictureBox1.TabIndex = 9
$pictureBox1.TabStop = $False
$Form_Audit.Controls.Add($pictureBox1)
#################################################################################
#################################################################################
$InitialFormWindowState = $Form_Audit.WindowState
$Form_Audit.add_Load($OnLoadForm_StateCorrection)
$Form_Audit.ShowDialog()| Out-Null
}
function Form_Msg_Envoyé{
[reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null
[reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null
######################## DECLARATION OBJETS ##############################
$Form_Audit = New-Object System.Windows.Forms.Form
$label1 = New-Object System.Windows.Forms.Label
$InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState
############################### ACTION OBJET ##################################
$OnLoadForm_StateCorrection=
{
$Form_Audit.WindowState = $InitialFormWindowState
}
########################## MISE EN FORME ##################################
$Form_Audit.AutoScaleMode = 0
$Form_Audit.BackColor = [System.Drawing.Color]::FromArgb(255,240,240,240)
$Form_Audit.BackgroundImageLayout = 2
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 51
$System_Drawing_Size.Width = 140
$Form_Audit.ClientSize = $System_Drawing_Size
$Form_Audit.DataBindings.DefaultDataSourceUpdateMode = 0
$Form_Audit.ForeColor = [System.Drawing.Color]::FromArgb(255,0,0,0)
$Form_Audit.FormBorderStyle = 1
$Form_Audit.IsMdiContainer = $True
$Form_Audit.MaximizeBox = $False
$Form_Audit.MinimizeBox = $False
$Form_Audit.Name = "Form_Audit"
$Form_Audit.RightToLeft = 0
$Form_Audit.ShowIcon = $False
$Form_Audit.Text = "DydySoft - HELP"
$Form_Audit.TransparencyKey = [System.Drawing.Color]::FromArgb(0,255,255,255)
######################### LABEL MESSAGE ENVOYER ######################
$label1.BackColor = [System.Drawing.Color]::FromArgb(0,255,255,255)
$label1.DataBindings.DefaultDataSourceUpdateMode = 0
$label1.Font = New-Object System.Drawing.Font("Microsoft Sans Serif",8.25,1,3,0)
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 12
$System_Drawing_Point.Y = 18
$label1.Location = $System_Drawing_Point
$label1.Name = "label1"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 15
$System_Drawing_Size.Width = 113
$label1.Size = $System_Drawing_Size
$label1.TabIndex = 1
$label1.Text = "Message Envoyé !"
$label1.add_Click($handler_label1_Click)
#################################################################################
#################################################################################
$Form_Audit.Controls.Add($label1)
$InitialFormWindowState = $Form_Audit.WindowState
$Form_Audit.add_Load($OnLoadForm_StateCorrection)
$Form_Audit.ShowDialog()| Out-Null
}
function Form_Msg_refuse{
[reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null
[reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null
######################## DECLARATION OBJETS ##############################
$Form_Audit = New-Object System.Windows.Forms.Form
$label1 = New-Object System.Windows.Forms.Label
$InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState
############################### ACTION OBJET ##################################
$OnLoadForm_StateCorrection=
{
$Form_Audit.WindowState = $InitialFormWindowState
}
########################## MISE EN FORME ##################################
$Form_Audit.AutoScaleMode = 0
$Form_Audit.BackColor = [System.Drawing.Color]::FromArgb(255,240,240,240)
$Form_Audit.BackgroundImageLayout = 2
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 51
$System_Drawing_Size.Width = 140
$Form_Audit.ClientSize = $System_Drawing_Size
$Form_Audit.DataBindings.DefaultDataSourceUpdateMode = 0
$Form_Audit.ForeColor = [System.Drawing.Color]::FromArgb(255,0,0,0)
$Form_Audit.FormBorderStyle = 1
$Form_Audit.IsMdiContainer = $True
$Form_Audit.MaximizeBox = $False
$Form_Audit.MinimizeBox = $False
$Form_Audit.Name = "Form_Audit"
$Form_Audit.RightToLeft = 0
$Form_Audit.ShowIcon = $False
$Form_Audit.Text = "DydySoft - HELP"
$Form_Audit.TransparencyKey = [System.Drawing.Color]::FromArgb(0,255,255,255)
######################### LABEL MESSAGE ENVOYER ######################
$label1.BackColor = [System.Drawing.Color]::FromArgb(0,255,255,255)
$label1.DataBindings.DefaultDataSourceUpdateMode = 0
$label1.Font = New-Object System.Drawing.Font("Microsoft Sans Serif",8.25,1,3,0)
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 12
$System_Drawing_Point.Y = 18
$label1.Location = $System_Drawing_Point
$label1.Name = "label1"
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 15
$System_Drawing_Size.Width = 113
$label1.Size = $System_Drawing_Size
$label1.TabIndex = 1
$label1.Text = "Formulaire vide"
$label1.add_Click($handler_label1_Click)
#################################################################################
#################################################################################
$Form_Audit.Controls.Add($label1)
$InitialFormWindowState = $Form_Audit.WindowState
$Form_Audit.add_Load($OnLoadForm_StateCorrection)
$Form_Audit.ShowDialog()| Out-Null
}
#APPELLE DE LA FONCTION
GenerateForm