VB to AUTOIT using

[jtrout]

CODE

dim cn ' as ADOB.Connection

dim iDobj ' as IADs

Dim o ' as object

Dim strSvr ' as string

Dim strLDAP ' as string

Dim strCred ' as string

dim strUser ' as string

dim strPW ' as string

Dim strSearch ' as string

Dim i ' as integer

Dim iSecurity ' as integer

Const ADS_CLEARTEXT = 0

Const ADS_SECURE_AUTHENTICATION = &h1

Const ADS_USE_ENCRYPTION = &h2

Const ADS_USE_SSL = &h2

Const ADS_READONLY_SERVER = &h4

Const ADS_PROMPT_CREDENTIALS = &h8

Const ADS_NO_AUTHENTICATION = &h10

Const ADS_FAST_BIND = &h20

Const ADS_USE_SIGNING = &h40

Const ADS_USE_SEALING = &h80

Const ADS_USE_DELEGATION = &h100

Const ADS_SERVER_BIND = &h200

Const ADS_NO_REFERRAL_CHASING = &h400

Const ADS_AUTH_RESERVED = &h80000000

Dim strSvrPort ' as string

Const PORT_DEFAULT = ""

Const PORT_CLEARTEXT = ":888"

Const PORT_SECURE = ":999"

on error resume next

strUser = InputBox("Enter your Username:")

strPW = InputBox("Enter your Password:")

strCred = "cn=" & strUser & ",ou=people,dc=company,dc=net"

set cn = GetObject("LDAP:")

iSecurity = ADS_CLEARTEXT

strSvrPort = PORT_CLEARTEXT

strSvr = "server.company.net"

strLDAP = "LDAP://" & strSvr & strSvrPort & "/cn=" & strUser & ",ou=people,dc=company,dc=net"

set iDObj = cn.OpenDSObject( strLDAP, strCred, strPW, iSecurity)

If (iDObj.Class = "inetOrgPerson") Then

WScript.Echo "mail " & iDObj.mail

Else

i = 0

WScript.Echo iDObj.Class & ": " & iDObj.name

WScript.Echo "... contains ..."

For Each o In iDObj

WScript.Echo o.Class & ": " & o.name

i=i+1

If (i>10) Then

WScript.Echo "etc..."

Exit For

End If

Next

End If

This bring me back information but what I really need is just part of this program in auoit so that I can make sure that the connection is successful to test the User Id and Password for authentication before continue on with my script.

Can anyone help?

[jtrout]

CODE

Dim $cn ; as ADOB.Connection

Dim $iDobj ; as IADs

Dim $o ; as object

Dim $strSvr ; as string

Dim $strLDAP ; as string

Dim $strCred ; as string

dim $strUser ; as string

dim $strPW ; as string

Dim $strSearch ; as string

Dim $i ; as integer

Dim $iSecurity ; as integer

Const $ADS_CLEARTEXT = "0"

Const $ADS_SECURE_AUTHENTICATION = "&h1"

Const $ADS_USE_ENCRYPTION = "&h2"

Const $ADS_USE_SSL = "&h2"

Const $ADS_READONLY_SERVER = "&h4"

Const $ADS_PROMPT_CREDENTIALS = "&h8"

Const $ADS_NO_AUTHENTICATION = "&h10"

Const $ADS_FAST_BIND = "&h20"

Const $ADS_USE_SIGNING = "&h40"

Const $ADS_USE_SEALING = "&h80"

Const $ADS_USE_DELEGATION = "&h100"

Const $ADS_SERVER_BIND = "&h200"

Const $ADS_NO_REFERRAL_CHASING = "&h400"

Const $ADS_AUTH_RESERVED = "&h80000000"

Dim $strSvrPort ; as string

Const $PORT_DEFAULT = ""

Const $PORT_CLEARTEXT = ":888"

Const $PORT_SECURE = ":999"

$strUser = InputBox("SID","Enter your Username (X123456):")

