#Select-ADObject.PS1
#Alan dot Kaplan at VA dot Gov
#4-28-2016 v. 1
#5-4-16  v 1.1 Added Group enumeration, Added text parameters

Function Select-ADObject {
    Param
    (
        # Title help description
        [Parameter(  Position=0)]
        $Title = "Select an AD Object",

        # Instruction Text help description
        [Parameter(Position=1)]
        [string]$Instructions = "Click on domain box after a domain change to show tree.  Double click on a node to expand.",

        # Select Button Text
        [Parameter(Position=3)]
        [string]$BtnText =  "Accept Selected Object"
    )
    #Original form code generated By: SAPIEN Technologies PrimalForms (Community Edition) v1.0.10.0   
    $myDom = ([System.DirectoryServices.ActiveDirectory.domain]::GetCurrentDomain()).Name
    $Forest = ([System.DirectoryServices.ActiveDirectory.Forest]::GetCurrentForest())
    $DomainList = ($Forest.Domains).name | sort   -CaseSensitive
    $startNum= $DomainList.IndexOf($myDom)
    # Import the Assemblies
    Add-Type -assemblyname System.Windows.Forms
    Add-Type -assemblyname System.Drawing
    Add-Type -assemblyname Microsoft.VisualBasic

    # Form Objects
    $Form = New-Object System.Windows.Forms.Form
    $DomainBox = New-Object System.Windows.Forms.ListBox
    $DomainLbl = New-Object System.Windows.Forms.Label
    $AcceptBtn = New-Object System.Windows.Forms.Button
    $treeViewNav = New-Object System.Windows.Forms.TreeView
    $InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState
    $StatusBar = New-Object System.Windows.Forms.StatusBar
    $InstructionsLabel = New-Object System.Windows.Forms.Label

#Event Script Blocks
    $DomainBox_SelectedIndexChanged={
            $CurrentDomain= $DomainBox.SelectedItem
            if ($Script:LoadCount -gt 0){
                #initial domain is current
                $domain = [adsi]"LDAP://$CurrentDomain"
            }ELSE{
                $domain=[adsi]''
            }
            #Clear old results
            $TreeviewNav.Nodes.Clear()
		    $newnode=New-Object System.Windows.Forms.TreeNode 
	        $newnode.Name=$domain.Name
	 	    $newnode.Text=$domain.distinguishedName
		    $newnode.Tag=$domain.distinguishedName
		    $treeviewNav.Nodes.Add($newnode)
            $Script:LoadCount=$LoadCount+1
            #Expand the initial tree
            Invoke-command $treeviewNav_DoubleClick
    }
	

	$treeviewNav_DoubleClick={
        [System.Windows.Forms.Application]::UseWaitCursor = $true
        if ($treeviewNav.SelectedNode -eq $null){
            #For first listing in treeview, select root
            $node =$treeviewNav.Nodes[0]
        }Else{
            $node=$treeviewNav.SelectedNode
        }
		    if($node.Nodes.Count -eq 0){
                $object = ([adsi]"LDAP://$($node.Tag)")
                 switch ($object.ObjectClass) {
                     {$_ -contains 'group'} 
                     {
                     #group get members
                             $StatusBar.Text = "Getting group members, please wait..."
                            $Members = $Object.Member | ForEach-Object {[ADSI]"LDAP://$_"}  
                            ForEach ($member in $members){               
       				            $newnode=New-Object System.Windows.Forms.TreeNode 
				                $newnode.Name=$member.Name
				 	            $newnode.Text=$member.Name
					            $newnode.Tag=$member.distinguishedName
					            $node.Nodes.Add($newnode)		
                                }  #End Foreach
                     } #End Group  
                     Default {
                                $StatusBar.Text = "Getting list, please wait..."
                                $children=([adsi]"LDAP://$($node.Tag)").Children
			                    foreach($child in $children){
				                    if($child){
					                    $newnode=New-Object System.Windows.Forms.TreeNode 
				                        $newnode.Name=$child.Name
				 	                    $newnode.Text=$child.Name
					                    $newnode.Tag=$child.distinguishedName
					                    $node.Nodes.Add($newnode)			
				                    }
			                    }
                    } #End Default
                 } #End Switch

			    $node.Expand()
                [System.Windows.Forms.Application]::UseWaitCursor = $False
                $statusbar.text = ""
		    }
	    }
	
    $OnLoadForm_StateCorrection=
    {#Correct the initial state of the form to prevent the .Net maximized form issue
	    $Form.WindowState = $InitialFormWindowState
    }

    $form.ClientSize =  New-Object System.Drawing.Size(445,595)
    $Form.Name = "Form"
    $Form.Text = $Title

    $InstructionsLabel.Location =  New-Object System.Drawing.Point(10,15)
    $InstructionsLabel.Name = "InstructionsLabel"
    $InstructionsLabel.Size = New-Object System.Drawing.Size(420,35)
    $InstructionsLabel.Font = New-Object System.Drawing.Font("Microsoft Sans Serif",8.25,2,3,0)
    $InstructionsLabel.Text = $Instructions
    $Form.Controls.Add($InstructionsLabel)

    $DomainBox.Name = "DomainBox"
    $DomainBox.FormattingEnabled = $True
    $DomainBox.Font = New-Object System.Drawing.Font("Microsoft Sans Serif",9.75,0,3,0)
    $DomainBox.Location = New-Object System.Drawing.Point(185,50)
    $DomainBox.Size = New-Object System.Drawing.Size(160,30)
    $DomainBox.add_SelectedIndexChanged($DomainBox_SelectedIndexChanged)

    foreach ($Domain in $domainlist){
        [void] $DomainBox.Items.Add($domain)
    }
    $DomainBox.setSelected($startNum,$true)
    $Form.Controls.Add($DomainBox)

    $DomainLbl.Name = "DomainLbl"
    $DomainLbl.Location = New-Object System.Drawing.Point(20,50)
    $DomainLbl.Size = New-Object System.Drawing.Size(160,25)
    $DomainLbl.Text = "Selected Domain"
    $DomainLbl.TextAlign = "Middleright"
    $Form.Controls.Add($DomainLbl)

    $AcceptBtn.Name = "AcceptBtn"
    $AcceptBtn.Location = New-Object System.Drawing.Point(125,535)
    $AcceptBtn.Size =New-Object System.Drawing.Size(170,25)
    $AcceptBtn.Text = $BtnText
    $AcceptBtn.DialogResult = [System.Windows.Forms.DialogResult]::OK
    $Form.Controls.Add($AcceptBtn)
    $form.AcceptButton = $AcceptBtn

    $treeViewNav.Name = "treeViewNav"
    $treeViewNav.Location =New-Object System.Drawing.Point(45,80)
    $treeViewNav.Size =New-Object System.Drawing.Size(325,450)
    $treeViewNav.add_DoubleClick($treeViewNav_DoubleClick)
    $treeViewNav.add_AfterSelect($treeViewNav_AfterSelect)
    $Form.Controls.Add($treeViewNav)
    $form.StartPosition = "CenterParent"
    $form.Controls.Add($StatusBar)

    #Save the initial state of the form
    $InitialFormWindowState = $Form.WindowState
    #Init the OnLoad event to correct the initial state of the form
    $Form.add_Load($OnLoadForm_StateCorrection)

    #Show the Form
    $dialogResult = $Form.ShowDialog()
    if ($dialogResult -eq [System.Windows.Forms.DialogResult]::OK)
     {
        $RetVal = [PSCustomObject]@{
        Domain = [string]$DomainBox.SelectedItem
        DN = [string]$treeViewNav.SelectedNode.Tag
        }
        $RetVal
        $Form.Close()
     }
} #End Function

#Call the Function
$ADObject = Select-ADObject
$ADObject.domain
$ADObject.DN