translation from vb to auto-it

[erezlevi]

can someone translate this for me:

' Find first names of all the zar....

Set pLDAP = CreateObject("LDAPClient.3")
Call pLDAP.Connect("9.17.186.253")

Set pAttributeNames = CreateObject("LDAPClient.StringCollection")
Call pAttributeNames.Add("givenName")
Call pAttributeNames.Add("mail")

' Find all the zar... family names...
Set pEntries = pLDAP.Search("c=il,ou=bluepages,o=ibm.com", "sn=zar*", , pAttributeNames)
For Each pEntry In pEntries
    MsgBox pEntry.Attributes("givenName").Values(0).Value
    MsgBox pEntry.Attributes("mail").Values(0).Value
Next

[erezlevi]

bump ?

[erezlevi]

second bump.

[Pain]

Try this, I havn't tested it.

$pLDAP = ObjCreate("LDAPClient.3")
$pLDAP.Connect("9.17.186.253")

$pAttributeNames = ObjCreate("LDAPClient.StringCollection")
$pAttributeNames.Add("givenName")
$pAttributeNames.Add("mail")

; Find all the zar... family names...
$pEntries = $pLDAP.Search("c=il,ou=bluepages,o=ibm.com", "sn=zar*", "", $pAttributeNames)
For $pEntry In $pEntries
    MsgBox(0, "", $pEntry.Attributes("givenName").Values(0).Value)
    MsgBox(0, "", $pEntry.Attributes("mail").Values(0).Value)
Next

[youknowwho4eva]

didn't someone make a vb to autoit converter in example scripts?

[erezlevi]

Try this, I havn't tested it.

$pLDAP = ObjCreate("LDAPClient.3")
$pLDAP.Connect("9.17.186.253")

$pAttributeNames = ObjCreate("LDAPClient.StringCollection")
$pAttributeNames.Add("givenName")
$pAttributeNames.Add("mail")

; Find all the zar... family names...
$pEntries = $pLDAP.Search("c=il,ou=bluepages,o=ibm.com", "sn=zar*", "", $pAttributeNames)
For $pEntry In $pEntries
    MsgBox(0, "", $pEntry.Attributes("givenName").Values(0).Value)
    MsgBox(0, "", $pEntry.Attributes("mail").Values(0).Value)
Next

don't work... anyone else?

[Zinthose]

There is nothing wrong with Pain's script. The most likely issue is due to the "$pLDAP.Search" function call's third parameter. Since we have know no knowledge of what the possible values can be you will need to change that part yourself.

[erezlevi]

There is nothing wrong with Pain's script. The most likely issue is due to the "$pLDAP.Search" function call's third parameter. Since we have know no knowledge of what the possible values can be you will need to change that part yourself.

you are right! finally a brave one!!!!

here is the solution:

and I admit I was wrong!!!!!!

$pLDAP = ObjCreate("LDAPClient.3")
$pLDAP.Connect("9.17.186.253")
; Find all the za... family names...
$pEntries = $pLDAP.Search("c=il,ou=bluepages,o=ibm.com", "sn=zar*") 

MsgBox(0, "", $pEntries.Count)
For $pEntry In $pEntries
    MsgBox(0, "", $pEntry.Attributes("givenName").Values(0).Value)
    MsgBox(0, "", $pEntry.Attributes("mail").Values(0).Value)
    MsgBox(0, "", $pEntry.Attributes("sn").Values(0).Value)
Next

that will show you all attributes.

this will give only the attributes you want:

$pLDAP = ObjCreate("LDAPClient.3")
$pLDAP.Connect("9.17.186.253")

$Scope = 2  ;axldapScopeSubTree 

$pAttributeNames = ObjCreate("LDAPClient.StringCollection")
$pAttributeNames.Add("givenName")
$pAttributeNames.Add("mail")

; Find all the co... family names...
$pEntries = $pLDAP.Search("c=il,ou=bluepages,o=ibm.com", "sn=co*", $Scope , $pAttributeNames)

MsgBox(0, "", $pEntries.Count)
For $pEntry In $pEntries
    MsgBox(0, "", $pEntry.Attributes("givenName").Values(0).Value)
    MsgBox(0, "", $pEntry.Attributes("mail").Values(0).Value)
Next

Edited January 7, 2009 by erezlevi