Solved

Export AD usernames and login scripts used

Posted on 2007-11-16
2
1,806 Views
Last Modified: 2012-06-27
Greetings!

I'm not sure if this is even possible but here goes.

I'm wanting to export ALL user names from our AD and the login script each user uses.  I'm trying to organize and determine which scripts are being utilized and which need to be deleted.  This is a 2003 sever environment.  If I can provide any additional information please let me know!
0
Comment
Question by:WVCA
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 48

Expert Comment

by:Jay_Jay70
ID: 20298137
the DSTools should show you what you need.....i used it to similarly display profiles

http://www.robvanderwoude.com/adshelp/adshelp.html
0
 
LVL 7

Accepted Solution

by:
carcenea earned 500 total points
ID: 20298793
Here is the code a a VBscript that will do what you want. All you should have to is change "dc=domain,dc=com" to "dc=yourdomain,dc=com". It will export all user's info into a textfile - userinfo.txt. There are a few extra fields as I've used this in the past for my own means.

Hope this helps!

Oh, and if you're not familiar with vbscript just put this code in a textfile and save the textfile with a .vbs for the extension.
' ListUsersOU.vbs
' Pulls specific info from each user in the domain and puts the info in a txtfile
' Author Chris 
' Created 10/31/2007
 
'Global variables
    Dim oContainer
    Dim OutPutFile
    Dim FileSystem
    Dim MyDate
'Set Date so that txt file can be unique
MyDate = Date()
MyDate = Replace(MyDate, "/", "-")
'Initialize global variables
    Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
    Set OutPutFile = FileSystem.CreateTextFile("UserInfo" & MyDate & ".txt", True)
    Set oContainer = GetObject("LDAP://dc=domain,dc=com")
oContainer.Filter = Array("organizationalUnit")
strList = ""
'Enumerate Container
    EnumerateUsers oContainer
'Clean up
    OutPutFile.Close
    Set FileSystem = Nothing
    Set oContainer = Nothing
    Set MyDate = Nothing
    'The line below is for testing purposes only.
    'WScript.Echo "Finished"
    WScript.Quit(0)
Sub EnumerateUsers(oCont)
    Dim oUser
    For Each oUser In oCont
        On Error Resume Next
        Select Case LCase(oUser.Class)
               Case "user"
                    If Not IsEmpty(oUser.distinguishedName) Then
                       OutPutFile.WriteLine "DisplayName: " & oUser.displayName
                       OutPutFile.WriteLine "Logon Name: " & oUser.sAMAccountName
                       OutPutFile.WriteLine "Phone Number: " & oUser.telephoneNumber
                       OutPutFile.WriteLine "Office: " & oUser.physicalDeliveryOfficeName
                       OutPutFile.WriteLine "Description: " & oUser.description
                       OutPutFile.WriteLine "Login Script: " & oUser.scriptPath
                       OutPutFile.WriteLine
                    End If
               Case "organizationalunit", "container"
               EnumerateUsers oUser
        End Select
    Next
End Sub

Open in new window

0

Featured Post

Visualize your virtual and backup environments

Create well-organized and polished visualizations of your virtual and backup environments when planning VMware vSphere, Microsoft Hyper-V or Veeam deployments. It helps you to gain better visibility and valuable business insights.

Question has a verified solution.

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

While rebooting windows server 2003 server , it's showing "active directory rebuilding indices please wait" at startup. It took a little while for this process to complete and once we logged on not all the services were started so another reboot is …
This article demonstrates probably the easiest way to configure domain-wide tier isolation within Active Directory. If you do not know tier isolation read https://technet.microsoft.com/en-us/windows-server-docs/security/securing-privileged-access/s…
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.
This video shows how to use Hyena, from SystemTools Software, to update 100 user accounts from an external text file. View in 1080p for best video quality.

734 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