Gl-Komp-IT-Sys/scripts/AD_AGDLP.ps1

# PowerShell GUI Script für ADGDL

# Version 1.0:
# Created 2024 by Tim Eertmoed, Germany to work on Windows Server 2019 as an user creating script.

# Sicherstellen, dass das Skript als Administrator ausgeführt wird
$myWindowsIdentity = [System.Security.Principal.WindowsIdentity]::GetCurrent()
$myPrincipal = New-Object System.Security.Principal.WindowsPrincipal($myWindowsIdentity)

if (-not $myPrincipal.IsInRole([System.Security.Principal.WindowsBuiltInRole]::Administrator)) {
    $arguments = "& '" + $myinvocation.mycommand.definition + "'"
    Start-Process powershell -ArgumentList $arguments -Verb runAs
    Exit
}

# Windows.Forms Assembly laden
Add-Type -AssemblyName System.Windows.Forms
Import-Module ActiveDirectory

# Funktion zum Abrufen der aktuellen Domäne
function Get-DomainName {
    $domain = (Get-ADDomain).DNSRoot
    return $domain
}

# Funktion zum Abrufen von Gruppen aus AD
function Get-Groups {
    $groups = Get-ADGroup -Filter *
    return $groups | ForEach-Object { $_.Name }
}

# Funktion zum Abrufen von Benutzern aus AD
function Get-Users {
    $users = Get-ADUser -Filter *
    return $users | ForEach-Object { $_.SamAccountName }
}

$domain = Get-DomainName
$ggList = Get-ADGroup -Filter { GroupScope -eq 'Global' }
$ggList = $ggList | Select-Object -ExpandProperty Name
$dlList = Get-Groups
$userList = Get-Users

# GUI zur Zuordnung von GG zu DL und Benutzern erstellen
$form = New-Object System.Windows.Forms.Form
$form.Text = "GG zu DL Zuordnung und Benutzer"
$form.Size = New-Object System.Drawing.Size(805, 505)  # Fenstergröße anpassen

# Benutzer-Eingabe und Liste (ganz oben)
$userLabel = New-Object System.Windows.Forms.Label
$userLabel.Text = "Benutzer zu Globalgruppe zuordnen:"
$userLabel.Location = New-Object System.Drawing.Point(10, 10)
$userLabel.Size = New-Object System.Drawing.Size(250, 20)
$form.Controls.Add($userLabel)

$userTextBox = New-Object System.Windows.Forms.TextBox
$userTextBox.Location = New-Object System.Drawing.Point(10, 30)
$userTextBox.Size = New-Object System.Drawing.Size(250, 20)
$form.Controls.Add($userTextBox)

$userListBox = New-Object System.Windows.Forms.ListBox
$userListBox.Location = New-Object System.Drawing.Point(10, 55)
$userListBox.Size = New-Object System.Drawing.Size(250, 200)  # Anpassung der Größe
$userListBox.Items.AddRange($userList)
$userListBox.SelectionMode = [System.Windows.Forms.SelectionMode]::MultiExtended
$form.Controls.Add($userListBox)

$userTextBox.Add_TextChanged({
    $userListBox.Items.Clear()
    $filteredUsers = $userList | Where-Object { $_ -like "*$($userTextBox.Text)*" }
    $userListBox.Items.AddRange($filteredUsers)
})

# GG-Eingabe und Liste (mitte)
$ggLabel = New-Object System.Windows.Forms.Label
$ggLabel.Text = "Globalgruppe (GG):"
$ggLabel.Location = New-Object System.Drawing.Point(270, 10)
$ggLabel.Size = New-Object System.Drawing.Size(250, 20)
$form.Controls.Add($ggLabel)

$ggTextBox = New-Object System.Windows.Forms.TextBox
$ggTextBox.Location = New-Object System.Drawing.Point(270, 30)
$ggTextBox.Size = New-Object System.Drawing.Size(250, 20)
$form.Controls.Add($ggTextBox)

$ggListBox = New-Object System.Windows.Forms.ListBox
$ggListBox.Location = New-Object System.Drawing.Point(270, 55)
$ggListBox.Size = New-Object System.Drawing.Size(250, 200)
$ggListBox.Items.AddRange($ggList)
$ggListBox.SelectionMode = [System.Windows.Forms.SelectionMode]::One
$form.Controls.Add($ggListBox)

$ggTextBox.Add_TextChanged({
    $ggListBox.Items.Clear()
    $filteredGGs = $ggList | Where-Object { $_ -like "*$($ggTextBox.Text)*" }
    $ggListBox.Items.AddRange($filteredGGs)
})

# DL-Eingabe und Liste (ganz unten)
$dlLabel = New-Object System.Windows.Forms.Label
$dlLabel.Text = "Domänenlokale Gruppen (DL):"
$dlLabel.Location = New-Object System.Drawing.Point(530, 10)
$dlLabel.Size = New-Object System.Drawing.Size(250, 20)
$form.Controls.Add($dlLabel)

