Completely new to script and the like.

[water]

Logging: Will post an example as soon as I return to my windows PC.
OU: Function _AD_GetAllOUs of the UDF returns an array of OUs which can be used to populate your combo box.

[water]

BTW: To automate Outlook there is an OutlookEX UDF available. Might help, depending on what you try to achieve.

[Spikemg1]

1 minute ago, water said:

Logging: Will post an example as soon as I return to my windows PC.
OU: Function _AD_GetAllOUs of the UDF returns an array of OUs which can be used to populate your combo box.

I just found the OU info. Is there a way make column 0 the user side and relate col 0 to col 1 as the variable? I'm looking at your code now and I don't quite see it.

 

Just now, water said:

BTW: To automate Outlook there is an OutlookEX UDF available. Might help, depending on what you try to achieve.

I will have to take a look at that as well.

[water]

3 minutes ago, Spikemg1 said:

I just found the OU info. Is there a way make column 0 the user side and relate col 0 to col 1 as the variable?

Can you give an example what you exactly want to see?

Edited November 26, 2018 by water

[Spikemg1]

28 minutes ago, water said:

Can you give an example what you exactly want to see?

For instance; 

When looking at the combobox I see the OU as Test\test\User\ but in the code you see a variable for the reading that relates to OU=test,dc=test,dc=User,dc=com or somthing of the sort. I thnk that is what you are asking....

[water]

I see. Function _AD_GetAllOUs returns a 2D array. To populate your combo box with the FQDN (Col 1) simply loop through the array and add element 1 of each row to your combo box.
_AD_GetAllOUs.au3 is just an example which displays the full returned array.

[Spikemg1]

13 hours ago, water said:

I see. Function _AD_GetAllOUs returns a 2D array. To populate your combo box with the FQDN (Col 1) simply loop through the array and add element 1 of each row to your combo box.
_AD_GetAllOUs.au3 is just an example which displays the full returned array.

OK I got that figured out. now my combobox isnt scrolling. NVM answer found.

expandcollapse popup

#AutoIt3Wrapper_AU3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=Y

