Solved

Full names in a txt file. Need to query the full names and get the Ntlogin's from ADS.

Posted on 2008-09-29
8
184 Views
Last Modified: 2010-03-17
Hi,

Full names in a txt file. Need to query the full names and get the Ntlogin's from ADS.
Is there a script that can query each full name in the txt file and get the NTlogin to another file.

Reards
Sharath
0
Comment
Question by:bsharath
  • 5
  • 2
8 Comments
 
LVL 18

Expert Comment

by:Americom
ID: 22599013
What exactly are you trying to do? What "Ntlogin's" are you referring to?
0
 
LVL 65

Accepted Solution

by:
RobSampson earned 500 total points
ID: 22601204
Sharath, this should do it.  I've built in ability to account for a display name possibly having more than one NT Login.

Regards,

Rob.
On Error Resume Next
 

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 
 

Set objRootDSE = GetObject("LDAP://RootDSE")

strDomain = objRootDSE.Get("defaultNamingContext")
 

Set objFSO = CreateObject("Scripting.FileSystemObject")

Const intForReading = 1

Set objFile = objFSO.OpenTextFile("FullNames.txt", intForReading, False)

strResults = """Full Name"",""NT Logins"""

While Not objFile.AtEndOfStream

	strFullName = objFile.ReadLine

	objCommand.CommandText = _

	    "SELECT samAccountName FROM 'LDAP://" & strDomain & "' WHERE objectCategory='user' " & _

	        "AND displayName='" & strFullName & "'"

	Set objRecordSet = objCommand.Execute	

	strNTLogins = ""

	If Not objRecordSet.EOF Then

		objRecordSet.MoveFirst

		Do Until objRecordSet.EOF

		    If strNTLogins = "" Then

		    	strNTLogins = objRecordSet.Fields("samAccountName").Value

		    Else

		    	strNTLogins = strNTLogins & "," & objRecordSet.Fields("samAccountName").Value

		    End If

		    objRecordSet.MoveNext

		Loop

	End If

	strResults = """" & strFullName & """,""" & strNTLogins & """"

	objRecordSet.Close

Wend

objFile.Close
 

Set objOutputFile = objFSO.CreateTextFile("Results.csv", True)

objOutputFile.Write strResults

objOutputFile.Close
 

MsgBox "Done. Please see Results.csv"

Open in new window

0
 
LVL 11

Author Comment

by:bsharath
ID: 22602389
Thank u Rob.. Worked perfect...

Any help with this
http://www.experts-exchange.com/Programming/Languages/Scripting/Q_23768338.html
0
 
LVL 11

Author Comment

by:bsharath
ID: 22602538
Rob in this script is there any restriction. As i get just results to 1 user.

Can you please check. If not found then has to be logged in the csv
0
Does Powershell have you tied up in knots?

Managing Active Directory does not always have to be complicated.  If you are spending more time trying instead of doing, then it's time to look at something else. For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why

 
LVL 11

Author Comment

by:bsharath
ID: 22602539
Rob in this script is there any restriction. As i get just results to 1 user.

Can you please check. If not found then has to be logged in the csv
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 22602771
Oh yeah, this line:
      strResults = """" & strFullName & """,""" & strNTLogins & """"


should be this
      strResults = strResults & vbCrLf & """" & strFullName & """,""" & strNTLogins & """"


Regards,

Rob.
0
 
LVL 11

Author Comment

by:bsharath
ID: 22602824
Thank U Rob works fine...
Any help with other posts...
0
 
LVL 11

Author Comment

by:bsharath
ID: 22602825
Thank U Rob works fine...
Any help with other posts...
0

Featured Post

Are your AD admin tools letting you down?

Managing Active Directory can get complicated.  Often, the native tools for managing AD are just not up to the task.  The largest Active Directory installations in the world have relied on one tool to manage their day-to-day administration tasks: Hyena. Start your trial today.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction You may have a need to setup a group of users to allow local administrative access on workstations.  In a domain environment this can easily be achieved with Restricted Groups and Group Policies. This article will demonstrate how to…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Learn the basics of while and for loops in Python.  while loops are used for testing while, or until, a condition is met: The structure of a while loop is as follows:     while <condition>:         do something         repeate: The break statement m…
The viewer will learn how to create and use a small PHP class to apply a watermark to an image. This video shows the viewer the setup for the PHP watermark as well as important coding language. Continue to Part 2 to learn the core code used in creat…

948 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now