Hi Bob,
You can query Adsi.. refer to below VB Script.
On Error Resume Next
Dim fso
Const ForReading = 1, ForWriting = 2 , forAppend = 8
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("Members.txt", forAppend, True)
' Determine DNS domain name.
Set objRootDSE = GetObject("LDAP://RootDSE <ldap://RootDSE/>")
strDNSDomain = objRootDSE.Get("defaultNamingContext")
' Use ADO to search Active Directory.
Set objCommand = CreateObject("ADODB.Command")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
objCommand.ActiveConnection = objConnection
strBase = "<LDAP://" & strDNSDomain & ">"
' Filter on all user objects.
strFilter = "(&(objectCategory=person)(objectClass=user))"
' Specify attribute values to retrieve.
strAttributes =
"cn,distinguishedName,sAMAccountName,description,homeDirectory,
mailnickName,mail,EmployeeNumber"
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
objCommand.CommandText = strQuery
objCommand.Properties("Page Size") = 100
objCommand.Properties("Timeout") = 30
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute
Do Until objRecordSet.EOF
strFullName = objRecordSet.Fields("cn")
strDN = objRecordSet.Fields("distinguishedName")
strNTName = objRecordSet.Fields("sAMAccountName")
strAlias = objRecordSet.Fields("mailnickName")
strmail = objRecordSet.Fields("mail")
strId= objRecordSet.Fields("EmployeeNumber")
strHomeDir = objRecordSet.Fields("homeDirectory")
If IsNull(strHomeDir) Then
strHomeDir = "None"
Else
strHomeDir = strHomeDir
End If
f.writeline strFullName & vbtab & strDN & vbtab & strNTName & vbtab &
strHomeDir & vbtab & strAlias & vbtab & strmail & vbtab & strID
objRecordSet.MoveNext
Loop
MsgBox "Done"
try this and let me know..
On Fri, Feb 6, 2009 at 8:46 AM, bob <[email protected]> wrote:
>
> hello!
>
> if i know the username in ActiveDirectory,
> how to get the distinguishedName ?
>
> thanks!
>
--
Thanks & Regards
Harika
http://harikaworks.blogspot.com
