#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <AD.au3>
#include <Array.au3>
#include <GuiButton.au3>
#include <String.au3>

#Region ### START Koda GUI section ### Form=
Global $Form1_1 = GUICreate("Get User Groups", 419, 501, -1, -1)
Global $Username = GUICtrlCreateInput("", 176, 80, 121, 21)
Global $Button1 = GUICtrlCreateButton("GetGroups", 24, 120, 75, 25)
Global $Groups = GUICtrlCreateEdit("", 24, 168, 369, 313, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetData(-1, "")
GUICtrlSetData(-1, "")
Global $Label2 = GUICtrlCreateLabel("Copy and paste the text below and add it to the onboarding ticket.", 80, 40, 318, 17)
Global $Cancel = GUICtrlCreateButton("Cancel", 312, 120, 75, 25)
Global $Disable = GUICtrlCreateButton("Copy", 120, 120, 75, 25)
Global $Expire = GUICtrlCreateButton("Expire", 216, 120, 75, 25)
Global $Unique = GUICtrlCreateLabel("Unique Username", 56, 80, 89, 25)
GUISetState(@SW_SHOW)
WinActivate($Form1_1)
_GUICtrlButton_Enable($Username)

#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			GroupArray()
		Case $Disable
			Copy()
		Case $Cancel
			Exit
	EndSwitch
WEnd

;~ Functions

Func GroupArray()
	_AD_Open()
	Global $Inputbox = GUICtrlRead($Username)
	If @error Then Exit MsgBox(16, "Active Directory", "Function _AD_Open encountered a problem. @error = " & @error & ", @extended = " & @extended)
	; Get a sorted array of group names (FQDN) that the user is immediately a member of
	Global $aUser = _AD_GetUserGroups($Inputbox)
	If @error > 0 Then
		MsgBox(64, "Active Directory Function", "User '" & $Inputbox & "' has not been assigned to any group or cannot be found.")
	Else
		_ArraySort($aUser, 0, 1)
		$sString = _ArrayToString($aUser, "; ")
		Global $sorted = _StringBetween($sString, "CN=", ",")
		Global $Format = _ArrayToString($sorted, "; ")
		Guictrlsetdata($Groups, $Format)
	EndIf
	; Close Connection to the Active Directory
	_AD_Close()
EndFunc   ;==>GroupArray

Func Copy()
	$copy = GUICtrlRead($groups)
	ClipPut($copy)
EndFunc