Active Directory Query

[Ghost21 0]

When I do something like this

Const $ADS_NAME_INITTYPE_GC = 3

Const $ADS_NAME_TYPE_NT4 = 3

Const $ADS_NAME_TYPE_1779 = 1

If @error Then Exit

$oMyError = ObjEvent("AutoIt.Error", "ComError")

$objRootDSE = ObjGet("LDAP://RootDSE")

If @error Then

Else

$objTrans = ObjCreate("NameTranslate")

$objTrans.Init($ADS_NAME_INITTYPE_GC, "")

$objTrans.Set($ADS_NAME_TYPE_1779, @LogonDomain)

$objTrans.Set($ADS_NAME_TYPE_NT4, @LogonDomain & "\" & $User)

$strUserDN = $objTrans.Get($ADS_NAME_TYPE_1779)

$UserObj = ObjGet("LDAP://" & $strUserDN)

I keep getting a error message show up

The requested action with this object has failed.:

$objTrans.Set($ADS_NAME_TYPE_1779, @LogonDomain)

$objTrans.Set($ADS_NAME_TYPE_1779, @LogonDomain)^ ERROR

I have put in error trapping but it still seems to quit ....

Is it a networking issue ?

[PsaltyDS 29]

RFC 1779 names look like "dc=MySubDomain,dc=MyDomain,dc=com", and I don't think that's what you get from @LogonDomain (it gives you the NetBIOS name). If you're going to use that, use $ADS_NAME_TYPE_NT4 for the type.

Edited May 12, 2010 by PsaltyDS

[water 1,900]

When I do something like this

Const $ADS_NAME_INITTYPE_GC = 3
Const $ADS_NAME_TYPE_NT4 = 3
Const $ADS_NAME_TYPE_1779 = 1
If @error Then Exit
$oMyError = ObjEvent("AutoIt.Error", "ComError")
$objRootDSE = ObjGet("LDAP://RootDSE")
If @error Then
 Else
    $objTrans = ObjCreate("NameTranslate")
    $objTrans.Init($ADS_NAME_INITTYPE_GC, "")
    $objTrans.Set($ADS_NAME_TYPE_1779, @LogonDomain)
    $objTrans.Set($ADS_NAME_TYPE_NT4, @LogonDomain & "\" & $User)
    $strUserDN = $objTrans.Get($ADS_NAME_TYPE_1779)
    $UserObj = ObjGet("LDAP://" & $strUserDN)

I keep getting a error message ...

What are you trying to do? You know there is an Active Directory UDF available? For download please see my signature. If there is a function missing I will be glad to incorporate it into the UDF. Edited May 13, 2010 by water