2LL
asked on
Script Get User's Home folder and Terminal Services Profile
I am looking for the script that list users home folder and terminal service home directory within OU. I found the following script on this forum, but everytime I ran it, it does not show any record at all eventhougt it does not have any error. Someone please help me out with this.
On Error Resume Next
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connec tion")
Set objCommand = CreateObject("ADODB.Comman d")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnectio n = objConnection
Set objFSO = CreateObject("Scripting.Fi leSystemOb ject")
Set objTextFile = objFSO.OpenTextFile("c:\OU Userlist.t xt", 8, True)
objCommand.Properties("Pag e Size") = 1000
objCommand.Properties("Sea rchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
"SELECT Name,homedirectory,Profile Path FROM 'LDAP://OU=PENDING DELETION,DC=ftsad,DC=com' WHERE objectCategory='user'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
ObjTextfile.WriteLine(Date )
Objtextfile.WriteBlankLine s(2)
Do Until objRecordSet.EOF
ObjTextFile.writeline objRecordSet.Fields("Name" ).Value & vbTab & objRecordSet.Fields("homed irectory") .Value & vbTab & objRecordSet.Fields("Termi nalService sProfilePa th").Value
objRecordSet.MoveNext
Loop
Objtextfile.WriteBlankLine s(2)
ObjTextfile.WriteLine("Tot al Records found:" & objRecordset.RecordCount)
Objtextfile.WriteBlankLine s(2)
ObjTextFile.close
Thank you in advance.
On Error Resume Next
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connec
Set objCommand = CreateObject("ADODB.Comman
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnectio
Set objFSO = CreateObject("Scripting.Fi
Set objTextFile = objFSO.OpenTextFile("c:\OU
objCommand.Properties("Pag
objCommand.Properties("Sea
objCommand.CommandText = _
"SELECT Name,homedirectory,Profile
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
ObjTextfile.WriteLine(Date
Objtextfile.WriteBlankLine
Do Until objRecordSet.EOF
ObjTextFile.writeline objRecordSet.Fields("Name"
objRecordSet.MoveNext
Loop
Objtextfile.WriteBlankLine
ObjTextfile.WriteLine("Tot
Objtextfile.WriteBlankLine
ObjTextFile.close
Thank you in advance.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Ok, change objUser.TerminalServicesPr ofilePath to objUser.TerminalServicesHo meDirector y.
ASKER
Thanks. It's worked.
ASKER