#include <AD.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=\\wch.wchosp.org\userfolders\mgallion\my documents\projects\tabs.kxf
_AD_Open()
Global $aOUs = _AD_GetAllOUs()
Global $callOU = ObjCreate("Scripting.Dictionary")
Global $itemBoxOptions1 = ""
Global $Form1_1 = GUICreate("Tab Sheet Ver. 1.0.0", 620, 452, 192, 124)
GUICtrlCreateTab(0, 0, 617, 449)
Global $TabSheet1 = GUICtrlCreateTabItem("ActiveDirectory")
Global $ADGroup1 = GUICtrlCreateGroup("AD User Name Screen", 8, 32, 601, 105)
Global $Label3 = GUICtrlCreateLabel("First Name", 16, 51, 81, 24)
Global $Input3 = GUICtrlCreateInput("", 104, 51, 209, 21)
Global $Label2 = GUICtrlCreateLabel("Last Name", 16, 75, 81, 24)
Global $Input2 = GUICtrlCreateInput("", 104, 75, 209, 21)
Global $Label1 = GUICtrlCreateLabel("User LogOn Name", 16, 107, 136, 24)
Global $Input1 = GUICtrlCreateInput("", 160, 107, 153, 21)
Global $Label4 = GUICtrlCreateLabel("Copy From", 320, 91, 81, 24)
Global $Combo1 = GUICtrlCreateCombo("", 408, 91, 193, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
For $iOU = 1 to $aOUs[0][0];
    $callOU.Add($aOUs[$iOU][0] , $aOUs[$iOU][1])
    If($itemBoxOptions1 = "") Then
        $itemBoxOptions1 = $aOUs[$iOU][0]
    Else
        $itemBoxOptions1 = $itemBoxOptions1 & "|" & $aOUs[$iOU][0]
    EndIf
Next
ConsoleWrite($itemBoxOptions1 & @CRLF)
GUICtrlSetData($Combo1, $itemBoxOptions1 , 'WCHUsers\TEST')
Global $Label5 = GUICtrlCreateLabel("Folder Location", 320, 48, 114, 24)
Global $Combo2 = GUICtrlCreateCombo("", 440, 48, 161, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $ADGroup2 = GUICtrlCreateGroup("AD Password Screen", 8, 144, 601, 121)
Global $Password = GUICtrlCreateLabel("Password", 16, 168, 73, 24)
Global $ConfirmPassword = GUICtrlCreateLabel("Confirm", 16, 192, 59, 24)
Global $PasswordInput = GUICtrlCreateInput("", 96, 168, 193, 21, $ES_PASSWORD)
Global $ConfirmInput = GUICtrlCreateInput("", 96, 192, 193, 21, $ES_PASSWORD)
Global $Checkbox1 = GUICtrlCreateCheckbox("User must change password at next logon", 312, 160, 289, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
Global $Checkbox2 = GUICtrlCreateCheckbox("User cannot change password", 312, 184, 289, 17)
Global $Checkbox3 = GUICtrlCreateCheckbox("Password never expires", 312, 208, 289, 17)
Global $Checkbox4 = GUICtrlCreateCheckbox("Account is disabled", 312, 232, 289, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $SaveButton = GUICtrlCreateButton("Save", 456, 416, 75, 25)
Global $ExitButton = GUICtrlCreateButton("Exit", 536, 416, 75, 25)
Global $ADGroup3 = GUICtrlCreateGroup("Additional Information", 8, 272, 601, 137)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    Global $nMsg = GUIGetMsg()
    Switch $nMsg

        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

 

Edited November 27, 2018 by Spikemg1

[water]

I once created an AD administration tool namd ADAT.
It's easy to create as many tabs as you like and add one or multiple administration tasks per tab. My example scripts can be found here.

Maybe this might serve as a foundation for your script. I might as well enhance ADAT with some of your functions (list of OUs in a dropbox etc.).

[water]

As you can see there is already a "Select OU" feature available on the "Create computer" tab

[Spikemg1]

4 hours ago, water said:

As you can see there is already a "Select OU" feature available on the "Create computer" tab

Not gonna lie. did not see that.

[water]

I first had to check before posting the "Select OU" feature

[Spikemg1]

Updated Code of my GUI, not much has changed just making it easier for me to read.

expandcollapse popup

#AutoIt3Wrapper_AU3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=Y

#include <AD.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

;Opens a connection to Active Directory
_AD_Open()
If @error Then Exit MsgBox(16, "Active Directory Skript", "Function _AD_Open encountered a problem. @error = " & @error & ", @extended = " & @extended)

#Region ### START Koda GUI section ### Form=\\wch.wchosp.org\userfolders\mgallion\my documents\projects\tabs.kxf

;All Global variables
Global $aOUs = _AD_GetAllOUs()
Global $callOU = ObjCreate("Scripting.Dictionary")
Global $itemBoxOptions1 = ""
Global $itemBoxOptions2 = ""

;GUI Creation
Global $Form1_1_1 = GUICreate("Tab Sheet Ver. 1.0.0", 757, 452, 192, 143)

;AD Tab Sheet====================================================================
GUICtrlCreateTab(0, 0, 753, 449)
Global $TabSheet1 = GUICtrlCreateTabItem("ActiveDirectory")

;Group 1 of AD Tab
Global $ADGroup1 = GUICtrlCreateGroup("AD User Name Screen", 8, 32, 737, 105)

;New User First Name
Global $Label3 = GUICtrlCreateLabel("First Name", 16, 51, 54, 17)
Global $firstName = GUICtrlCreateInput("", 80, 51, 225, 21)
    If $firstName = "" Then MsgBox(0, 'Error', 'Please provide user First Name.')
        If Not $firstName = "" Then
    EndIf

;New User Last Name
Global $Label2 = GUICtrlCreateLabel("Last Name", 16, 75, 55, 17)
Global $lastName = GUICtrlCreateInput("", 80, 75, 225, 21)
    If $lastName = "" Then MsgBox(0, 'Error', 'Please provide user Last Name.')
        If Not $lastName = "" Then
    EndIf

;New User LogOn Name
Global $Label1 = GUICtrlCreateLabel("User LogOn Name", 16, 107, 92, 17)
Global $userName = GUICtrlCreateInput("", 112, 107, 201, 21)
    If $userName = "" Then MsgBox(0, 'Error', 'Please provide User LogOn Name.')
        If Not $userName = "" Then _AD_SamAccountNameToFQDN(GUICtrlRead($userName))



;Copy From User Template
Global $Label4 = GUICtrlCreateLabel("Copy From", 320, 91, 54, 17)
Global $Combo1 = GUICtrlCreateCombo("", 392, 91, 345, 25, BitOR($CBS_DROPDOWN,$WS_VSCROLL))

;Determines Where the New User Goes in AD
Global $Label5 = GUICtrlCreateLabel("Folder Location", 312, 48, 77, 17)
Global $Combo2 = GUICtrlCreateCombo("", 392, 48, 345, 25, BitOR($CBS_DROPDOWN,$WS_VSCROLL))
For $iOU = 1 to $aOUs[0][0]
    $callOU.Add($aOUs[$iOU][0] , $aOUs[$iOU][1])
    If($itemBoxOptions1 = "") Then
        $itemBoxOptions1 = $aOUs[$iOU][0]
    Else
        $itemBoxOptions1 = $itemBoxOptions1 & "|" & $aOUs[$iOU][0]
    EndIf
Next
GUICtrlSetData($Combo2, $itemBoxOptions1 , 'WCHUsers\TEST')
;End of AD Tab Group 1

;Group 2 of AD Tab
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $ADGroup2 = GUICtrlCreateGroup("AD Password Screen", 8, 144, 737, 121)
Global $Password = GUICtrlCreateLabel("Password", 16, 168, 50, 17)
Global $ConfirmPassword = GUICtrlCreateLabel("Confirm", 16, 192, 39, 17)
Global $PasswordInput = GUICtrlCreateInput("", 72, 168, 217, 21, $ES_PASSWORD)
Global $ConfirmInput = GUICtrlCreateInput("", 64, 192, 225, 21, $ES_PASSWORD)
Global $Checkbox1 = GUICtrlCreateCheckbox("User must change password at next logon", 312, 160, 289, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
Global $Checkbox2 = GUICtrlCreateCheckbox("User cannot change password", 312, 184, 289, 17)
Global $Checkbox3 = GUICtrlCreateCheckbox("Password never expires", 312, 208, 289, 17)
Global $Checkbox4 = GUICtrlCreateCheckbox("Account is disabled", 312, 232, 289, 17)
;End of AD Tab group 2

;Group 3 of AD Tab.
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $ADGroup3 = GUICtrlCreateGroup("Additional Information", 8, 272, 737, 137)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
;End of AD Tab Group 3

Global $SaveButton = GUICtrlCreateButton("Save", 584, 416, 75, 25)
Global $ExitButton = GUICtrlCreateButton("Exit", 664, 416, 75, 25)
;End of AD Tab Sheet=============================================================
#EndRegion ### END Koda GUI section ###


While 1
    Global $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $SaveButton


        Case $ExitButton
            Exit
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

;Create Active Directory User

;Close connection to Active Directory
_AD_Close()

 

[water]

If you change

If $firstName = "" Then MsgBox(0, 'Error', 'Please provide user First Name.')
    If Not $firstName = "" Then
EndIf

to

If $firstName = "" Then 
    MsgBox(0, 'Error', 'Please provide user First Name.')
Else
    ; the user has entered a first name
EndIf

your code gets even more read- and understandable.

[Spikemg1]

30 minutes ago, water said:

If you change

If $firstName = "" Then MsgBox(0, 'Error', 'Please provide user First Name.')
    If Not $firstName = "" Then
EndIf

to

If $firstName = "" Then 
    MsgBox(0, 'Error', 'Please provide user First Name.')
Else
    ; the user has entered a first name
EndIf

your code gets even more read- and understandable.

Ok didn't know you do a multiline then statement

[Spikemg1]

What am I doing wrong???

Global $firstName = GUICtrlCreateInput("", 80, 51, 225, 21)

While 1
    Global $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $SaveButton
            If Not $firstName = "" Then
                ConsoleWrite($firstName)
            EndIf
        Case $ExitButton
            Exit
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

 

[water]

Global $sFirstName, $idFirstName
$idFirstName = GUICtrlCreateInput("", 80, 51, 225, 21)
While 1
    Global $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $SaveButton
            $sFirstName = GUICtrlRead($idFirstName)
            If $sFirstName = <> Then
                ConsoleWrite($sFirstName)
            EndIf
        Case $ExitButton
            Exit
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

GUICtrlCreateInput returns the Id of the control. To get the users input you have to read the value of the control.

[Spikemg1]

Is there a way to check and is there is an existing user with a specific username?

[water]

Which properties do you talk about (givennamen/sn, displayname  ...)?
Or you could give example 3 in _AD_GetObjectsInOU.au3 a try. It uses ANR (Ambigous Name Resolution) to get all objects with the same Name.

[Spikemg1]

40 minutes ago, water said:

Which properties do you talk about (givennamen/sn, displayname  ...)?
Or you could give example 3 in _AD_GetObjectsInOU.au3 a try. It uses ANR (Ambigous Name Resolution) to get all objects with the same Name.

nice figured that one out. now is there a way to break up your script across multiple lines? Like is there a character that tells the script to continue to the next line? For example:

MsgBox(1, 'Review User Info',`
'First Name: ' & $givenName`
& @CRLF &   'Last Name: ' & $surName`
& @CRLF & 'LogOn Name: '& $iuserName`
& @CRLF & 'User Destination:' & GUICtrlRead($itemBox1)`
& @CRLF)

 

[water]

Sure:

MsgBox(1, 'Review User Info', _
    'First Name: ' & $givenName _
    & @CRLF &   'Last Name: ' & $surName _
    & @CRLF & 'LogOn Name: '& $iuserName _
    & @CRLF & 'User Destination:' & GUICtrlRead($itemBox1) _
    & @CRLF)

Details can be found in the help file: https://www.autoitscript.com/autoit3/docs/intro/lang_comments.htm