Terminal Server Profile Path Woes

During a migration process I came accross this odd problem.
I could not change a Terminal Server Profile Path for a couple of hundred users.

I searched the microsoft site but I could not find anything that would help me quick.
Yes I did find this link http://technet.microsoft.com/en-us/library/cc783578.aspx

But my client did not have grouppolicies in place and I did not want to use the "Terminal Services Extension"

I found several partly usefull scripts I combined the best of them in the script below. I really hope you will find this usefull.


'******************************************************************************
Const ADS_SCOPE_SUBTREE = 2
Const ForAppending = 8

On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("c:\myusers.txt", ForAppending, True)

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCOmmand.ActiveConnection = objConnection
'Change the below LDAP query to select the users in your correct OU
objCommand.CommandText = "Select sAMAccountName,name from 'LDAP://OU=Users,OU=_GlobalResources,OU=e178,DC=emea,DC=corpdir,DC=net' " & "Where objectClass='user'"

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
objTextFile.WriteLine(objRecordSet.Fields("sAMAccountName").Value)
objRecordSet.MoveNext
Loop

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("c:\myusers.txt", 1, True)
Set objTextFile2 = objFSO.OpenTextFile("c:\myresults.txt", 8, True)

Dim arrUsers()
i = 0

Do Until objTextFile.AtEndOfStream
Redim Preserve arrUsers(i)
arrUsers(i) = objTextFile.ReadLine
i = i + 1
Loop

objTextFile.Close

For Each myUser in arrUsers

'in de my user file staan samAccounts hiermee kan je ldap niet bevragen dit zou via ado moeten.
'er is echter een methode om een samAccount om te zetten in een DN.

Dim objUser

Const ADS_NAME_INITTYPE_GC = 3
Const ADS_NAME_TYPE_NT4 = 3
Const ADS_NAME_TYPE_1779 = 1

strNetBIOSDomain = "your_netbios_domain_name" ' <-- change this
strNTName = myUser

Set objTrans = CreateObject("NameTranslate")
objTrans.Init ADS_NAME_INITTYPE_GC, ""
objTrans.Set ADS_NAME_TYPE_NT4, strNetBIOSDomain & "\" & strNTName
strUserDN = objTrans.Get(ADS_NAME_TYPE_1779)
strUserDN = Replace(strUserDN, "/", "\/")

Set objUser = GetObject("LDAP://" & strUserDN)

strTSPath = objUser.TerminalServicesProfilePath
strOudeServer = "old_server_name" '<-- change this
strNieuweServer = "new_server_name" '<-- change this

strTSPath_new = Replace(strTSPath,strOudeServer,strNieuweServer)

If Mid(strTSPath,3,8) = strOudeServer Then

'Display some logging
objTextFile2.WriteLine(myUser)
objTextFile2.WriteLine("Terminal Server Profile Path OLD: " & objUser.TerminalServicesProfilePath)
objTextFile2.WriteLine("Terminal Server Profile Path NEW: " & strTSPath_new)

'### The Actual change takes place here.

objUser.TerminalServicesProfilePath = strTSPath_new
objUser.setinfo

'####################################################################

End If
Next

objTextFile2.Close
'******************************************************************************

Comments

Unknown said…
please tell me how can i get and put terminal profile path and other terminal property using ldap i dont want to use teuserex interface . i want help in c++ as i dont have command on vb .




thanks

vipin
06:13
Post a Comment

Popular posts from this blog

Exchange Server Error -1018: How Microsoft IT Recovers Damaged Exchange Databases

Image
I found this paper on the showcase site from microsoft I hope it is of help to you. It sure helped me!     Technical White Paper Published: August 1, 2005 Executive Summary Error –1018 (JET_errReadVerifyFailure) is a familiar—and dreaded—error in Microsoft® Exchange Server. It indicates that an Exchange database file has been damaged by a failure or problem in the underlying file system or hardware. This paper explains the conditions that result in error –1018. It also covers the detection mechanisms that Exchange uses to discover and recover from damage to its database files. The Microsoft Information Technology group (Microsoft IT) runs one of the most extensive Exchange Server organizations in the world. Exchange administrators at Microsoft have investigated and recovered from dozens of –1018 error problems. This paper shows you how Microsoft IT monitors fo
Read more

Server and Domain Isolation Using IPsec and Group Policy

Image
Microsoft Solutions for Security and Compliance Server and Domain Isolation Using IPsec and Group Policy © 2006 Microsoft Corporation. This work is licensed under the Creative Commons Attribution-NonCommercial License. To view a copy of this license, visit http://creativecommons.org/licenses/by-nc/2.5/ or send a letter to Creative Commons, 543 Howard Street, 5th Floor, San Francisco, California, 94105, USA. Table of Contents Chapter 1: Introduction to Server and Domain Isolation. 1 Executive Summary. 1 Who Should Read This Guide. 2 The Business Challenge. 3 The Business Benefits. 3 The Technology Challenge. 4 Creating a Project Team.. 6 Guide Overview.. 7 Chapter 1: Introduction to Server and Domain Isolation. 7 Chapter 2: Understanding Server and Domain Isolation. 7 Chapter 3: Determining the Current State of Your IT Infrastructure. 7 Chapter 4: Designing and Planning Isolation Groups. 8 Chapter 5: Creating IPsec Policies for Isolation Groups.
Read more

[Solved] The Group Policy client-side extension Internet Explorer Zonemapping failed to execute

Image
I had the error below in my application eventlog.     Event Type:    Error Event Source:    Userenv Event Category:    None Event ID:    1085 Date:        30-09-2008 Time:        15:20:30 User:        NT AUTHORITY\SYSTEM Computer:    TBG-TS01 Description: The Group Policy client-side extension Internet Explorer Zonemapping failed to execute. Please look for any errors reported earlier by that extension. For more information, see Help and Support Center at http://go.microsoft.com/fwlink/events.asp .   My problem was with my site to zone assignment list I used a wildcard like this: “ *microsoft.com ” but what you need to do is this “ *.microsoft.com ” So it is safe to say that the documentation from microsoft needs some sort of an update stating that you can only use a wildcard infront of dot. Below is the microsoft explaination:   This policy setting allows you to manage a list of sites that you want to associate with a particular s
Read more