Jump to content
water

Active Directory Example Scripts

Recommended Posts

Can you please tell me what you enter in the selection screen? Maybe I can reproduce the problem here.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-12-03 - Version 1.4.11.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2019-03-02 - Version 1.3.5.0) - Download - General Help & Support - Example Scripts - Wiki
Outlook Tools (2019-01-22 - Version 0.1.0.0) - Download - General Help & Support
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites

Sure.

For the OU, I input like so:

xx000.company.net/OU/SubOU/SubSubOU/SubSubSubOU/SubSubSubSubOU/SubSubSubSubSubOU

Then I click the radio-button next to Groupname, and I input a wildcard search, like so: GroupName-ForMyOU*

Then I click the radio button for "Query Groups", and I click Process. Eventually, the script hangs as described. Now, it can be seen in the output from SciTE some errors:

ExcelCOM_UDF.au3(1292,132) : WARNING: $oFound possibly not declared/created yet
$oFound = $oExcel.Selection.Find($sFindWhat, $oExcel.ActiveCell, Default, $iWholeOrPart, Default, Default, $fMatchCase, Default)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
ExcelCOM_UDF.au3(1273,38) : WARNING: $sFound: declared, but not used in func.
Local $iCount, $sA1, $sR1C1, $sFound,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
ExcelCOM_UDF.au3(2682,34) : WARNING: $iCurrCol possibly not declared/created yet
     $iCurrCol = $iStartColumn

Sorry for the sub-sub-sub things - my company is restrictive about what I can post in public.

Share this post


Link to post
Share on other sites

The format of the OU seems to be wrong, has to be something like OU=xx,DC=company,DC=COM.

As you can see from the messages, this are just warnings. The script should run successfully anyway.

Edited by water

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-12-03 - Version 1.4.11.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2019-03-02 - Version 1.3.5.0) - Download - General Help & Support - Example Scripts - Wiki
Outlook Tools (2019-01-22 - Version 0.1.0.0) - Download - General Help & Support
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites

Sure. We then will have a look at the other settings.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-12-03 - Version 1.4.11.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2019-03-02 - Version 1.3.5.0) - Download - General Help & Support - Example Scripts - Wiki
Outlook Tools (2019-01-22 - Version 0.1.0.0) - Download - General Help & Support
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites

What is the last message you get displayed in the SplashText?

"Processing ..."

"Processing ... Get records from AD"

"Processing ... AD records"

"Processing ... Copy to Excel"

"Processing ... Format Excel Sheet"

"Processing ... Transpose array"

"Processing ... Excel row (n of m)"


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-12-03 - Version 1.4.11.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2019-03-02 - Version 1.3.5.0) - Download - General Help & Support - Example Scripts - Wiki
Outlook Tools (2019-01-22 - Version 0.1.0.0) - Download - General Help & Support
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites

You said you had a very big AD structure.

Can you please uncomment (put a ";" at the start of) the following line? This will not create the description for the AD groups but might be much faster:

; Get all AD groups and their description
$aDescription = _AD_GetObjectsInOU("", "(&(objectclass=group)(description=*))", 2, "sAMAccountName,description")

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-12-03 - Version 1.4.11.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2019-03-02 - Version 1.3.5.0) - Download - General Help & Support - Example Scripts - Wiki
Outlook Tools (2019-01-22 - Version 0.1.0.0) - Download - General Help & Support
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites

That was it, in only a few moments I have the excel-sheet onscreen. So I could try compiling this and running it on a server or one of the workstations that never gets shut down - we could see if it succeeds eventually.

That would have to wait until tomorrow - tonight I will be rebooting many workstations. ;-)

I do see a "COM Error Encountered in !!ADAudit.au3" - it is repeated many times.

========================================================

COM Error Encountered in !!ADAudit.au3

AD UDF version = 1.3.0

@AutoItVersion = 3.3.8.1

@AutoItX64 = 0

@Compiled = 0

@OSArch = X64

@OSVersion = WIN_7

Scriptline = 245

NumberHex = 80020009

