Check the below simple script that produces a CSV with that information to list all home directories:
Code:
Dim rootDSE, domainObject
Set rootDSE = GetObject("LDAP://RootDSE")
domainContainer = rootDSE.Get("defaultNamingContext")
Set domainObject = GetObject("LDAP://" & domainContainer)
Set fs = CreateObject ("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile (".\HomeDirs.txt")
const crlf="<BR>"
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 500
objExplorer.Height = 300
objExplorer.Left = 100
objExplorer.Top = 100
Do While (objExplorer.Busy)
Wscript.Sleep 200
Loop
objExplorer.Visible = 1
txtOutput=""
If Right(strNewPath, 1) <> "\" then
strNewPath = strNewPath & "\"
End If
strSearchContext = UCase(strSearchContext)
outFile.WriteLine "User Name,Home Directory"
exportUsers(domainObject)
Set oDomain = Nothing
showText("FINISHED!!")
WScript.Quit
Sub ExportUsers(oObject)
Dim oUser
For Each oUser in oObject
Select Case oUser.Class
Case "user"
outfile.WriteLine oUser.sAMaccountName & "," & oUser.homeDirectory
Case "organizationalUnit" , "container"
ExportUsers(oUser)
End select
Next
End Sub
Sub ShowText(txtInput)
txtOutput = "Get Home Directory Path" & crlf
txtOutput = txtOutput & "=======================" & crlf & crlf
txtOutput = txtOutput & "Working on: " & txtInput
objExplorer.Document.Body.InnerHTML = txtOutput
End Sub
Bookmarks