Jump to content

LDAP query


Recommended Posts

Hi,

i dont get this VBS Script converted to an AutoIt Script

serverName = "dc1.xxxx.xx"
baseStr = "dc=xxxxx,dc=xx"
filterStr = "(&(&(objectclass=user)(sn=Test*)))"

Set ado = CreateObject("ADODB.Connection")
ado.Provider = "ADSDSOObject"                        
ado.Properties("User ID") = "xxx@xxxxx.xx"       
ado.Properties("Password") = "xxxxxxxxx"
ado.Properties("Encrypt Password") = True
ado.Open "ADS-Search"                                 

Set adoCmd = CreateObject("ADODB.Command")           
adoCmd.ActiveConnection = ado                          
adoCmd.Properties("Page Size") = 99                   
adoCmd.Properties("Cache Results") = True
adoCmd.CommandText = "<LDAP://" & serverName & "/" & baseStr & ">;" & filterStr & ";ADsPath;subtree" 

Set objectList = adoCmd.Execute                       


While Not objectList.EOF
    Set user = GetObject(objectList.Fields("ADsPath"))  

    WScript.Echo user.displayName                      

    objectList.MoveNext                              
Wend

I tried that way.. but i dont get it to work :

Global $objConnection = ObjCreate("ADODB.Connection") ; Create COM object to AD
$objConnection.ConnectionString = "Provider=ADsDSOObject"
$objConnection.Open ("Active Directory Provider") ; Open connection to AD

Global $objRootDSE = ObjGet("LDAP://RootDSE")
Global $strDNSDomain = $objRootDSE.Get ("defaultNamingContext")
Global $strHostServer = $objRootDSE.Get ("dnsHostName")
Global $strConfiguration = $objRootDSE.Get ("ConfigurationNamingContext") 

$strQuery = "<LDAP://" & $strHostServer & "/" & $strDNSDomain & ">;(LastName=Test*" & ");ADsPath;subtree"
$objList = $objConnection.Execute ($strQuery) 
While Not $objList.EOF
    $oObject = ObjGet($objList.ADsPath)
    $result = $oObject.sAMAccountName
    MsgBox(0, "title", $result & "")
WEnd
Link to comment
Share on other sites

@root

This seems to be running fine with me.

$serverName = "SERVER"
$baseStr = "dc=Domain,dc=COM"
$filterStr = "(&(objectclass=user))"

 $ado = ObjCreate("ADODB.Connection")
$ado.Provider = "ADSDSOObject"                         
$ado.Properties("User ID") = "xxx@xxxxx.xx"        
$ado.Properties("Password") = "xxxxxxxxx"
$ado.Properties("Encrypt Password") = 1
$ado.Open ("ADS-Search" )

 $adoCmd = ObjCreate("ADODB.Command")             
$adoCmd.ActiveConnection = $ado                           
$adoCmd.Properties("Page Size") = 99                      
$adoCmd.Properties("Cache Results") = 1
$adoCmd.CommandText = "<LDAP://" & $serverName & "/" & $baseStr & ">;" & $filterStr & ";ADsPath;subtree" 

 $objectList = $adoCmd.Execute                          


While Not $objectList.EOF()
     $user = ObjGet($objectList.Fields("ADsPath").value)  
    If $user.displayName <> "" Then
    ConsoleWrite ($user.displayName & @CRLF)
    EndIf
    $objectList.MoveNext ()
Wend
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...