Number = -2147352567

WinDescription =

Description =

Source =

HelpFile =

HelpContext = 0

LastDllError = 0

Share this post


Link to post
Share on other sites

Line 245? That is "; Insert sum into last row" from the ADAudit version you can download from the forum. What is your line 245?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-12-03 - Version 1.4.11.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2019-03-02 - Version 1.3.5.0) - Download - General Help & Support - Example Scripts - Wiki
Outlook Tools (2019-01-22 - Version 0.1.0.0) - Download - General Help & Support
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites

Ha! In earlier attempts to fix this, I made some other changes. So I have gone back to the original download and made the only two needed changes for it to work in my environment (below).

So now we run with no errors.

I will try to leave it running for a great amount of time - perhaps even make a crude log function to put some timestamps into a textfile to record start/stop - in the next days.

Thanks for all your help and patience, water!

1. Change

If $oExcel.Application.Version <= 12.0 And $aUsers[0][0] >= 254 Then

to

If $oExcel.Application.Version < 12.0 And $aUsers[0][0] >= 254 Then

2. Comment out the $aDescription = ... line

; Get all AD groups and their description
$aDescription = _AD_GetObjectsInOU("", "(&(objectclass=group)(description=*))", 2, "sAMAccountName,description")

Share this post


Link to post
Share on other sites

Glad to be of service :D

If you want to get the description of the AD groups in your Excel sheet you could pass the OU you entered into the GUI as parameter 1 to function _AD_GetObjectsInOU.

This would search only in the specified OU and not the whole AD.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-12-03 - Version 1.4.11.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2019-03-02 - Version 1.3.5.0) - Download - General Help & Support - Example Scripts - Wiki
Outlook Tools (2019-01-22 - Version 0.1.0.0) - Download - General Help & Support
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites

Where is description supposed to be populated? I'm not sure this is working.

I changed line 164 from:

$aGroups = _AD_GetObjectsInOU("", $sQuery, 2, "member,distinguishedname")

to:

$aGroups = _AD_GetObjectsInOU($sOU, $sQuery, 2, "member,distinguishedname")

And removed the comment from line 212 ($aDescription = ...)

Share this post


Link to post
Share on other sites

In the ExcelSheet every group with a description as a red triangle on the upper right corner of the cell.. Move the mouse over the cell and the description will be displayed.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-12-03 - Version 1.4.11.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2019-03-02 - Version 1.3.5.0) - Download - General Help & Support - Example Scripts - Wiki
Outlook Tools (2019-01-22 - Version 0.1.0.0) - Download - General Help & Support
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites

Description is not working with the changes I made above. :-(

Edit: change has to be made to the line 212 and it works!

$aDescription = _AD_GetObjectsInOU($sOU, "(&(objectclass=group)(description=*))", 2, "sAMAccountName,description")

Also - possible to have the AD groups as the top columns (for easy filtering of the users by group)?

Edited by ModemJunki

Share this post


Link to post
Share on other sites

Also - possible to have the AD groups as the top columns (for easy filtering of the users by group)?

Unfortunately not.

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-12-03 - Version 1.4.11.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2019-03-02 - Version 1.3.5.0) - Download - General Help & Support - Example Scripts - Wiki
Outlook Tools (2019-01-22 - Version 0.1.0.0) - Download - General Help & Support
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites

Ja! Rotate is an easy manual task, just a few short steps.

Just copy all, go to new sheet, "paste special", and transpose. After doing this the first blank row (nr. 2) has to be deleted.

Thanks again for all the good work and support, water.

http://office.microsoft.com/en-us/excel-help/rotate-data-by-converting-columns-to-rows-or-vice-versa-HP005203138.aspx

Edited by ModemJunki

Share this post


Link to post
Share on other sites

Glad you've found a solution :D


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (2018-12-03 - Version 1.4.11.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2019-03-02 - Version 1.3.5.0) - Download - General Help & Support - Example Scripts - Wiki
Outlook Tools (2019-01-22 - Version 0.1.0.0) - Download - General Help & Support
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...