Prompt User für Active Directory (bzw. einer Domäne oder OU)?

#Form Function
function GenerateForm {
#region Import the Assemblies
[reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null  
[reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null  
#endregion

#region Generated Form Objects
$form1 = New-Object System.Windows.Forms.Form
$btnOK = New-Object System.Windows.Forms.Button
$comboDomains = New-Object System.Windows.Forms.ComboBox
$InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState
#endregion Generated Form Objects

#----------------------------------------------
#Generated Event Script Blocks
#----------------------------------------------
#Provide Custom Code for events specified in PrimalForms.
$handler_btnOK_Click= 
{
    $script:resultDomain = $comboDomains.SelectedItem.ToString()
    $form1.Close()
}
$handler_form1_Load=
{
    Try{
        $domains = [System.DirectoryServices.ActiveDirectory.Forest]::GetCurrentForest() | select -ExpandProperty Domains | select -ExpandProperty Name
        if ($domains.length -gt  0 ){
            $domains | %{$comboDomains.Items.Add($_)}
            $comboDomains.SelectedIndex = 0
        }else{
             [System.Windows.Forms.MessageBox]::Show("No Domains could be found in Forest!","Error",[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Error)  
            $script:resultDomain = "No Domain found"  
            $form1.Close()
        }
    }catch{
        [System.Windows.Forms.MessageBox]::Show("No Domains could be found!`r`nError: $($_.Exception.Message)","Error",[System.Windows.Forms.MessageBoxButtons]::OK,[System.Windows.Forms.MessageBoxIcon]::Error)  
        $script:resultDomain = "No Domain found"  
        $form1.Close()
    }
}

$OnLoadForm_StateCorrection=
{#Correct the initial state of the form to prevent the .Net maximized form issue
	$form1.WindowState = $InitialFormWindowState
}

#----------------------------------------------
#region Generated Form Code
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 47
$System_Drawing_Size.Width = 259
$form1.ClientSize = $System_Drawing_Size
$form1.DataBindings.DefaultDataSourceUpdateMode = 0
$form1.FormBorderStyle = 3
$form1.MaximizeBox = $False
$form1.MinimizeBox = $False
$form1.Name = "form1"  
$form1.StartPosition = 4
$form1.Text = "Domain auswählen"  
$form1.add_Load($handler_form1_Load)

$btnOK.DataBindings.DefaultDataSourceUpdateMode = 0

$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 202
$System_Drawing_Point.Y = 12
$btnOK.Location = $System_Drawing_Point
$btnOK.Name = "btnOK"  
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 21
$System_Drawing_Size.Width = 45
$btnOK.Size = $System_Drawing_Size
$btnOK.TabIndex = 1
$btnOK.Text = "OK"  
$btnOK.UseVisualStyleBackColor = $True
$btnOK.add_Click($handler_btnOK_Click)

$form1.Controls.Add($btnOK)

$comboDomains.DataBindings.DefaultDataSourceUpdateMode = 0
$comboDomains.DropDownStyle = 2
$comboDomains.FormattingEnabled = $True
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 12
$System_Drawing_Point.Y = 12
$comboDomains.Location = $System_Drawing_Point
$comboDomains.Name = "comboDomains"  
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 21
$System_Drawing_Size.Width = 184
$comboDomains.Size = $System_Drawing_Size
$comboDomains.TabIndex = 0

$form1.Controls.Add($comboDomains)

#endregion Generated Form Code

#Save the initial state of the form
$InitialFormWindowState = $form1.WindowState
#Init the OnLoad event to correct the initial state of the form
$form1.add_Load($OnLoadForm_StateCorrection)
#Show the Form
$form1.ShowDialog()| Out-Null
return $script:resultDomain
} #End Function

#Call the Function
$domain = GenerateForm

# Anzeigen der Auswahl
write-host "Die ausgewählte Domain lautet: $domain"