Help please, make an Query Error on BitLocker Active Directory LDAP?

[marcsusy]

Hello everyone:

Sorry for my bad English. I have problems when trying to make a query Active Directory on a specific computer for BitLocker key using a script that I downloaded from this forum but I get several errors.

 

Thanks.
 

I put the script in an attachment used

 

 

And I get the following errors:

 

 

 we intercepted a COM Error!

 

err.windescription: Error operation

 

err.number is: 80020009

 

err.scriptline is: 23

 

err.source is Active Directory

 

 

we intercepted a COM Error!

 

err.windescription: Error operation

 

err.windescription: Variable must be of type 'Object',

 

err.number is: 000000A9

 

err.scriptline is: 26

 

err.source is Active Directory

 

 

we intercepted a COM Error!

 

err.windescription: Error operation

 

err.windescription: Variable must be of type 'Object',

 

err.number is: 000000A9

 

err.scriptline is: 29

 

err.source is Active Directory

 

 

 

 

 

 

 

 

 

 

[water]

Which script did you try?

[marcsusy]

Hello Water

I use this script 

 

expandcollapse popup

#include <ad.au3>
#include <array.au3>
; --------------------------------------------------------------------------------
; Securely access the Active Directory computer object using Kerberos
; --------------------------------------------------------------------------------
; PC567 Name of the computer you want to check the BitLocker key
; FTR domain name
Global $objDSO = ObjGet("LDAP:")
ConsoleWrite("ObjGet: @error = " & @error & ", @extended = " & @extended & @LF)
;Global $strPathToComputer = "[url=null]LDAP:/cn=Smith,ou=Sales,dc=MyDomain,dc=com[/url]" ;path really has 2 / but to get around forum bug i posted using 1
Global $strPathToComputer = "[url=null]LDAP:/cn=PC567,ou=USERS,dc=FTR,dc=es[/url]" ;path really has 2 / but to get around forum bug i posted using 1
; WScript.Echo "Accessing object: " + strPathToComputer
Global Const $ADS_SECURE_AUTHENTICATION = 1
Global Const $ADS_USE_SEALING = 64 ; 0x40
Global Const $ADS_USE_SIGNING = 128 ; 0x80
$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")    ; Initialize a COM error handler
; --------------------------------------------------------------------------------
; Get all BitLocker recovery information from the Active Directory computer object
; --------------------------------------------------------------------------------
; Get all the recovery information child objects of the computer object
Global $objFveInfos = $objDSO.OpenDSObject($strPathToComputer, "", "", BitOr($ADS_SECURE_AUTHENTICATION, $ADS_USE_SEALING, $ADS_USE_SIGNING))
ConsoleWrite("OpenDSObject: @error = " & @error & ", @extended = " & @extended & @LF)
Global $TempArray[100] = ["msFVE-RecoveryInformation"]
$objFveInfos.Filter = $TempArray
ConsoleWrite("Filter: @error = " & @error & ", @extended = " & @extended & @LF)
; Iterate through each recovery information object
For $objFveInfo in $objFveInfos
   $strName = $objFveInfo.Get("name")
   ConsoleWrite("Get(name): @error = " & @error & ", @extended = " & @extended & @LF)
   $strRecoveryPassword = $objFveInfo.Get("msFVE-RecoveryPassword" & @LF)
   ConsoleWrite("ObjGet(msFVE-RecoveryPassword): @error = " & @error & ", @extended = " & @extended & @LF)
   ConsoleWrite("  name: " & $strName)
   ConsoleWrite("  msFVE-RecoveryPassword: " & $strRecoveryPassword & @LF)
Next
; This is my custom defined error handler
Func MyErrFunc()
  Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !"    & @CRLF  & @CRLF & _
             "err.description is: " & @TAB & $oMyError.description  & @CRLF & _
             "err.windescription:"   & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: "       & @TAB & hex($oMyError.number,8)  & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @CRLF & _
             "err.scriptline is: "   & @TAB & $oMyError.scriptline   & @CRLF & _
             "err.source is: "       & @TAB & $oMyError.source       & @CRLF & _
             "err.helpfile is: "       & @TAB & $oMyError.helpfile     & @CRLF & _
             "err.helpcontext is: " & @TAB & $oMyError.helpcontext _
            )
