Not sure if this will do what you're wanting to do or not, but you can modify which settings you want to modify on your Terminal Servers using this as a remote Admin Script.
Code:
Break On
Dim $SO,$System,$Systems
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$Systems = 'TSERVER01','TSERVER02','TSERVER03','TSERVER04'
For each $System in $Systems
ResetTerminalServerSettings($System)
Next
Function ResetTerminalServerSettings(optional $System)
Dim $Key,$SetfInheritResetBroken,$SetfInheritMaxSessionTime,$SetfInheritMaxDisconnectionTime,
$SetfInheritMaxIdleTime,$SetfResetBroken,$SetMaxDisconnectionTime,$SetMaxIdleTime,
$SetMaxConnectionTime,$Remote
$Remote = Join(Split($System, '\'), '', 3)
$Remote = IIf($Remote <> '', '\\' + $Remote + '\', $Remote)
$Key = 'HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp'
$SetfInheritResetBroken = WriteValue($Remote + $Key,'fInheritResetBroken',0,'REG_DWORD')
$SetfInheritMaxSessionTime = WriteValue($Remote + $Key,'fInheritMaxSessionTime',0,'REG_DWORD')
$SetfInheritMaxDisconnectionTime = WriteValue($Remote + $Key,'fInheritMaxDisconnectionTime',0,'REG_DWORD')
$SetfInheritMaxIdleTime = WriteValue($Remote + $Key,'fInheritMaxIdleTime',0,'REG_DWORD')
$SetfResetBroken = WriteValue($Remote + $Key,'fResetBroken',1,'REG_DWORD')
$SetMaxConnectionTime = WriteValue($Remote + $Key,'MaxConnectionTime',0,'REG_DWORD')
$SetMaxDisconnectionTime = WriteValue($Remote + $Key,'MaxDisconnectionTime',60000,'REG_DWORD')
$SetMaxIdleTime = WriteValue($Remote + $Key,'MaxIdleTime',1800000,'REG_DWORD')
EndFunction