Issues with _AD_GetObjectProperties

[antmar904]

Hi,

I am trying to get a users AD attribute called "AccountExpirationDate" but I keep getting this error:

(21) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:

 

#include <AD.au3>
#include <Array.au3>
#include <File.au3>
#include <AutoItConstants.au3>


; Open Connection to the Active Directory
_AD_Open()
If @error Then
    MsgBox(0, "", @error)
EndIf

$Users = FileReadToArray(@ScriptDir & "\UsersList.txt")

;_ArrayDisplay($Users)

;Get users "Name" attribute in AD
For $i = 0 To UBound($Users) - 1
    Local $Name = _AD_GetObjectProperties($Users[$i], "AccountExpirationDate")
    FileWriteLine(@ScriptDir & "\OutputFile.txt", $Users[$i] & " " & $Name[1][1])
Next

_AD_Close()

 

[JLogan3o13]

Look at the $Name array, is it returning what you expect it to?

[antmar904]

32 minutes ago, JLogan3o13 said:

Look at the $Name array, is it returning what you expect it to?

No it is not...

 

 

[JLogan3o13]

Hence your issue. This works for me in my domain:

Local $Name = _AD_GetObjectProperties($Users[$i], "AccountExpires")

although we don't use that field so it comes up 0000/00/00 00:00:00

[antmar904]

1 hour ago, JLogan3o13 said:

Hence your issue. This works for me in my domain:

Local $Name = _AD_GetObjectProperties($Users[$i], "AccountExpires")

although we don't use that field so it comes up 0000/00/00 00:00:00

I was using the wrong attribute name

How check the accountexpire array and if it is set to not expire "0000/00/00 00:00:00" then write "Does not expire" in the text file?

If $Name[1][1] = "0000/00/00 00:00:00" Then

 

[antmar904]

For some reason my script is stopping mid way and not running for all users in my list.

Error: Subscript used on non-accessible variable

#include <AD.au3>
#include <Array.au3>
#include <File.au3>
#include <AutoItConstants.au3>


; Open Connection to the Active Directory
_AD_Open()
If @error Then
    MsgBox(0, "", @error)
EndIf

$Users = FileReadToArray(@ScriptDir & "\UsersList.txt")

_ArrayDisplay($Users)

For $i = 0 To UBound($Users) - 1
    Local $Name = _AD_GetObjectProperties($Users[$i], "AccountExpires")
    ;_ArrayDisplay($Name)
    If $Name[1][1] = "1601/01/01 00:00:00" Then
        FileWriteLine(@ScriptDir & "\OutputFile.txt", $Users[$i] & " " & "DOES NOT EXPIRE")
    Else
        FileWriteLine(@ScriptDir & "\OutputFile.txt", $Users[$i] & " " & $Name[1][1])
    EndIf
Next

_AD_Close()

 

[Subz]

Use $Name[$i][1] otherwise you're only checking the first user over and over again.

Sorry just re-read the post, you need to use something like

Local $Name = _AD_GetObjectProperties($Users[$i], "AccountExpires")
    If @error Then Continueloop ;~ User was not found, see return values for _AD_GetObjectProperties()

 

Edited January 15, 2019 by Subz