Hej

Taka sytuacja - mam 1000 userow w arkuszu excela (imie i nazwisko)

Jak przekazac tez parametr do zapytania LDAP zeby znalesc OU usera?

Napisalem cos takiego:

On Error Resume Next

strFileName = "c:\pwdne.xls"

If objFSO.FileExists(strFileName) Then
Set objExcel = CreateObject("Excel.Application")
Set myBook = objExcel.Workbooks.Open(strFileName)
end if

RowY = 1

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = _
"SELECT distinguishedName FROM 'LDAP://dc=fabrikam,dc=com' WHERE objectCategory='user' " & _
"AND sAMAccountName=objExcel.cells(RowY,1)"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
objExcel.cells(RoyY,2) = objRecordSet.Fields("distinguishedName").Value
objRecordSet.MoveNext
RowY = RowY + 1
Loop

Ale wydaje mi sie, że źle przekazuje parametry do query.

Wiecie może jak to ugryśc?

Panoramix