$strPW = InputBox("Password","Enter your Password:", "", "*")

$strSearch = $strUser

$strCred = "cn=" & $strUser & ",ou=ou,dc=mycompany,dc=com"

$cn = ObjGet("LDAP:")

$iSecurity = $ADS_CLEARTEXT

$strSvrPort = $PORT_CLEARTEXT

$strSvr = "myserver.mycompany.com"

$strLDAP = "LDAP://" & $strSvr & $strSvrPort & "/cn=" & $strSearch & ",ou=ou,dc=mycompany,dc=com"

$iDobj = $cn.OpenDSObject( $strLDAP, $strCred, $strPW, $iSecurity)

If @error <> 0 Then

MsgBox(0,"ERROR", "FAILED for some reason")

EndIf

If ($iDobj.Class = "inetOrgPerson") Then

; ----- Short Form -----

If $iDobj.uid = $strSearch Then

MsgBox(0,"Success","We matched and tested the password")

Else

MsgBox(0,"Error","Something is off in the weeds")

EndIf

Else

MsgBox(0,"Error","Did not establish a connection")

MsgBox(0,"Error","Something is off in the weeds")

; ----- DrillDown -----

$i = 0

MsgBox(0,"",$iDobj.Class & ": " & $iDobj.name)

MsgBox(0,"","... contains ...")

For $o In $iDobj

MsgBox(0,"",$o.Class & ": " & $o.name)

$i=$i+1

If ($i>10) Then

MsgBox(0,"","etc...")

ExitLoop

EndIf

Next

EndIf

OK. All works well when the User logs in correctly but when I messup and don't use the correct Username or Password it fails on $iDobj = $cn.OpenDSObject( $strLDAP, $strCred, $strPW, $iSecurity) which is good but I need to caputure the failure and give a message exit gracefully. Can anyone help me with that?

This is the error that is given in the output

"The requested action with this object has failed.: "

$iDobj = $cn.OpenDSObject( $strLDAP, $strCred, $strPW, 1)

$iDobj = $cn.OpenDSObject( $strLDAP, $strCred, $strPW, 1)^ ERROR

->10:58:38 AutoIT3.exe ended.rc:1

Edited June 29, 2007 by jtrout

[jtrout]

CODE

Dim $cn ; as ADOB.Connection

Dim $iDobj ; as IADs

Dim $strSvr ; as string

Dim $strLDAP ; as string

Dim $strCred ; as string

Dim $strUser ; as string

Dim $strPW ; as string

Dim $iSecurity ; as integer

Dim $strSvrPort ; as string

Const $ADS_SECURE_AUTHENTICATION = "&h1"

Const $ADS_SERVER_BIND = "&h200"

Const $PORT_CLEARTEXT = ":888"

$strUser = InputBox("SID", "Enter your Username:")

$strPW = InputBox("Password", "Enter your Password:", "", "*")

$strCred = "cn=" & $strUser & ",ou=ou,dc=mycompany,dc=com"

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

$cn = ObjGet("LDAP:")

$iSecurity = $ADS_SECURE_AUTHENTICATION + $ADS_SERVER_BIND

$strSvrPort = $PORT_CLEARTEXT

$strSvr = "server.mycompany.com"

$strLDAP = "LDAP://" & $strSvr & $strSvrPort & "/cn=" & $strUser & ",ou=ou,dc=mycompany,dc=com"

$iDobj = $cn.OpenDSObject ($strLDAP, $strCred, $strPW, $iSecurity)

If @error = 1 Then

MsgBox(0, "ERROR", "Invalid Username/Password.")

Exit

EndIf

Func MyErrFunc()

$HexNumber=hex($oMyError.number,8)

;~ Msgbox(0,"","We intercepted a COM Error !" & @CRLF & _

;~ "Number is: " & $HexNumber & @CRLF & _

;~ "Windescription is: " & $oMyError.windescription )

SetError(1) ; something to check for when this function returns

Endfunc

Final version works after adding custom error handler.