Endfunc

Edited October 9, 2013 by Melba23
Added code tags

[water]

As far as I can remember the thread where you got the script from has a final solution.

Can you post the link to the thread?

[Melba23]

marcsusy,

If you add a comment explaining that the path is missing a "/" because of the known forum formatting bug - please do not add the double "/" in the comment itself so that the same error still occurs.

M23

[marcsusy]

_{Thanks Melba:}

 

 

_{I will use  the script without the double "/ /", as I see no need to call the include ad.au3 to run the query Active Directory?}

 

 

_Thanks

 

 

 

 

[marcsusy]

Hello:

I run the script now I have no errors but I get the following output AutoIt3.exe ended.rc: -1073741819, with a single "/" I get error if I do the two works but I get this output

ObjGet: @error = 0, @extended = 0
OpenDSObject: @error = 0, @extended = 0
Filter: @error = 0, @extended = 0
!>11:56:20 AutoIt3.exe ended.rc:-1073741819

Someone can help me please.

thanks

 

The script is used:

 

; --------------------------------------------------------------------------------
; Securely access the Active Directory computer object using Kerberos
; --------------------------------------------------------------------------------

Global $objDSO = ObjGet("LDAP:")
ConsoleWrite("ObjGet: @error = " & @error & ", @extended = " & @extended & @LF)
Global $strPathToComputer = "LDAP://CN=PC2206,OU=REDES,OU=RECURSOS,DC=TDF,DC=UDK,DC=systems,DC=com"

; WScript.Echo "Accessing object: " + strPathToComputer
Global Const $ADS_SECURE_AUTHENTICATION = 1
Global Const $ADS_USE_SEALING = 64 ; 0x40
Global Const $ADS_USE_SIGNING = 128 ; 0x80

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")    ; Initialize a COM error handler

; --------------------------------------------------------------------------------
; Get all BitLocker recovery information from the Active Directory computer object
; --------------------------------------------------------------------------------
; Get all the recovery information child objects of the computer object
Global $objFveInfos = ObjGet($strPathToComputer)

ConsoleWrite("OpenDSObject: @error = " & @error & ", @extended = " & @extended & @LF)
Global $TempArray[100] = ["msFVE-RecoveryInformation"]
$objFveInfos.Filter = $TempArray
ConsoleWrite("Filter: @error = " & @error & ", @extended = " & @extended & @LF)
; Iterate through each recovery information object
For $objFveInfo in $objFveInfos
   $strName = $objFveInfo.Get("name")
   ConsoleWrite("Get(name): @error = " & @error & ", @extended = " & @extended & @LF)
   $strRecoveryPassword = $objFveInfo.Get("msFVE-RecoveryPassword" & @LF)
   ConsoleWrite("ObjGet(msFVE-RecoveryPassword): @error = " & @error & ", @extended = " & @extended & @LF)
   ConsoleWrite("  name: " & $strName)
   ConsoleWrite("  msFVE-RecoveryPassword: " & $strRecoveryPassword & @LF)
Next

Func MyErrFunc()
  Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !"    & @CRLF  & @CRLF & _
   "err.description is: " & @TAB & $oMyError.description  & @CRLF & _
   "err.windescription:"   & @TAB & $oMyError.windescription & @CRLF & _
   "err.number is: "       & @TAB & hex($oMyError.number,8)  & @CRLF & _
   "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @CRLF & _
   "err.scriptline is: "   & @TAB & $oMyError.scriptline   & @CRLF & _
   "err.source is: "       & @TAB & $oMyError.source       & @CRLF & _
   "err.helpfile is: "       & @TAB & $oMyError.helpfile     & @CRLF & _
   "err.helpcontext is: " & @TAB & $oMyError.helpcontext _
  )
Endfunc

 

Thanks for the help