Scripting

You can do this with active setup.

Another trick I found with some software you can put the same key under HKLM and it will the work for all users, this you need to test.  Windows 7 when it reads the hives most programs combine the keyset settings that are under both HKLM and HKCU that are for that software.

Are there multiple keys (SID's) listed in "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\SessionDefaultDevices\" for each user or is there just one?

If the other scenarios do not work for you, you can use a script like this to manipulate the registry information in the keys you have described.  Basically, we look at the original registry path you gave (HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\SessionDefaultDevices\) and enumerate all of its subkeys.  From there, we look through each of the subkeys for a value named "Device" that we can copy.  If the value is found, the equivalent value is created under the second path you gave (HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\) thus creating the desired results.  Let me know if you have any questions or run into any issues.

Option Explicit
On Error Resume Next
Const HKCU = &H80000001
Dim strComputer, objReg, strOrigPath, strNewPath, arrKeys, strKey, strPrinter

strComputer = "."
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
 strComputer & "\root\default:StdRegProv")
strOrigPath = "Software\Microsoft\Windows NT\CurrentVersion\Windows\SessionDefaultDevices"
strNewPath = "Software\Microsoft\Windows NT\CurrentVersion\Windows"

objReg.EnumKey HKCU, strOrigPath, arrKeys
For Each strKey In arrKeys
    objReg.GetStringValue HKCU, strOrigPath & "\" & strKey, "Device", strPrinter
    If strPrinter <> vbNull Then
     objReg.SetStringValue HKCU, strNewPath, "Device", strPrinter
    End If
Next

Set strComputer = Nothing
Set objReg = Nothing
Set strOrigPath = Nothing
Set strNewPath = Nothing
Set arrKeys = Nothing
Set strKey = Nothing
Set strPrinter = Nothing

There is another value under the second path named "UserSelectedDefault", so if that is necessary, you can add a "objReg.SetDWORDValue" line under the existing "objReg.SetStringValue" line for the "Device" value, and set the value to 1 like this:

objReg.SetDWORDValue HKCU, strNewPath, "UserSelectedDefault", 1

M P

Thanks for the script, this appears to work as required. Just need to incorporate it into a GPO for the terminal server users.

Many thanks