How i arrange the login project of at startup their is ay code On 2/6/09, Harika medikonda <[email protected]> wrote: > 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 >
-- sushant
