Jump to content
tatane

Can't Get Attribute from OpenLDAP (ADO)

Recommended Posts

tatane

Hi !

I'm playing with ADO and OpenLDAP connection. My script works with Windows 7 but don't with Windows XP.

Here is the code :

$oMyError = ObjEvent('AutoIt.Error', 'MyErrFunc')

$ado = ObjCreate("ADODB.Connection")
$ado.Provider = "ADSDSOObject"
$ado.Properties("User ID") = "cn=reader,o=gouv,c=fr"
$ado.Properties("Password") = "passsword"
$ADS_SERVER_BIND = 0x200
$ado.Properties("ADSI Flag") = $ADS_SERVER_BIND
$ado.Open("OpenLDAP-Search")

$adoCmd = ObjCreate("ADODB.Command")
$adoCmd.ActiveConnection = $ado
$adoCmd.Properties("Page Size") = 999
$adoCmd.Properties("Cache Results") = True
$adoCmd.Properties("Timeout") = 10

$serverName = "192.168.0.1"
$strBase = "<LDAP://" & $serverName & "/ou=users,o=gouv,c=fr>"
$strFilter = "(&(objectClass=person)(uid=toto))"
$strAttributes = "ADsPath"
$strQuery = $strBase & ";" & $strFilter & ";" & $strAttributes & ";subtree"
$adoCmd.CommandText = $strQuery

$objectList = $adoCmd.Execute

$objectList.GetRows

$objectList.MoveFirst
While Not $objectList.EOF

    $user = ObjGet($objectList.Fields("ADsPath").Value)

    ConsoleWrite($user.ENTPersonProfils & @CRLF)

    $objectList.MoveNext
Wend

Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    ConsoleWrite($HexNumber&@CRLF)
    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 & $HexNumber & @CRLF & _
            'err.number is (non Hex): ' & @TAB & $oMyError.number & @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   ;==>MyErrFunc

 

The error is at this line :

ConsoleWrite($user.ENTPersonProfils & @CRLF)

The attribute "ENTPersonProfils" is unknown. If I replace it by "cn" attribute, it works. And no problem with Windows 7...

Any Idea ?

 

Thanks.

Edited by tatane

Share this post


Link to post
Share on other sites
water

Does the COM error handler output any messages?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-10-31 - Version 1.3.4.1) - Download - General Help & Support - Example Scripts - Wiki
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
tatane

err.windescription : Unknown name ("Nom inconnu" in french)

err.number : 80020006

That's all.

Could it be a problem of provider ?

Edited by tatane

Share this post


Link to post
Share on other sites
mLipok

how you use COM Error handler ?
I ask because you do not have all information , at least you do not put it here - I mean err.scriptline ?

And which script line it is in your script ?


Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest begining - comunication with GitHub REST API Forum Rules *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST APIErrorLog.au3 UDF - A logging Library
 

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF *

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2018-10-31

Share this post


Link to post
Share on other sites
tatane

The error mentionned by COM Error handler (err.scriptline) is at the line

ConsoleWrite($user.ENTPersonProfils & @CRLF)

The "ENTPersonProfils" attribute name is not recognized although it exists and it works if the script is executed under Windows 7.

Share this post


Link to post
Share on other sites
water

Do you check a different user on Windows 7?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-10-31 - Version 1.3.4.1) - Download - General Help & Support - Example Scripts - Wiki
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
tatane

Yes. I'm using this function to know if a user is a professor or a student (the ENTPersonProfils attribute of $user object).

It seems only few attributes are accessibles : $user.cn, $user.uid, $user.sn.

Is there a way to list the attribute of an object ?

 

screenshotAD.jpg

Edited by tatane

Share this post


Link to post
Share on other sites
water

Some attributes are created when they get a value assigned for the first time (at least in MS AD).
So when the attribute does not exists it means it never had a value.
I simply would ignore this error and keep on processing as if the attribute existed but contained no value.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-10-31 - Version 1.3.4.1) - Download - General Help & Support - Example Scripts - Wiki
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
tatane

The problem is that this attribute always have a value ("student" or "teacher") and I need this information.

 

Maybe another way is to test one of the objectClass. One of them contains the type of user : ENTAuxEnseignant for teacher and ENTEleve for student.

How can I test it with the $user object ?

EDIT : I found how to get values from objectClass. It is an array type. So I just have to search for "ENTAuxEnseignant" or "ENTEleve" in this array to determine the usertype. Just a workaround. It works under Win XP and 7.

But I still don't know why my first script doesn't work correctly with Win XP :(

Edited by tatane

Share this post


Link to post
Share on other sites
water
(uid=toto)

is the userid you check on both systems?
I ask so we know if the problem is related to the operating system or the userid.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-10-31 - Version 1.3.4.1) - Download - General Help & Support - Example Scripts - Wiki
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
tatane

Yes I checked the same uid on both systems.

By the way, the $objectList.execute method works fine.

Share this post


Link to post
Share on other sites
water

Then I have run out of ideas why on XP your script can't access the property!
As support for Windowx XP has ended already I would - for security reasons - upgrade to a supported version of Windows as soon as possible.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-10-31 - Version 1.3.4.1) - Download - General Help & Support - Example Scripts - Wiki
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
tatane

Don't you think it might be a provider problem ? Is it OS dependent ?
 

In any event, thank you for your time.

Edited by tatane

Share this post


Link to post
Share on other sites
water

Don't you think it might be a provider problem ? Is it OS dependent ?

​As it works on Windows 7 and doesn't on Windows XP for the same uid it has to be a problem of the XP machine. Either a bug in one of the components (provider etc.) or a different setting for the cmd or connection objects etc.

Unfortunately I have never played with OpenLDAP, just MS AD.

Last question: Do you run the same version of AutoIt on both machines?

Edited by water

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-10-31 - Version 1.3.4.1) - Download - General Help & Support - Example Scripts - Wiki
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
tatane

Yep same version.

Share this post


Link to post
Share on other sites
water

Another idea:
Those properties you can access from XP seem to be standard properties, ENTPersonProfils seems to be a property of an schema extension.
Maybe XP has a problem with this extensions?

Found this on the web (it's a problem with Windows 8 though) but maybe this sentence describes the problem you face: "LdapGetSchema: ReadSubSchemaSubEntry failed, hr=0x8007200a, falling back to default schema"?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-10-31 - Version 1.3.4.1) - Download - General Help & Support - Example Scripts - Wiki
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
tatane

Indeed you're right. This attribute isn't standard. The post you mentionned is similar to mine, with Win 8 instead of Win Xp.

They talk about Bytes type return, do you think I can get what I want through Bytes type data ?

Share this post


Link to post
Share on other sites
water

The difference I see is that in the article they get the data - but in the wrong format. You do not get the data at all.
At the moment I have no idea how you could access the properties from a XP machine :(
 


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-10-31 - Version 1.3.4.1) - Download - General Help & Support - Example Scripts - Wiki
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

×