In my last blog I posted about finding the Remote Desktop Home Folders. Best now post how to change them …<\/p>\n
Function Set-RDUserSetting {\r\n[cmdletbinding(SupportsShouldProcess)]\r\n\r\nParam(\r\n[Parameter(Position=0,Mandatory,HelpMessage=\"Enter a user's sAMAccountName\",\r\nValueFromPipeline,ParameterSetName=\"SAM\")]\r\n[ValidateNotNullorEmpty()]\r\n[Alias(\"Name\")]\r\n[string]$SAMAccountname,\r\n[Parameter(ParameterSetName=\"SAM\")]\r\n[string]$SearchRoot,\r\n\r\n[Parameter(Mandatory,HelpMessage=\"Enter a user's distingished name\",\r\nValueFromPipelineByPropertyName,ParameterSetName=\"DN\")]\r\n[ValidateNotNullorEmpty()]\r\n[Alias(\"DN\")]\r\n[string]$DistinguishedName,\r\n\r\n[boolean]$AllowLogon,\r\n[Alias(\"Profile\")]\r\n[string]$TerminalServicesProfilePath,\r\n[Alias(\"HomeDirectory\")]\r\n[string]$TerminalServicesHomeDirectory,\r\n[Alias(\"HomeDrive\")]\r\n[string]$TerminalServicesHomeDrive,\r\n\r\n[string]$Server,\r\n\r\n[switch]$Passthru\r\n)\r\n\r\nBegin {\r\nWrite-Verbose \"Starting $($MyInvocation.MyCommand)\"\r\nWrite-Verbose ($PSBoundParameters | out-string)\r\n#remote desktop properties\r\n$TSSettings = @(\"TerminalServicesProfilePath\",\"TerminalServicesHomeDirectory\",\"TerminalServicesHomeDrive\")\r\n} #Begin\r\n\r\nProcess {\r\n\r\nWrite-Verbose \"Using parameter set $($PSCmdlet.ParameterSetName)\"\r\nSwitch ($PSCmdlet.ParameterSetName) {\r\n\r\n\"SAM\" {\r\nWrite-Verbose \"Retrieving distinguishedname for $samAccountname\"\r\n$searcher = New-Object DirectoryServices.DirectorySearcher\r\n$searcher.Filter = \"(&(objectcategory=person)(objectclass=user)(samAccountname=$sAMAccountname))\"\r\nWrite-Verbose $searcher.filter\r\nif ($SearchRoot) {\r\nWrite-Verbose \"Searching from $SearchRoot\"\r\nif ($Server) {\r\n$searchPath = \"LDAP:\/\/$server\/$SearchRoot\"\r\n}\r\nelse {\r\n$searchPath = \"LDAP:\/\/$SearchRoot\"\r\n}\r\n$r = New-Object System.DirectoryServices.DirectoryEntry $SearchPath\r\n\r\n$searcher.SearchRoot = $r\r\n}\r\n$user = $searcher.FindOne().GetDirectoryEntry()\r\n}\r\n\"DN\" {\r\nWrite-Verbose \"Processing $DistinguishedName\"\r\nif ($server) {\r\nWrite-Verbose \"Connecting to $Server\"\r\n[ADSI]$User = \"LDAP:\/\/$Server\/$DistinguishedName\"\r\n}\r\nelse {\r\n[ADSI]$User = \"LDAP:\/\/$DistinguishedName\"\r\n}\r\n}\r\n} #close Switch\r\n\r\nif ($user.path) {\r\nif ($PSBoundParameters.ContainsKey(\"AllowLogon\")) {\r\nWrite-Verbose \"Configuring AllowLogon\"\r\n$user.psbase.invokeSet(\"AllowLogon\",$AllowLogon -as [int])\r\n}\r\nforeach ($property in $TSSettings) {\r\nif ($PSBoundParameters.ContainsKey($property)) {\r\nWrite-Verbose \"Setting $property = $($PSBoundParameters[$property])\"\r\n$user.psbase.invokeSet($property,$PSBoundParameters[$property])\r\n}\r\n}\r\n#commit changes\r\nif ($PSCmdlet.ShouldProcess($DistinguishedName)){\r\n$user.setInfo()\r\n} #Whatif\r\n\r\nif ($Passthru) {\r\n$hash=[ordered]@{\r\nDistinguishedName = $User.DistinguishedName.Value\r\nName = $user.name.Value\r\nsamAccountName = $user.samAccountName.value\r\nAllowLogon = $user.psbase.InvokeGet(\"AllowLogon\") -as [Boolean]\r\n}\r\n\r\nforeach ($property in $TSSettings) {\r\n$hash.Add($property,$user.psbase.InvokeGet($property))\r\n\r\n} #foreach\r\n\r\n#create an object\r\nNew-Object -TypeName PSObject -Property $hash\r\n}\r\n} #if user found\r\nelse {\r\nWrite-Warning \"Failed to find user $DistinguishedName\"\r\n}\r\n\r\n} #Process\r\n\r\nEnd {\r\nWrite-Verbose \"Ending $($MyInvocation.MyCommand)\"\r\n} #End\r\n\r\n} #end function<\/pre>\n","protected":false},"excerpt":{"rendered":"In my last blog I posted about finding the Remote Desktop Home Folders. Best now post how to change them … Function Set-RDUserSetting { [cmdletbinding(SupportsShouldProcess)] Param( [Parameter(Position=0,Mandatory,HelpMessage=”Enter a user’s sAMAccountName”, ValueFromPipeline,ParameterSetName=”SAM”)] [ValidateNotNullorEmpty()] [Alias(“Name”)] [string]$SAMAccountname, [Parameter(ParameterSetName=”SAM”)] [string]$SearchRoot, [Parameter(Mandatory,HelpMessage=”Enter a user’s distingished name”, ValueFromPipelineByPropertyName,ParameterSetName=”DN”)] [ValidateNotNullorEmpty()] [Alias(“DN”)] [string]$DistinguishedName, [boolean]$AllowLogon, [Alias(“Profile”)] [string]$TerminalServicesProfilePath, [Alias(“HomeDirectory”)] [string]$TerminalServicesHomeDirectory, [Alias(“HomeDrive”)] [string]$TerminalServicesHomeDrive, [string]$Server, [switch]$Passthru ) … <\/p>\n