How I can translate GetObject("LDAP://RootDSE") in (x)harbour code.
Thanks in advance
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour VBS GetObject("LDAP://RootDSE")
Biel,
Here you have a C++ sample that may help:
http://support.microsoft.com/kb/255042/es
Here you have a C++ sample that may help:
http://support.microsoft.com/kb/255042/es
hr = ADsGetObject(TEXT("LDAP://rootDSE"),
IID_IADs,
(void**)&pRoot);Thanks Antonio, I will take a look.
Did you get this to work? I am trying to get this to work also.
Hi Biel,
Connection example:
Example of oRS...
But u need know a few things. For example, if u need a lot of registers, more than 1000, u need to change page size property, or for example if u want only one level of information or all structure...
if u need more, don't doubt
Connection example:
#include 'fivewin.ch'
#include "ado.ch"
#include "xBrowse.ch"
STATIC oLdap
*---------------------
FUNCTION ConectaLDAP()
*---------------------
LOCAL lOk := .F.
LOCAL oError
TRY
oLdap := TOleAuto():new("ADODB.Connection")
oLdap:Provider := 'ADsDSOObject'
oLdap:Open( "Active Directory Provider" )
lOk := .T.
CATCH oError
ShowError( oError )
END
RETU lOkExample of oRS...
...
TRY
cString := "SELECT " + ;
" displayName," + ;
" distinguishedName," + ;
" mail," + ;
" telephoneNumber," + ;
" mobile," + ;
" facsimileTelephoneNumber," + ;
" otherTelephone," + ;
" department," + ;
" sAMAccountname"
cFrom := " FROM 'LDAP://teudomini'"
cWhere := " WHERE objectCategory = 'person' AND" + ;
" objectClass = 'user' "
oRs := TOleAuto():new("ADODB.RecordSet")
oRs:ActiveConnection := oLDap
oRs:Open( cString + cFrom + cWhere, oLDap , 1, 3 )
xBrowse( oRs )
oRs:Close()
CATCH oError
xBrowse( oError )
END
...But u need know a few things. For example, if u need a lot of registers, more than 1000, u need to change page size property, or for example if u want only one level of information or all structure...
...
oCmd := TOleAuto():new("ADODB.Command")
oCmd:ActiveConnection := oLdap
oCmd:CommandText := cString + cFrom + cWhere
oProp := oCmd:Properties( 'SearchScope' )
oProp:value := ADS_SCOPE_SUBTREE
oProp := oCmd:Properties( 'Page size' )
oProp:value := 2000
...if u need more, don't doubt
Salutacions, saludos, regards
"...programar es fácil, hacer programas es difícil..."
UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
"...programar es fácil, hacer programas es difícil..."
UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Srs.
Gostaria de converter esta função em VbScript para xHarbour, a minha necessidade é validar o usuário pelo Active Directory
Function AuthenticateUser(ByVal strUser, ByVal strPW)
Const ADS_SECURE_AUTHENTICATION = 1
Const ADS_SERVER_BIND = 512
strPath = "LDAP://RootDSE"
Set LDAP = GetObject(strPath)
Set strAuth = LDAP.OpenDSObject(strPath, strUser, strPW, ADS_SECURE_AUTHENTICATION Or ADS_SERVER_BIND)
If Err.Number <> 0 Then
boolAuth = False
Else
boolAuth = True
End If
AuthenticateUser = boolAuth
End Function
Agradeço a ajuda
Att
João Bosco
João, veja se te ajuda:
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=26995&p=150642&hilit=Authenticated#p150642
abs.
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=26995&p=150642&hilit=Authenticated#p150642
abs.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Karinha
Obrigado pela resposta já havia baixado este código, mas não consigo validar a senha por ele.
Att
João Bosco