$dlTextBox = New-Object System.Windows.Forms.TextBox
$dlTextBox.Location = New-Object System.Drawing.Point(530, 30)
$dlTextBox.Size = New-Object System.Drawing.Size(250, 20)
$form.Controls.Add($dlTextBox)

$dlListBox = New-Object System.Windows.Forms.ListBox
$dlListBox.Location = New-Object System.Drawing.Point(530, 55)
$dlListBox.Size = New-Object System.Drawing.Size(250, 200)
$dlListBox.Items.AddRange($dlList)
$dlListBox.SelectionMode = [System.Windows.Forms.SelectionMode]::MultiExtended
$form.Controls.Add($dlListBox)

$dlTextBox.Add_TextChanged({
    $dlListBox.Items.Clear()
    $filteredDLs = $dlList | Where-Object { $_ -like "*$($dlTextBox.Text)*" }
    $dlListBox.Items.AddRange($filteredDLs)
})

# RichTextBox für Debug-Informationen hinzufügen
$debugTextBox = New-Object System.Windows.Forms.RichTextBox
$debugTextBox.Multiline = $true
$debugTextBox.Location = New-Object System.Drawing.Point(10, 265)
$debugTextBox.Size = New-Object System.Drawing.Size(770, 150)
$debugTextBox.ScrollBars = 'Vertical'
$debugTextBox.ReadOnly = $true
$form.Controls.Add($debugTextBox)

# Methode zur Ausgabe von Nachrichten im RichTextBox
function Add-DebugMessage {
    param (
        [string]$message,
        [string]$color
    )

    $debugTextBox.SelectionStart = $debugTextBox.TextLength
    $debugTextBox.SelectionLength = 0
    $debugTextBox.SelectionColor = $color
    $debugTextBox.AppendText("$message`r`n")
}

# OK-Button
$okButton = New-Object System.Windows.Forms.Button
$okButton.Text = "OK"
$okButton.Location = New-Object System.Drawing.Point(10, 425)
$okButton.Size = New-Object System.Drawing.Size(380, 30)
$okButton.Add_Click({
    $gg = $ggListBox.SelectedItem
    $dl = $dlListBox.SelectedItems
    $users = $userListBox.SelectedItems

    # Zuerst Benutzer zur Globalgruppe hinzufügen
    foreach ($user in $users) {
        if (-not (Get-ADGroupMember -Identity $gg -Recursive | Where-Object { $_.SamAccountName -eq $user })) {
            Add-ADGroupMember -Identity $gg -Members $user
            Add-DebugMessage "Benutzer $user wurde der Globalgruppe $gg hinzugefügt." "Green"
        } else {
            Add-DebugMessage "Benutzer $user ist bereits Mitglied der Globalgruppe $gg." "Orange"
        }
    }

    # Dann Globalgruppe zu einer anderen Globalgruppe hinzufügen
    foreach ($dlGroup in $dl) {
        if (Get-ADGroup -Filter "Name -eq '$dlGroup'") {
            $groupType = (Get-ADGroup -Identity $dlGroup).GroupScope
            if ($groupType -eq 'Global') {
                if (-not (Get-ADGroupMember -Identity $dlGroup -Recursive | Where-Object { $_.SamAccountName -eq $gg })) {
                    Add-ADGroupMember -Identity $dlGroup -Members $gg
                    Add-DebugMessage "Globalgruppe $gg wurde zur Globalgruppe $dlGroup hinzugefügt." "Green"
                } else {
                    Add-DebugMessage "Globalgruppe $gg ist bereits Mitglied der Globalgruppe $dlGroup." "Orange"
                }
            }
        }
    }

    # Schließlich Globalgruppe zu einer Domänenlokalen Gruppe hinzufügen
    foreach ($dlGroup in $dl) {
        if (Get-ADGroup -Filter "Name -eq '$dlGroup'") {
            $groupType = (Get-ADGroup -Identity $dlGroup).GroupScope
            if ($groupType -eq 'DomainLocal') {
                if (-not (Get-ADGroupMember -Identity $dlGroup -Recursive | Where-Object { $_.SamAccountName -eq $gg })) {
                    Add-ADGroupMember -Identity $dlGroup -Members $gg
                    Add-DebugMessage "Globalgruppe $gg wurde zur Domänenlokalen Gruppe $dlGroup hinzugefügt." "Green"
                } else {
                    Add-DebugMessage "Globalgruppe $gg ist bereits Mitglied der Domänenlokalen Gruppe $dlGroup." "Orange"
                }
            }
        }
    }

    # Trennstrich
    $separator = '+' * 127  #mal das Zeichen '+' wiederholen
    Add-DebugMessage $separator "Black"

    [System.Windows.Forms.MessageBox]::Show("Vorgang abgeschlossen.")
})
$form.Controls.Add($okButton)

# Beenden-Button
$exitButton = New-Object System.Windows.Forms.Button
$exitButton.Text = "Beenden"
$exitButton.Location = New-Object System.Drawing.Point(400, 425)
$exitButton.Size = New-Object System.Drawing.Size(380, 30)
$exitButton.Add_Click({
    $form.Close()
})
$form.Controls.Add($exitButton)

$form.Show()