Table of Contents
Overview
I often try to find ways to script a redundant task, and PowerShell has made this more realistic with its robust library of Modules. Using Add-Type, you can even import .NET classes to a PowerShell session. Yet I never find myself needing to make a Graphical User Interface due to the efficiency of most Cmdlets for straightforward task. I wanted to spend some time familiarizing myself with the Forms class and some of its features, so I decided to build a simple tool to move users to a selected OU and disable them.
What Does this Tool Do?
This Active Directory Management Tool is a PowerShell-based graphical application designed to facilitate administrative tasks within an Active Directory environment. It provides a user-friendly interface for moving Active Directory user accounts between organizational units (OUs) and enabling/disabling user accounts. Leveraging Windows Forms, the tool offers checkboxes for account management options and dropdown menus for selecting target OUs. Additionally, it incorporates error handling and informative message boxes to guide users through the process and ensure smooth execution of tasks.
PowerShell GUI Active Directory Tool
Feel free to modify and do as you please. I plan to add another tab to modify group membership. You can import other modules to find additional information about the user. Please feel free to leave a comment or Contact me if you have any advice or did something really cool.
Add-Type -AssemblyName System.Windows.Forms
$F_WIDTH = 400
$F_HEIGHT = 300
$OBJ_HEIGHT = 20
function New-CheckBox {
param (
[string] $text,
[int[]] $location
)
$checkBox = New-Object System.Windows.Forms.CheckBox
$checkBox.Text = $text
$checkBox.Location = New-Object System.Drawing.Point -ArgumentList $location
$checkBox.Checked = $false
return $checkBox
}
function New-Label {
param (
[int] $width,
[int[]] $location,
[string] $text
)
$label = New-Object System.Windows.Forms.Label
$label.Text = $text
$label.Location = New-Object System.Drawing.Point -ArgumentList $location
$label.Size = New-Object System.Drawing.Size($width, $OBJ_HEIGHT)
return $label
}
function New-MessageBox {
param (
[string] $message,
[ValidateSet("Information", "Error", "Warning")]
[string] $type
)
[System.Windows.Forms.MessageBox]::Show($message, $type, [System.Windows.Forms.MessageBoxButtons]::OK, [System.Windows.Forms.MessageBoxIcon]::$type)
}
function Send-TabOneEvent{
try{
Get-ADComputer -ResultSetSize 1 -Filter * | out-null
}catch{
New-MessageBox -message "Must import the ActiveDirectory PowerShell Module" -type Error
}
try {
$adUser = Get-ADUser -Identity $textBox1.Text -ErrorAction Stop
Write-Output $adUser.SamAccountName
$message = ""
if($chkDisable.Checked){
Set-ADUser -Identity $textBox1.Text -Enabled (-not $chkDisable.Checked)
$message += "Disabled $($ADuser.Name)`n"
}
if($null -ne $ouDropDown.SelectedItem){
$dn = (Get-ADOrganizationalUnit -Filter "Name -eq '$($ouDropDown.SelectedItem)'").DistinguishedName
Move-ADObject $adUser -TargetPath $dn
$message += "Moved $($ADuser.Name) to $($dn)`n"
}
New-MessageBox -message $message -type Information
} catch {
New-MessageBox -message "User $($textBox1.Text) does not exist." -type Error
}
# --- CLEAR FORM DATA ---
$textBox1.Text = ""
$ouDropDown.SelectedIndex = -1
}
# ---FORM---
$form = New-Object System.Windows.Forms.Form
$form.Text = "Active Directory Tool"
$form.Size = New-Object System.Drawing.Size($F_WIDTH, $F_HEIGHT)
$form.StartPosition = "CenterScreen"
# --- ROOT TAB CONTROL ---
$tabControl = New-Object System.Windows.Forms.TabControl
$tabControl.Size = New-Object System.Drawing.Size(($F_WIDTH - 20), ($F_HEIGHT - 50)) # Adjusted for padding
$tabControl.Location = New-Object System.Drawing.Point(10, 10)
$form.Controls.Add($tabControl)
# --- TAB PAGE 1 ---
$tabPage1 = New-Object System.Windows.Forms.TabPage
$tabPage1.Text = "Move AD User"
$tabPage1.Size = $tabControl.ClientSize
$tabControl.Controls.Add($tabPage1)
# ----------- CREATE LABELS ---------------
$label_1 = New-Label -width 115 -location @(((($F_WIDTH - 115) / 2) - 115 - 20), 30) -text "SamAccountName:"
$label_2 = New-Label -width 30 -location @(((($F_WIDTH - 30) / 2) - 90), 90) -text "OU:"
# ------------ END LABELS ---------------------------
$chkDisable = New-CheckBox -text "Disable" -location @((($F_WIDTH / 2) - 30), 110)
# -- TAB PAGE 1 SAMACCOUNTNAME ---
$textBox1 = New-Object System.Windows.Forms.TextBox
$textBox1Width = 150
$textbox1Location = ($F_WIDTH - $textBox1Width) / 2
$textBox1.Location = New-Object System.Drawing.Point($textbox1Location, 30)
$textBox1.Size = New-Object System.Drawing.Size($textBox1Width, $OBJ_HEIGHT)
# --- DROPDOWN OU ---
$ouDropDown = New-Object System.Windows.Forms.ouDropDown
$ouDropDown.DropDownStyle = [System.Windows.Forms.ouDropDownStyle]::DropDownList
$ouDropDown.Items.AddRange((Get-ADOrganizationalUnit -Filter *).Name) # ACCEPTS ARRAY
# --- DYNAMICALLY CALCULATE WIDTH OF DROPDOWN BY LENGTH OF LONGEST OU ---
$longestItemLength = (($ouDropDown.Items | ForEach-Object { $_.Length }) | Measure-Object -Maximum).Maximum
$ouDropDown.Width = [Math]::Max(50, $longestItemLength * 8)
$cbOuLocation = ($F_WIDTH - $ouDropDown.Width) / 2
$ouDropDown.Location = New-Object System.Drawing.Point($cbOuLocation, 90)
$ouDropDown.Size = New-Object System.Drawing.Size($ouDropDown.Width, $OBJ_HEIGHT)
# --- DROPDOWN END ---
# --- CREATE THE BUTTON AND CREATE THE EVENT ---
$button = New-Object System.Windows.Forms.Button
$btnWidth = 75
$button.Location = New-Object System.Drawing.Point((($F_WIDTH - $btnWidth) / 2), 200)
$button.Size = New-Object System.Drawing.Size($btnWidth, 23)
$button.Text = "Submit"
$button.Add_Click({
Write-Host ( -not $chkDisable.Checked )
Write-Host ($null -eq $ouDropDown.SelectedItem)
# HANDLE EVENT
Send-TabOneEvent
})
# ADD ALL CONTROLS TO TAB 1
$tabPage1.Controls.Add($label_1)
$tabPage1.Controls.Add($label_2)
$tabPage1.Controls.Add($chkDisable)
$tabPage1.Controls.Add($textBox1)
$tabPage1.Controls.Add($ouDropDown)
$tabPage1.Controls.Add($button)
$form.ShowDialog()
Now loading...