Maybe something like this, if I understood you correctly:
#include <AD.au3>
_AD_Open()
Global $aProperties[1][2]
MsgBox(0,"Info", "AD Information for user " & @UserName & " will be found" & @CRLF & "The query may take several minutes to complete",3)
ProgressOn("Progress Meter", "Waiting for query to return data", "0 percent")
MsgBox(0,"TS", "Pre Query",3)
AdlibRegister("Progress", 1000)
$aProperties = _AD_GetObjectProperties(@UserName)
MsgBox(0,"TS", "Post Query",3)
sleep(500)
AdlibUnRegister("Progress")
ProgressOff()
MsgBox(0,"TS", "Array is built",3)
_ArrayDisplay($aProperties, "AD Functions - Properties for '" & @UserName & "'")
MsgBox(0,"TS", "Array is displayed",3)
_AD_Close()
Func Progress()
$i += 10
ProgressSet( $i, $i & " percent")
EndFunc