Summary
You publish Desktops and Applications with a Citrix XenApp/XenDesktop/Workspace or Microsoft Remote Desktop Services (RDS) environment on Microsoft Windows Server 2012 R2, 2016 or 2019 and restrict your users with GPO to change any display settings. But your users want to change the Session Scale, Font Size or Font Smoothing? Here is a method with PowerShell, that gives your users the flexibility back to change the desired settings.
Description
The PowerShell script can be started from any desired location on your RDS server and produce a user friendly GUI, that allows the users to change three advanced display settings. The PowerShell script differs slightly between the Windows Server 2012 R2, 2016 and 2019 operating systems
The features of the PowerShell script (Windows Server 2016 and 2019)
- Two advanced display settings can changed
- Session scale and layout (100, 125 and 150%) DPI scale and font size summarized
- Turn font smoothing On or Off
- Display the actual Citrix session resolution
- Display the actual configured advanced display settings
- Graphical user interface (GUI)
The features of the PowerShell script (Windows Server 2012 R2)
- Three advanced display settings can changed
- DPI scaling (100, 125 and 150%)
- Font size (100, 125 and 150%)
- Turn font smoothing On or Off
- Display the actual Citrix session resolution
- Display the actual configured advanced display settings
- Graphical user interface (GUI)
The GUI
The GUI are simple and easy to use.
 |
Start the PowerShell script over an desktop, start menu shortcut or published application. |
 |
Change the desired advanced display settings and press apply. Cancel close the PowerShell GUI dialog. |
 |
The session must be sign out, to successfully submit the settings. Clicking on OK will sing out the active user session. |
The PowerShell script for Windows Server 2016 and 2019
Lines: 411
1 2 3 4 5 6 7 8 9
| ########################################################################
# Title: Session Scaling RDS Server 2016 and 2019
# Description: Set session size and font smoothing
# Filename: SessionScaling.ps1
# Date Created: 20.02.2021
# Date Modified: 24.02.2021
# Version: 1.2/roe
# Developer: Beat Röthlisberger
######################################################################## |
#———————————————-
# Collect and define data for form
#———————————————-
function OnApplicationLoad {
return $true
}
function OnApplicationExit {
$script:ExitCode = 0
}
#———————————————-
# Start function Generat form
#———————————————-
function GenerateForm {
#Import form assemblies
[reflection.assembly]::loadwithpartialname(“System.Windows.Forms”) | Out-Null
[reflection.assembly]::loadwithpartialname(“System.Drawing”) | Out-Null
#Define variables
$UserName = $env:USERNAME
#Define form images from Base64
$base64ImageString = “iVBORw0KGgoAAAANSUhEUgAAADkAAABgCAYAAACnmdq6AAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAOdAAADnQBaySz1gAAABZ0RVh0Q3JlYXRpb24gVGltZQAwOS8yNS8xONGbuJIAAAAcdEVYdFNvZnR3YXJlAEFkb2JlIEZpcmV3b3JrcyBDUzQGstOgAAAflElEQVR4nMWceZBdV53fP+eee+97/XqTWnu3WrIsWfKGt4cl27EHs5oxTM1kkqpQFSAVB4owpohrij9MQgihMmBmqApQxT8JMDWQUEmFCgECBBhDbCfIWp4tW7LkRba21t57v+3ee5b8cc69773u1mbM5FCm9e67y/me3+/8lu/vd5/Yv3//RuBctVpVAGma2jRNieOYt25YQPh/WhCi91trEYuO5dcZY3uvL+7XO7JMUS73EUVhcWKtVguB9SHwQ+DDwCsACwsLzM3Ns2bNCAKz3P0w1mDtMl8Axh+3xiKw7n/WYq2/1aLrrDFYLFhbPMqd768x2sNynwMZAUHP87M0ZaFeZ+vWbUTRQPfttwL/KQSOAmM5yEp/P5VKH/sOvMHxiRmiUC5FYk33BzdvQRcQ99cag7UGIXqxGdO53lqLsRSTtrYLsAUwWAvGAgjqU6+RtmYQgZtXmiS8/e67ueuuOymVSotnOgYcDYEJYHPXU5EBHD/TYu+RhEpfuAxIp3LW2J7J6S4kVjsp4sEWEragvXRywFr1SlcbXWiQ8ddaAzKKOfjU/+TCxHOEUR8A8/PzfPKT/5y33/325bRrMzARAq8CNxST83/jSNLfH9NfDtFGoJTuudpaixF+4n7vBF0Tt8IiAGMsGpDC3dwYgxBOCkIEaG0IpbuflIIAgzaBv48tVBcEIgjpH6gwODhYgASI48g9cynIG4BXQ+AUcN/ibwGEtShlGYxnWb++jO7SUtulYsbfW+D2ZD4p953x5+LVUGAMIATTk1PF3otjyUxdspCUkIHwk+6otrUG7HLGSTjJGLPMd2wAng6Bk8D65c4AUCpl3fqQ9/zBLbTTjjQF4pI2b7mpdM8JCyIIOHfmNFiLsYLBgRI/efIIUxOKUhxijAeGk6gxFin9Trn8E7rHeuBkLskNtVotzN1I94QRAVmWIbGU47Bze+FWW2UZYSiJohBrIU1TlNaU4thL1pCkGXEYIoTAWkuSZQghGN84ChiUMmidMr/QwNpBL91ugMZf25l9s9ksFs1Yg13kBrz72ACcCqvV6kKtVpsD1gGngR7dttYSRSFDQwOcPHWGTGUIHMD+gX7Wrl3LyVPnmDh9HoDRDasZWTnE4ZePYYylUilzw9ZxXj16ikajSSAE27dtYna+zulXTmCxbFg3wqaxNcgg8Gqa70nj/aQDS2DAWoSAnTt3IqVk9+7dxd5dJOB1wFy1Wl3ITedx4MYc5NJh0cZQr9dJkgQhBFprhIBQSk5NnOP/7n4BgHt33UZfOWbPvpfIlGLt2hG2bB7l8JE3OHd+Eiklo6OrOXv2Anv3H0EIuOuO7WzeuKZY1I4EO5bbGAgEKK2QMuS73/0bSqUyO3bswGjT5b+KcaPHRQ7yLLCxW3r5cKuUQ7WLpExh1VzEYgkCgZQhYSgRQhBKiQwkYRgShiEyDJFSIkPpzwEpA7dwxqKNIFO5BEXxfCFcaCG86/r+979PFMUopRCBWC5o2ehxFSDPAKPgJK79xJ1D71wtEASBcIC8pUuzjA3rV7Pz7lsQQrBiuJ+z586zckU/xhj6yhGnz56jXJasHhlABILp6RnSNGXVqgEEoJTi9Jnz6KxFYAxCB0i6IiRrQURYWyEIJNpovvCFf1vMKwgClrGtGxaDPAW8i+4beynm0Yq1lrhUKmJMYwxhFKKUZmTlMJVKH1EoOfzyUbZct4kPvP8d/jqDyhQP3n+3W3EgTTPGN45x1x23AKC1wWjFpx552IVugeDM2QtMTs0QhyF9lZgXXz7H3+5r5atd+M8gCJxrsktgjgG/7gZ5GHik55RCLTuRi1baBQWiYxRKpZja80fYs+8l4jiknabs2L6VMAy8ykmkDHpuHceRm6vwwYIxBDIiEJ0njqxayeDQAJGUlEoRBw6fxhqN1oYgCPjsZx8nDCOeeOIJ50uXqut1HlcB8jSwtlarRTfdfLPH6NREW1vsu5FVIz6gdvsvlBKttdMmKRwYC8Zojp+ZJFPah3HGGxKNsRajDdq7n4FKme2b13N64ngRRGitWbduLVEcc/L8DFtGR1DaOJ9vLUEg+fjHP04YRnz1q19FG91jK2q1WgSs9bgcyGq1Wq/VavPA6o46gLadFbLW0tfXV6irzSebacrliJEVQ5TiyPtBzclzMyRZhjUGbTRGGZQxaKXR2v3XbiesGRli2/halHILgI9tjdY025qJ87OsXdGPQKC1M2xaaz72sY8TBAFpmjqVpceDrAbmq9VqvVuSABeBTYW2+v/rdj1SSucjPXghBGmWsX3bJrZdP04chzy79yBZppBSILXAIMAGEFikFRAIl8QIkDI3YraYpBWdZ+bxLD6IKKyrNTz55JPFnlwmF93k8bAY5Flg82J/k29oaw0nT06QpZkPFS0D/RXWr1/Piy8d5eVXjxOXIiYnZ7l+62aXXWiN0cb/231WSmG8JF2ko0EIwjD0zxKYQCBEgNLKpW2213UBrF7tlG56erqYX9cZmz2eJSDfwCWZuBzRuxFj0dpitKXdbJNmiZ+AcaEcllarzfT0PKVSRKOZurTLA9TGuL/dAI0h04YsU+48a5Fh6PwtoLWLi/Pv8mDdWtBKEYYh3/vedymVyjz88MOoTC3Oxa8HjuUfus3eGdxm7cnMQfiIwyW/ggCL8AxG7sOcpcxjU2vcflW6C6B2+0xpTaY0WmkvUQPWJdfdeaejPgytdptMqcJguRm5Z/WqaQ/KIkRdLMlTOcgiFszpFf9gGYVIf9wEIANJmim2bx1n0+ha4lLEvudfoZ2kBUBjnGoapVBao7Tzm8436gJY0m77tMrFxYODAy6UnG+QpRngFiMIJJlSfOQjHwVcQhDIJezFWo9nCciTFFFPV8xoOxyLEIIgD6+8hRDA3Fyd8xdnKJUi5uYaCIG3oMpn/g6U0sZZUWMwRhUSFggGB4eLfWWNIYoisqxJvdkm826qe1y8eLETDMDiPTvq8fSCrFarF2q1ms4BYZ2TFgK0l+yaNWs7yuHV0lrLmXNTHHjxVUqlmNn5JvdK2WV4NNpoMu3BKoM1br8qY9FKI6Vk5aqRDhNgNKEMUEqTpIoss4V1zePkd73rXUgp+c1vflNQJAC1Wm0E0NVq9cJykgQ4U2TyXkzWip4EtgCoLZ0sztMTfoGM1qhMoZTCGkvmJaiVU1/j1VZ7I6SNwXornD9H+vBHACKXsDdooZR861v/kSiK2bHjRozpoWa24+xLMRaDvNDjGQtORrjMIcipDgvSIv3Krlszwq23bKMch7zyxilc5mMLcstog1G9quusrsZaQ5YmTE5OFnvSGsOqVSNgQSntFwu0tggRYKzlW9/6VicLET1h40aH49Igz+EtKdatOtaSZikL8/MkqS7CKutpCywMDla4ecUApVLE1Nw8SdImTROSNHNqqbTbg8rtS206ltboTqoWBLIIGa01xHHIyHCFOA6dtHF70GjNl7/8hLsuCIp96ccG4NzlQJ7C0wz5Pqz0xRw9Oc2/+9qPQISk7XlOH32GRn2Bvko/Qgjq9bpTWCFIkpRyHNFKMwRQKpVYObKWP3j/n2ICR44FnhwOggC8ZHKDlAftSabZsGaIDz54O5W+Ek9lR3ommrsPgTNUOWOAyz6evxzI150ydvOphqC8hjBYQSBjWuokpycm+PM/f4xvf/vbpGnGF77wb4iiGGtchmCsC97nF+b57Gc/y0ClzJ+8717nNvy+M967S+kBy4hAGgTWGxHhU72gYAHxwb6Uks9//l8SRRFf/OIXfQJgcgu8FfjB5UC+segzSrlViuKQUIaUShFxHHPo0CE/CcHevfv8ZLtWGmgnCUJISqWYlUP9Lq3Sim7HrX3Qvn79mlwu/rwO+55n/rnlFUHAhz/8jymVynzpS19a7D76F+PoAVmtVqfrjUbxOVOaUHYKNdpov9EFu3bt4sCBF0jTlHe+80FKcdxD/wdSMjc7x49//GO0NrRarUUpkedwcgJK++TcdHi33AS6FM2lazIISLTmox/9J0gpSdMU2bsnw2q1On1JkPmwnkTqXqDcLwosSWuB//Hf/ysz0+cx2vC9v/k2UsqeFQ2EIElTrGpw7vxFPv9XP/D3ywN+OmlcweDmyYFnJDzMQFjmG5a+yih1Hzru3bu3mNeiLKQH4CVAdlPzfl96nReBJSoPsvWOP2Gy0WBsx1awljcuNH0A0Yk8XNjbx8ab/ggZVWiZdUWwnYM02nSu88/V3oi4IfwxSxSGxEEHTKVSAaDRpXl+nFt8YBmQOcUNQoRA4HI86TjRMB7kuls/4MF3JmWhCKABdB7k+72lsia6ixQzxjqrWKytu1dudPIFN0XhSBDI6BJ1zJ5xcvGBpSCtBQxWRKh4GBXLAnr+tyv26UljusPk0LKkZHd1o5fyLIYQhGGZmeODzF/QBMtUFP04u/jAUpB+Yu0kYWa2SVoOe75b5vSlX1xiscWVTrqMkFzU5QjuRrNOmLkVqNfrpGnaLeGrUFcLxghu2zZMJFLiqGNQ8vTLdhmI/Hivb+2ShumwfT2GZplzu7TZKWh3tm8tiAU2PXQPSfMG8OW/LE3ZsWMHSZrmwcASN7gEZJIkTM/Msv26ley4bqiHejDewnZm4oxTQef7KZlF5xh/XgdPx0iZbr500SJ0pbLkBlGG1xX1TQCE6xeo15skSQZwfjEmsZg7yRsjwjDHf6VNJbrOWapvOTmVe4meXN4u6ZFYdOXVjyzLKJXKPY0R+VgiyTiOxcGDB78O/KJarf7smp70/3EcOnToYeCharW65LtlgwFcqjLaarVsmqbOJ9nFFcB8XFqKvbRf959uN7HovC7N6LS3LH9riyVJ0txnfowuGrJ7XArkFLC52WzSarcwOlucmLrndO3XfAkEFKxmzsJTGKbcXnUHGouMlv8+J88oPkMQxsVz833dbLfZNL4JXFlg2dLjpUC+Atw1MDBAuVziv/30Bc5PtQnD3ppGwRL3WNaOsbBQ5KadyXX3FeTZ/mKABmudR7bWWV2jMiZe+TkqrSOEpN1qccedd/Kxj3+McrkMjqH79bWAPAqsc80Iluk6TDUi706CHmVzK26LCequKCYvxFg6bSuOHvHnCF/RMg6iwPoQ0n2tjatFIgQq1ezf/zzt5hRBEFKv14niqGAXPMij1wLyAlB0/oRSEIUBoVDEsuXphs6+sV2xZ+4+O26lU6gtzpcubGy3EwKPSAiBpg8rJUjhqle+wgACG0Cl0kdAhSBwRHQpLmGMzndtiUW0x2VBVqvVpFar9US+lgBh5nnf/WMMDg/3xKlLTMMytqJjnhylKWXA2TNnSdMEQUAYBfzoyVO0zSACU+x3pym6s8cvPRrVajW5apB+nMVPyE3OcalxLFkxNOAzCF9j9LxNKY4JAuGpxJRSHPn+AoNSiigKyckpbQzbb7jOBwWGCxenaLbbiGigB6DWBiGCIqXKsox2u7P+eTrKMjHr1YA80wnfOmNocACjUqanZxzVYTQrVq5kxfAQzx04wkK9yfDgADu2b+LFQ6/RaqesWzPC2Ohann/hVZRSjG9cz+BghRdqr2GNZdv1Ywz0l110lDceeoDQibSyLGN8fJxdu+7lqaeeIk3Tbume4RLjciCnljtojaXZajE/P4+UEqUV5b4K/f2Gl468wfkL02wcXceW6zZw8PDrzM3VuWnHFlauHOKFl46SthNkKBkTq3nx0FGstawYrrBxdLW3zM49FAC7QsZGs8HDD72DJ554gkcffZQTJ47TJYVl53slkMfyfh3IrahxWUp3A5FxJl9rTblcolIp099fwhjjSuFxiPCF0yiUWN/wpI1xn7302mnKQqONlW2wjlXPS/ZxFGEt9Ff6+e1vf8snPvEJ9u/fz7ZtW7sleezNgJywuAA6J3YDD1bgyOYgEFjrsneE4L3v3IkQMDM7z5mzF3n7XTdjrSEMQ9I05YF7b8daSxyHyCDgwQfuAqBcitGZ5u+/dwcEJVSWcXFyhkAIwjDg9MWUV04o4jjmzJnTvHT4ZcrlMjfddCOd6hsTbwZkV4bdoSzylROORkMIRxtiLc/uPUi90WJqZpZ3/cFOtm0dd+7DuExEBoEzVD70kdI1TyRphgxDtm7dAkCaJpw7f9F1fvRF/OiXB3jxlYQkTdm8eTN/+g928swzz5CmabfNWMIIXBFktVqtt9otDy6PVBzXMzgw6C2rwFhLX18ZrTSTU7PMztVZaDRoJ21OnZuk3mi5qCWveXi1d1UuTX85ZmzNMBcnJ92zjKVcLrFiZBUTF2bZEEe02hlCBDQbTe5+6B385V99lUcffZTjx48VqVreH3CtkiyGtY5RD3CTrVQqxGUfK9i89UWxft0qhocHmJycBRFw8twM0/N11xyhtW+KcO5EKUW7nbB21TDja1eQpglYZwPCMEApxYmz01TKEYEI0MZQ6a/w7LPP8uijj7Jnzx62bLkup6MuOy4Psise7R5aazLf2ZETzAjB7W/bTiAFr78x4VjxQOADFufMhcD3RiCFq1y5djI8d+oqY0EQYI3x33dKFnEcMzExwcFDhymXy+zYsf1qZHR1ksyRGu0KLBcuXmDy4iQiCNDasmb1KoaGh/n10/tYWGgyO1fnve++p6hRFpL0UtS+6px6DQAIAlmU5IUQKJ1zv50VTtOU8fFxPvhHd7F7927SNMV0FRAvNYLLfkvHdeTGQyvtgubivr62YTRpktFupyRpRl5LzMEtBpgp7cvqupNSeY0AfPOE8oUgB7jZaLBr1y6+8Y1vsHPnTse5msW56dJxRUkuaemyrjYhpAAEgQgKI3TLTVtQ2jBx+rwH5Rsgij3ZDdCV27Uv3SmV4chkgw4lobHUFxok7YS8aaJSqbBn714ee+wx9u7dy+bNm5af9LWC9PlFUYUqMg3XtuQbl1zYNTjYD8Ds3IKTpHI1SOuLr4sBGt8BEgSCvr6+wkVFUYwxmoV6kyTLCmYwjmNOnTzJiy8eolwuc8O2bVcK2q8CpKfLcvo+sKC0ZtWKEUqlMvnKByIgU4o9+w+zUG8yPbPAQ++5x0lFKawxZNo1H6pMeekqlDZkWUYUxaxdP+qyDQNCWKZnF2gnijTrpGlpmjI2NsYfPvxB9uzZ6/bkVYC87J401tC9/Yxx6iuDgCiKkDJABtL1o9tOjw24JDnL3B7MtJNe0ZxkXDeWyhuXlKJRX6BRr9NsLpAk7Q7FYbTTJGNpNJrce9+9fPOb32TXrp3Um5d0jT3jCuqa8/wuvBPG0leOqfSVSNIMIWSR51lruP++OwE4+sZpyuUKUTMjCF1x1maub0B3N0VoV8pL2i0mJyfJCzx95RIiqpBlijRTGOMMUaVSYd/efXzmM59h//79bNw49ruDtPl+zOuICJ7e/SL9lT60UrSb07SaTUp9FbIsI8sy4jjk7NkphBDM1F0fTimO6RsYZnB4tX/bwIFMkpR221H8rrfOqT9CUIpD7r51C2PrVvD8QReWxqUSJ06c4MALBymXy1y/ZcvvDlLQqT4JDEE0wNMHLqCyBmmywMH/8x+44203snfffsbGxrj99tvRWhdNvDIIkEmTH//wp7zv4T/mA+9/L/Pzcz67cOo61F9BKUOaadwLcJZMBAyGAbfesJE4DlCZYwqzNGV0dJR3v+d91J57jiRLeytjbwZkB62r3ytrWblqHTKIaDVmGB4a5I477uClw0cYHx/nvvvu67F2Qgimp6f5X7/4JaPrVnH/229iZmam2G8CUNrQaiesX7+OvJSQ+8XMKKKoQ0M2GnU++Icf5Ct/+VUe/dSneP3oa2+BdfXD+TFDHAnXIo178wcEUeRaraUM6K9UXGbgh5SSOIqKvti5+XkW6nVyCi9vjMpLBa6a3U1Ag9EBxmr/jkmFffv28/jjj/NcrcaGDZd8MelaQOYdkjkZnHdBOhVJkjq7dz+DylqcPPEGP/vpj1z/an51ENBqtShFhr3Pvcbjf/EDsqxV0JTdXG1nRbvVTyCEZaEl6OsbIIpiTp06xauvOeZx86a3JBiwHVDWFIwACGQYc+PdH6HZrPO2++8nTVJOzCU9Oaf1LNONu25CxsPMJ0NoVSnYdNPVGJj7YmtN1yI4lxVFEcKmPlCIiEtlms3mVanqVYAEMCBjiGKsLPhyAgNrttzj27U7Jb2CLvETt/hGQ6O9indAFWVAX1vQJmfk/ZO9BgkhMarF+aDD917LuIILAWsMzQzms9CzzaKYmFD5WV3Hg7D7kxsSVw6n/7Kh9KX6AYSU6KRNkma0mk0CGdFqtXr2/+XGFSUZBCHjqwQmnSeOexuSetTFx5edOohd/rziWKeO0jnWc0bxWSAwMuPWm7eTJRtASJIkYdPmTT29Q5caS4qw3WNyctJOT09RiiVaZT17rbuanNdMrLeYQE9FuruibPM6Qs6O967a8gbJq70MS+BLFLkPz5Ti5ptuYXjF8CWV5LKS7O/vd/0z/nX8KyWnlxp5aeDK53WGXXIkdzW9x5IkodxXvvx9r8ZC1Wo1CewFHqxWqwtXvOD3PGq12iDwv4Gd1Wp1aeF00bgiMwDgb3QcuOl3mdxbOG4Cjl8NQLgWjsf1rG3HSdQdmJ625VJEpb+Ct8WXuNQWhsl9vJRRsp5m8S3aUaXo9JienkYIwcqVK4Wfx5IeukuNawF5DNcwW4xSKebM+RmOTRwjzF9bKKrInRaVwlfmvzTRZaA6L7bklSxT1Dwbs6dQWQOtDbfddhs333xL/uhR/FuubzXI00BPa0V/fz/np87z46fOE0chWaaKVrO88Ko9bZIH3cVx416VyEvpcSx9q7ZxPXhC8vyT32Tu4lFa7Yyvfe3fs2vXPfmjNwK13wfIk8Af9x4ySCmIo5Cto7Bl44grgecuxvftaM/N5hSj8G8pzM3OkaYJmbIcPp5ho9CHehZrA/r7K6hmP2GkCXoDhY243yx5y0G+BOzoPeRUMlOatSN93H/3FhrNzL+nLLu6j315PPALoA2BDEjTdUSh4MTEBWpHXiEuDxSVrJyRVqrD6HWNHX4+bznISUDUarWharU634XT3UiGLMwvMHH6PFIGbLl+C795+gAXLk7zjr93J08+tY+bd1yPkIIXD77Ggw/cxb7njrBqZJBN46MobQm0ca2fxoIwNJoNvv61r/HLv/01CwsLgKVWe27IrQCTVzvxq3IhANVq1QALQBfn0OnBcW8EKLIsJUsz0lQxNNTP6lUraLXbWGNoJ23SxDX6NZstsAaVaZrNJmGgEDYBk4BNAdf48J2//mv27N1HqVzOrfIWYMHP56rGtUgSnEXbBLxQgPTsuttrAVKGrpZhLatWDtNqtVHa8KF/+BBKud8muPO2HWhj2Hr9OEo5LvZzn9rgXlGcmiEMBf/l58dQRjA3N0+73S5qJv75x69l0tcK8hBwG/AT91H0SHFgcIANo+73BeIo4tDhoxx++Rjvffc9TEzO0Wi2HQ3pX/ltJylbxtYgdEKSJAwM9LNy7SpUmmC0ptVs8fiX/jU/+/mvaNTruXt9G9ewH98MyJPAvd0HLJ0OqyiKqFRciV0pzZ2338jY6BpkKDl+dopGo+lUOlVkaUq90WRksMJgydJutymXYqbbGcaXDPoH+nnkkUfQRvDlL/1F/shNwO5rmfRV78kukF2cg3PszlAEXLxwkVdfeYWjr79OmiW89PIb/HbPQdpJSuA6mFxPutGFPzS+3B7HMYGURXeXNg74pz/9aR544AEazWZOjWziMlXl5ca1SvIEMN6NMXfunRdCDYGvaK1fs5IkScC6H1DIMuX52ZQkcdLUSqGU61fVWtNuJRiTFoUml0j3NLOP+3n83kAe7wFZlO2M52JiBgb6fU4kCENJuVTCWkuaKUcsK+UBZmS+D2d4eAVRnFAuxyycnMaaDIGlXC7z9a9/HW0EDz30nm6Qx69l0tekrt5sn6zVancAhVU11vXdDA0PMTo2xvr1G4jjmOMnz3HoyDHSrPOWXZJkpGnqpJk6Rx/HJeJSTByFpKkiTd07zPV6ne985zt86EMfYn5+IQ8ITl6L+4BrlyS4l9auAw74sBRr3dsH01NTtBJX2AmkZOPoCJVKyML8LOem5tAG0lSTZilZpmg0WiRJm4sXz1NvtBga7KdSjshS90NE5XKZr3zlK0xOzfJnf/bJ7udf03gzII97kIDbk+VYcvBogxdeqXHm9d8SJCeZma1z1113+tK4K8ju2fMs/+jD/4xNO7bTajVJ0oyVw4Mo7V48SzPNrTeM0W63+cmTp7wqD1FvtLv53ON/FyBPUPwEnIt4tFaE8QClygBJ9izjq1Zw7vxFdu682//KhFuMZ57+DXfevJl7763SbLomwCRJyXzfgPsdrICAyP3sVNLmkX/6GL/41a9ptVq5ul6T0XmzIA/gsxHrJ+b64DRWu5Dt9OmzKKXZvfvZztvjvk3tP//wWX717AVUlhY/r5EDdByr8FVm9xr+v3jsMdLM8LnP/avu5//eQR4nV9c8QQ5CLJIsSxi74UHqC7ezcnvEsfkF7/fceTfccwtzpo+pkwJLCaN9N7O1qLyz2YK1AX19ZQIBYRj2/JgffxfqWq1Wj9dqtevA/2aVgdk0Js1J5bCPeNVqsLBiBXkJpRh2mYb9pcO9fHbsOUujXqedujAwCAKq1erxa53zVbF1lxqzM1P2+KnzvHZiBulzxW5utvgvj4y6/93Fvbrzc77Hk8pCUJ86hkobaGO56cYb2XXPPYyMrLq2t2J+V5DT0zM2EIbB/s5bsD3vaXXY4Z7CTmd0v9pEQS7n34XxACIIEQLmZucIpGRkZOSaQf4/m01ovHcJVYkAAAAASUVORK5CYII=”
$imageBytes = [Convert]::FromBase64String($base64ImageString)
$SessionSizeIMG = New-Object IO.MemoryStream($imageBytes, 0, $imageBytes.Length)
$SessionSizeIMG.Write($imageBytes, 0, $imageBytes.Length);
$base64ImageString = “iVBORw0KGgoAAAANSUhEUgAAAB8AAAA5CAYAAADOW/ASAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAOdAAADnQBaySz1gAAABZ0RVh0Q3JlYXRpb24gVGltZQAwOS8yNS8xONGbuJIAAAAcdEVYdFNvZnR3YXJlAEFkb2JlIEZpcmV3b3JrcyBDUzQGstOgAAAByElEQVRYhe2W23GDMBBFD578xx1EJdBBKIESXEJKoIO0QAlJB6QD3AHuwB04HxaTRZaQVgM4H9wZTfTae7MvmYL1cQsdFFqDCFy+WZ7DgsJqnpeFhGDqtU/4Icop4qHUaODl8IV9MywZdgjn2d0v4Mmeu+JLVXoSVH2ZyREs2H8V9k0Rq/YlejwI6fkSxabimAv7ai9bivjq2MWfKr55pUtxF6tX+pz4Jniq+I4dO3bsWAWrfp0CR6AGKsDYvQHogNb36dxkiHR2SNRAC7w6++/2b+sjumWMD4ejUt5PMgqNyuEZxFnLX8iPwGlcu2EvxfxCIDQe9GJeA292/mPFRlwlpytuxLwnL/+VmLeBO15x6XmPDpUdtbNnxHqY+4euhPMYwxfx2mikgfyGM0zbYlCKl/ErU04ZduNcPEWIeu7eyvsl8GnXZx5bKpjKBl17NREO3/kEbtg18HlhIucTyLDLnH0nGPvOJccQE5eYe7FyOJJROobHDGHJkfRGjDk3Yu/Cvd+1kBwq8excCag5RvFK7HWZ4moOX9iHTPFsDllsKc/kHIeqXioyWyTA0aUaHZh6es4Uz/opLrjnytj1VWMsIDkGEnP+C+cbmFyg8s/zAAAAAElFTkSuQmCC”
$imageBytes = [Convert]::FromBase64String($base64ImageString)
$FontSmoothingIMG = New-Object IO.MemoryStream($imageBytes, 0, $imageBytes.Length)
$FontSmoothingIMG.Write($imageBytes, 0, $imageBytes.Length);
#Define form icon from Base64
$base64IconString = “AAABAAEAEBAAAAEAIABoBAAAFgAAACgAAAAQAAAAIAAAAAEAIAAAAAAAQAQAAAAAAAAAAAAAAAAAAAAAAABHz6uMTdKt35Liyt9T07DfSNGr31rVst+a483fq+jU33vcwd9a1bPfatm534Pew9963MDfft3C33LavN9i17XDSNGqxVrVs/+N4cj/StGs/0nRrP9g17X/ft7C/4rgx/+P4sn/kOLJ/2nZuf9s2rr/nuXP/5rkzv993cH/adm530jRqtpn2Lj/pObS/1rVsv9a1bP/cdu8/3ncwP933L//d9y//4Dew/+j5tH/renW/83w4//K7+L/jOHI/3ncwN9I0avfbtq7/8rv4v+j5tH/lePL/5zlzv+h5tH/luPM/4LfxP90277/fd3C/8Tu3//W8uf/0vHl/5bjzP9h1rXfR9Cq3WrZuf+67Nv/XNa0/0zSrP9b1bP/a9m6/2rZuf9f1rX/cNq8/5Tjy/+m59P/pObS/6/p1/993cH/lePL30fRqs5f1rT/surY/1fUsf9I0av/SNGr/0/Trv9u2rv/kuLL/4/iyf9j17b/jeHI/13WtP+V48z/X9a1/2zZut9I0KuqUdOv/6fn0/9e1rX/SNGr/0rSrP9w2rz/nuXP/3Tbvf9X1bH/adm5/4TfxP9Q06//iODG/3HbvP9V1LHfR9Gra0jRq/yJ4Mb/bNm6/0/Trv993cL/i+HH/17WtP9J0az/bNm6/4PfxP923L7/VdSw/3vdwf+Q4sn/SdGr30bSrChI0arfYNe1/5jkzf+c5c//gN7D/1fVsf9e1rT/T9Ku/3fcv/+X48z/W9az/1fUsf923L7/qOfT/1HTrt8/v78ESNCriUnQq/2M4cj/u+zc/1bUsf9N0q3/TNKt/03Srf9z273/i+HH/1vVs/9U1LD/a9m6/7Dp1/9k2LbfAAAAAEvSrCJI0KvNUtOv/5Liyv9c1rT/TdKt/2HXtf9T1LD/h+DG/2vZuv9p2bn/TNKt/1bUsf+q6NX/gd7D3wAAAAAA//8BSM6oSkjRq+VW1LH/dty//1fUsf9N0q3/YNe1/33dwv9V1LD/WNWy/0jRq/9J0av/lOPL/6Xm0t8AAAAAAAAAAD+/fwRG0axaSNGr5VHTr/9r2br/ddu+/6Xn0v923L//S9Ks/0rRrP9L0qz/XNaz/4zhyP/J7uHfAAAAAAAAAAAAAAAAP79/BEnRq0lI0KrNSdGs/F/Wtf+M4cj/nuXQ/5Tjy/+V48z/neXP/7Xq2f+16tn/oeXR3wAAAAAAAAAAAAAAAAAAAAAA//8BRdCpIUjRq4ZH0KrdSdGr+0/Trv9b1rP/Zdi3/2fYuP9g1rX/VNSw/0rRrN8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/v78ES86sJUnRq2VH0ayjR9Cqx0fRq9VI0avWR9GqzkjQqbRH0al1AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAACAAAAAwAAAAOAAAADwAAAA/AAAAA==”
$iconimageBytes = [Convert]::FromBase64String($base64IconString)
$FormIcon = New-Object IO.MemoryStream($iconimageBytes, 0, $iconimageBytes.Length)
$FormIcon.Write($iconimageBytes, 0, $iconimageBytes.Length);
#Define Citrix session ID
$keySessionnr = “HKCU:\SOFTWARE\Citrix\SessionSfr”
$CitrixSessionID = (Get-ChildItem -Path $keySessionnr -Name -ErrorAction SilentlyContinue)
#Define Citrix session display resolution
$keyResolution = “HKLM:\SOFTWARE\Citrix\Ica\Session\$CitrixSessionID\Connection”
$CitrixDispHRes = (Get-ItemProperty -Path $keyResolution -Name “HRes” -ErrorAction SilentlyContinue | Select -exp HRes)
$CitrixDispVRes = (Get-ItemProperty -Path $keyResolution -Name “VRes” -ErrorAction SilentlyContinue | Select -exp VRes)
#Read Font Scaling Size from registry
$keyHKCUDesktop = “HKCU:\Control Panel\Desktop”
$LogPixels = (Get-ItemProperty -Path $keyHKCUDesktop -Name “LogPixels” -ErrorAction SilentlyContinue | Select -exp LogPixels)
$LogPixels = $LogPixels * 1.041666666666667
$LogPixels = [int]::Parse(“0” + $LogPixels)
#Read DPI Scaling from registry
$keyHKCUDesktop = “HKCU:\Control Panel\Desktop”
$DPIScaling = (Get-ItemProperty -Path $keyHKCUDesktop -Name “AppliedDPI” -ErrorAction SilentlyContinue | Select -exp AppliedDPI)
$DPIScaling = $DPIScaling * 1.041666666666667
$DPIScaling = [int]::Parse(“0” + $DPIScaling)
#Read Font Smoothing configuration from registry
$keyHKCUDesktop = “HKCU:\Control Panel\Desktop”
$FontSmoothing = (Get-ItemProperty -Path $keyHKCUDesktop -Name “FontSmoothing” -ErrorAction SilentlyContinue | Select -exp FontSmoothing)
IF ($FontSmoothing -eq “2”) {
$FontSmoothing = “ON”}
Else {
$FontSmoothing = “OFF”
}
#Read Session ID from system
$SessionId = ((quser | Where-Object { $_ -match $UserName }) -split ‘ +’)[2]
#Generated form objects
$form1 = New-Object System.Windows.Forms.Form
$icon = [System.Drawing.Image]::FromStream($FormIcon, $true)
$font = New-Object System.Drawing.Font(“Microsoft Sans Serif”,10,[System.Drawing.FontStyle]::Regular)
$fonthead = New-Object System.Drawing.Font(“Microsoft Sans Serif”,10,[System.Drawing.FontStyle]::Bold)
$fontvalue = New-Object System.Drawing.Font(“Microsoft Sans Serif”,10,[System.Drawing.FontStyle]::Bold)
$labelhead1 = New-Object System.Windows.Forms.Label
$labelhead2 = New-Object System.Windows.Forms.Label
$labelctxres = New-Object System.Windows.Forms.Label
#$labeldpiscaling = New-Object System.Windows.Forms.Label
$labelfonsize = New-Object System.Windows.Forms.Label
$labelfonsmooth = New-Object System.Windows.Forms.Label
#$valuedpiscaling = New-Object System.Windows.Forms.Label
$valuefonsize = New-Object System.Windows.Forms.Label
$valuefonsmooth = New-Object System.Windows.Forms.Label
#$imgdpiscaling = [System.Drawing.Image]::FromStream($DPIScalingIMG, $true)
$imgfontsize = [System.Drawing.Image]::FromStream($SessionSizeIMG, $true)
$imgfontsmoothing = [System.Drawing.Image]::FromStream($FontSmoothingIMG, $true)
#$radiogroupboxdpi = New-Object System.Windows.Forms.GroupBox
$radiogroupboxfont = New-Object System.Windows.Forms.GroupBox
$radiobuttonfont = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfonts = New-Object System.Windows.Forms.GroupBox
$radiobuttonfonts = New-Object System.Windows.Forms.RadioButton
$buttonApply = New-Object System.Windows.Forms.Button
$buttonLogOff = New-Object System.Windows.Forms.Button
$InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState
$FontFoot = New-Object System.Drawing.Font(“Microsoft Sans Serif”,7,[System.Drawing.FontStyle]::Regular)
$labelFoot = New-Object System.Windows.Forms.Label
#———————————————-
# Call functions from apply button
#———————————————-
$ScriptApplySessionScale = {
Add-Type @”
using System;
using System.Runtime.InteropServices;
using Microsoft.Win32;
public class Setter {
[System.Runtime.InteropServices.DllImport(“SHCore.dll”)]
internal static extern bool SetProcessDPIAware();
}
“@
}
#———————————————-
# Call functions from radio buttons
#———————————————-
function font150 {
Set-ItemProperty -Path “HKCU:\Control Panel\Desktop” -Name LogPixels -Value 144
#$form1.Dispose()
#GenerateForm
}
function font125 {
Set-ItemProperty -Path “HKCU:\Control Panel\Desktop” -Name LogPixels -Value 120
#$form1.Dispose()
#GenerateForm
}
function font100 {
Set-ItemProperty -Path “HKCU:\Control Panel\Desktop” -Name LogPixels -Value 96
#$form1.Dispose()
#GenerateForm
}
function fontsOFF {
Set-ItemProperty -Path “HKCU:\Control Panel\Desktop” -Name FontSmoothing -Value 0
#$form1.Dispose()
#GenerateForm
}
function fontsON {
Set-ItemProperty -Path “HKCU:\Control Panel\Desktop” -Name FontSmoothing -Value 2
#$form1.Dispose()
#GenerateForm
}
function buttonApply {
Add-Type -AssemblyName PresentationCore,PresentationFramework
$oReturn=[System.Windows.Forms.MessageBox]::Show(“You must sign out of your Citrix session to apply these changes. `nSave any open files and close all programs before you sign out. `n`nTo sign out click on OK”,”Sign out to apply settings”,[System.Windows.Forms.MessageBoxButtons]::OKCancel)
switch ($oReturn){
“OK” {
#write-host “You pressed OK”
logoff $SessionId
}
“Cancel” {
#write-host “You pressed Cancel”
$form1.Dispose()
GenerateForm
}
}
}
function buttonCancel {
$form1.Close()
}
#———————————————-
# Call form functions from button handler
#———————————————-
#Call funtion font150
$handler_radiobuttonfont150_click= ${function:font150}
#Call funtion font125
$handler_radiobuttonfont125_click= ${function:font125}
#Call funtion font100
$handler_radiobuttonfont100_click= ${function:font100}
#Call funtion fontsOFF
$handler_radiobuttonfontsOFF_click= ${function:fontsOFF}
#Call funtion fontsON
$handler_radiobuttonfontsON_click= ${function:fontsON}
#Call funtion button Apply
$handler_buttonApply_Click= ${function:buttonApply}
#Call funtion button Cancel
$handler_buttonCancel_Click= ${function:buttonCancel}
#———————————————-
# Form code to ganerate gui
#———————————————-
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 373
$System_Drawing_Size.Width = 540
$form1.Icon = [System.Drawing.Icon]::FromHandle((new-object System.Drawing.Bitmap -argument $FormIcon).GetHIcon())
$form1.Font = $font
$form1.ClientSize = $System_Drawing_Size
$form1.DataBindings.DefaultDataSourceUpdateMode = 0
$form1.Name = “form1”
$form1.Text = “Session Scaling”
$form1.FormBorderStyle = “Fixed3D”
#Form lable
$labelHead1.Text = “Session scale and layout”
$labelHead1.Font = $fonthead
$labelHead1.Location = “15,15”
$labelHead1.Height = 20
$labelHead1.Width = 250
#Form lable
$labelfonsize.Text = “Change the size of text and apps:”
$labelfonsize.Location = “15,55”
$labelfonsize.Height = 40
$labelfonsize.Width = 180
$valuefonsize.Text = ” $LogPixels%”
$valuefonsize.Font = $fontvalue
$valuefonsize.ForeColor = ‘Green’
$valuefonsize.Location = “208,75”
$valuefonsize.Height = 20
$valuefonsize.Width = 60
#Radio button box font size
$radiogroupboxfont.Location = ‘15,95’
$radiogroupboxfont.size = ‘250,120’
$radiogroupboxfont.text = “Choose size:”
$radiobuttonfont = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfont.Controls.Add($radiobuttonfont)
$radiobuttonfont.Location = ‘55,20’
$radiobuttonfont.size = ‘80,20’
IF ($LogPixels -eq “150”) {
$radiobuttonfont.Checked = $true}
Else {
$radiobuttonfont.Checked = $false
}
$radiobuttonfont.Text = “150%”
$radiobuttonfont.add_Click($handler_radiobuttonfont150_click)
$radiobuttonfont = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfont.Controls.Add($radiobuttonfont)
$radiobuttonfont.Location = ‘55,55’
$radiobuttonfont.size = ‘80,20’
IF ($LogPixels -eq “125”) {
$radiobuttonfont.Checked = $true}
Else {
$radiobuttonfont.Checked = $false
}
$radiobuttonfont.Text = “125%”
$radiobuttonfont.add_Click($handler_radiobuttonfont125_click)
$radiobuttonfont = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfont.Controls.Add($radiobuttonfont)
$radiobuttonfont.Location = ‘55,90’
$radiobuttonfont.size = ‘80,20’
IF ($LogPixels -eq “100”) {
$radiobuttonfont.Checked = $true}
Else {
$radiobuttonfont.Checked = $false
}
$radiobuttonfont.Text = “100%”
$radiobuttonfont.add_Click($handler_radiobuttonfont100_click)
#Image font size
$imgfontsizebox = new-object Windows.Forms.PictureBox
$radiogroupboxfont.Controls.Add($imgfontsizebox)
$imgfontsizebox.Location = “140,18”
$imgfontsizebox.Height = $imgfontsize.Size.Height
$imgfontsizebox.Width = $imgfontsize.Size.Width
$imgfontsizebox.Image = $imgfontsize
#Form lable
$labelHead2.Text = “Font smoothing”
$labelHead2.Font = $FontHead
$labelHead2.Location = “275,15”
$labelHead2.Height = 20
$labelHead2.Width = 486
$labelfonsmooth.Text = “Font smoothing is turned:”
$labelfonsmooth.Location = “275,75”
$labelfonsmooth.Height = 20
$labelfonsmooth.Width = 180
$valuefonsmooth.Text = “$FontSmoothing”
$valuefonsmooth.Font = $fontvalue
$valuefonsmooth.ForeColor = ‘Green’
$valuefonsmooth.Location = “433,75”
$valuefonsmooth.Height = 20
$valuefonsmooth.Width = 60
#Radio button font smoothing
$radiogroupboxfonts.Location = ‘275,95’
$radiogroupboxfonts.size = ‘250,120’
$radiogroupboxfonts.text = “Turn font smoothing ON or OFF:”
$radiobuttonfonts = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfonts.Controls.Add($radiobuttonfonts)
$radiobuttonfonts.Location = ‘25,50’
$radiobuttonfonts.size = ‘80,20’
IF ($FontSmoothing -eq “OFF”) {
$radiobuttonfonts.Checked = $true}
Else {
$radiobuttonfonts.Checked = $false
}
$radiobuttonfonts.Text = “OFF”
$radiobuttonfonts.add_Click($handler_radiobuttonfontsOFF_click)
$radiobuttonfonts = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfonts.Controls.Add($radiobuttonfonts)
$radiobuttonfonts.Location = ‘25,75’
$radiobuttonfonts.size = ‘80,20’
IF ($FontSmoothing -eq “ON”) {
$radiobuttonfonts.Checked = $true}
Else {
$radiobuttonfonts.Checked = $false
}
$radiobuttonfonts.Text = “ON”
$radiobuttonfonts.add_Click($handler_radiobuttonfontsON_click)
#Image font smoothing
$imgfontsmoothingbox = new-object Windows.Forms.PictureBox
$radiogroupboxfonts.Controls.Add($imgfontsmoothingbox)
$imgfontsmoothingbox.Location = “120,45”
$imgfontsmoothingbox.Height = $imgfontsmoothing.Size.Height
$imgfontsmoothingbox.Width = $imgfontsmoothing.Size.Width
$imgfontsmoothingbox.Image = $imgfontsmoothing
#Session display resolution
$labelctxres.Text = “Citrix Session Resolution: $CitrixDispHRes/$CitrixDispVRes”
$labelctxres.Font = $FontFoot
$labelctxres.Location = “15,335”
$labelctxres.Height = 20
$labelctxres.Width = 250
#Apply button
$System_Drawing_Point1 = New-Object System.Drawing.Point
$System_Drawing_Point1.X = 15
$System_Drawing_Point1.Y = 285
$buttonApply.Location = $System_Drawing_Point1
$buttonApply.Name = “Apply”
$System_Drawing_Size1 = New-Object System.Drawing.Size
$System_Drawing_Size1.Height = 35
$System_Drawing_Size1.Width = 110
$buttonApply.Size = $System_Drawing_Size1
$buttonApply.TabIndex = 0
$buttonApply.Text = “Apply”
$buttonApply.UseVisualStyleBackColor = $True
$buttonApply.add_Click($handler_buttonApply_Click)
#Cancel button
$System_Drawing_Point1 = New-Object System.Drawing.Point
$System_Drawing_Point1.X = 130
$System_Drawing_Point1.Y = 285
$buttonLogOff.Location = $System_Drawing_Point1
$buttonLogOff.Name = “Cancel”
$System_Drawing_Size1 = New-Object System.Drawing.Size
$System_Drawing_Size1.Height = 35
$System_Drawing_Size1.Width = 110
$buttonLogOff.Size = $System_Drawing_Size1
$buttonLogOff.TabIndex = 0
$buttonLogOff.Text = “Cancel”
$buttonLogOff.UseVisualStyleBackColor = $True
$buttonLogOff.add_Click($handler_buttonCancel_Click)
#Form footer
$labelFoot.Font = $FontFoot
$labelFoot.Text = “fresh-it.info (c) | support@fresh-it.info | Ver. 1.2/roe”
$labelFoot.Location = “15, 355”
$labelFoot.Height = 40
$labelFoot.Width = 300
$form1.Controls.Add($labelHead1)
$form1.Controls.Add($labelHead2)
$form1.Controls.Add($labelctxres)
#$form1.Controls.Add($labeldpiscaling)
#$form1.Controls.Add($valuedpiscaling)
$form1.Controls.Add($labelfonsize)
$form1.Controls.Add($valuefonsize)
$form1.Controls.Add($valuefonsmooth)
$form1.Controls.Add($labelfonsmooth)
#$form1.Controls.Add($radiogroupboxdpi)
$form1.Controls.Add($radiogroupboxfont)
$form1.Controls.Add($radiogroupboxfonts)
$form1.Controls.Add($buttonLogOff)
$form1.Controls.Add($buttonApply)
$form1.Controls.Add($labelFoot)
#Save state of the form
$InitialFormWindowState = $form1.WindowState
#Correct OnLoad event to correct form state
$form1.add_Load($form1_StateCorrection_Load)
#Display defined form
return $form1.ShowDialog()
}
#Call function GenerateForm
if(OnApplicationLoad -eq $true)
{
GenerateForm | Out-Null
OnApplicationExit
}
The PowerShell script for Windows Server 2012 R2
Lines: 497
1 2 3 4 5 6 7 8 9
| ########################################################################
# Title: Session Scaling RDS Server 2012 R2
# Description: Set Font Size, Smoothing and Session DPI Scaling
# Filename: SessionScaling.ps1
# Date Created: 11.08.2019
# Date Modified: 21.09.2019
# Version: 1.1/roe
# Developer: Beat Röthlisberger
######################################################################## |
#———————————————-
# Collect and define data for form
#———————————————-
function OnApplicationLoad {
return $true
}
function OnApplicationExit {
$script:ExitCode = 0
}
#———————————————-
# Start function generate form
#———————————————-
function GenerateForm {
#Import form assemblies
[reflection.assembly]::loadwithpartialname(“System.Windows.Forms”) | Out-Null
[reflection.assembly]::loadwithpartialname(“System.Drawing”) | Out-Null
#Define variables
$UserName = $env:USERNAME
#Define form images from Base64
$base64ImageString = “iVBORw0KGgoAAAANSUhEUgAAADkAAABgCAYAAACnmdq6AAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAOdAAADnQBaySz1gAAABZ0RVh0Q3JlYXRpb24gVGltZQAwOS8yNS8xONGbuJIAAAAcdEVYdFNvZnR3YXJlAEFkb2JlIEZpcmV3b3JrcyBDUzQGstOgAAAflElEQVR4nMWceZBdV53fP+eee+97/XqTWnu3WrIsWfKGt4cl27EHs5oxTM1kkqpQFSAVB4owpohrij9MQgihMmBmqApQxT8JMDWQUEmFCgECBBhDbCfIWp4tW7LkRba21t57v+3ee5b8cc69773u1mbM5FCm9e67y/me3+/8lu/vd5/Yv3//RuBctVpVAGma2jRNieOYt25YQPh/WhCi91trEYuO5dcZY3uvL+7XO7JMUS73EUVhcWKtVguB9SHwQ+DDwCsACwsLzM3Ns2bNCAKz3P0w1mDtMl8Axh+3xiKw7n/WYq2/1aLrrDFYLFhbPMqd768x2sNynwMZAUHP87M0ZaFeZ+vWbUTRQPfttwL/KQSOAmM5yEp/P5VKH/sOvMHxiRmiUC5FYk33BzdvQRcQ99cag7UGIXqxGdO53lqLsRSTtrYLsAUwWAvGAgjqU6+RtmYQgZtXmiS8/e67ueuuOymVSotnOgYcDYEJYHPXU5EBHD/TYu+RhEpfuAxIp3LW2J7J6S4kVjsp4sEWEragvXRywFr1SlcbXWiQ8ddaAzKKOfjU/+TCxHOEUR8A8/PzfPKT/5y33/325bRrMzARAq8CNxST83/jSNLfH9NfDtFGoJTuudpaixF+4n7vBF0Tt8IiAGMsGpDC3dwYgxBOCkIEaG0IpbuflIIAgzaBv48tVBcEIgjpH6gwODhYgASI48g9cynIG4BXQ+AUcN/ibwGEtShlGYxnWb++jO7SUtulYsbfW+D2ZD4p953x5+LVUGAMIATTk1PF3otjyUxdspCUkIHwk+6otrUG7HLGSTjJGLPMd2wAng6Bk8D65c4AUCpl3fqQ9/zBLbTTjjQF4pI2b7mpdM8JCyIIOHfmNFiLsYLBgRI/efIIUxOKUhxijAeGk6gxFin9Trn8E7rHeuBkLskNtVotzN1I94QRAVmWIbGU47Bze+FWW2UZYSiJohBrIU1TlNaU4thL1pCkGXEYIoTAWkuSZQghGN84ChiUMmidMr/QwNpBL91ugMZf25l9s9ksFs1Yg13kBrz72ACcCqvV6kKtVpsD1gGngR7dttYSRSFDQwOcPHWGTGUIHMD+gX7Wrl3LyVPnmDh9HoDRDasZWTnE4ZePYYylUilzw9ZxXj16ikajSSAE27dtYna+zulXTmCxbFg3wqaxNcgg8Gqa70nj/aQDS2DAWoSAnTt3IqVk9+7dxd5dJOB1wFy1Wl3ITedx4MYc5NJh0cZQr9dJkgQhBFprhIBQSk5NnOP/7n4BgHt33UZfOWbPvpfIlGLt2hG2bB7l8JE3OHd+Eiklo6OrOXv2Anv3H0EIuOuO7WzeuKZY1I4EO5bbGAgEKK2QMuS73/0bSqUyO3bswGjT5b+KcaPHRQ7yLLCxW3r5cKuUQ7WLpExh1VzEYgkCgZQhYSgRQhBKiQwkYRgShiEyDJFSIkPpzwEpA7dwxqKNIFO5BEXxfCFcaCG86/r+979PFMUopRCBWC5o2ehxFSDPAKPgJK79xJ1D71wtEASBcIC8pUuzjA3rV7Pz7lsQQrBiuJ+z586zckU/xhj6yhGnz56jXJasHhlABILp6RnSNGXVqgEEoJTi9Jnz6KxFYAxCB0i6IiRrQURYWyEIJNpovvCFf1vMKwgClrGtGxaDPAW8i+4beynm0Yq1lrhUKmJMYwxhFKKUZmTlMJVKH1EoOfzyUbZct4kPvP8d/jqDyhQP3n+3W3EgTTPGN45x1x23AKC1wWjFpx552IVugeDM2QtMTs0QhyF9lZgXXz7H3+5r5atd+M8gCJxrsktgjgG/7gZ5GHik55RCLTuRi1baBQWiYxRKpZja80fYs+8l4jiknabs2L6VMAy8ykmkDHpuHceRm6vwwYIxBDIiEJ0njqxayeDQAJGUlEoRBw6fxhqN1oYgCPjsZx8nDCOeeOIJ50uXqut1HlcB8jSwtlarRTfdfLPH6NREW1vsu5FVIz6gdvsvlBKttdMmKRwYC8Zojp+ZJFPah3HGGxKNsRajDdq7n4FKme2b13N64ngRRGitWbduLVEcc/L8DFtGR1DaOJ9vLUEg+fjHP04YRnz1q19FG91jK2q1WgSs9bgcyGq1Wq/VavPA6o46gLadFbLW0tfXV6irzSebacrliJEVQ5TiyPtBzclzMyRZhjUGbTRGGZQxaKXR2v3XbiesGRli2/halHILgI9tjdY025qJ87OsXdGPQKC1M2xaaz72sY8TBAFpmjqVpceDrAbmq9VqvVuSABeBTYW2+v/rdj1SSucjPXghBGmWsX3bJrZdP04chzy79yBZppBSILXAIMAGEFikFRAIl8QIkDI3YraYpBWdZ+bxLD6IKKyrNTz55JPFnlwmF93k8bAY5Flg82J/k29oaw0nT06QpZkPFS0D/RXWr1/Piy8d5eVXjxOXIiYnZ7l+62aXXWiN0cb/231WSmG8JF2ko0EIwjD0zxKYQCBEgNLKpW2213UBrF7tlG56erqYX9cZmz2eJSDfwCWZuBzRuxFj0dpitKXdbJNmiZ+AcaEcllarzfT0PKVSRKOZurTLA9TGuL/dAI0h04YsU+48a5Fh6PwtoLWLi/Pv8mDdWtBKEYYh3/vedymVyjz88MOoTC3Oxa8HjuUfus3eGdxm7cnMQfiIwyW/ggCL8AxG7sOcpcxjU2vcflW6C6B2+0xpTaY0WmkvUQPWJdfdeaejPgytdptMqcJguRm5Z/WqaQ/KIkRdLMlTOcgiFszpFf9gGYVIf9wEIANJmim2bx1n0+ha4lLEvudfoZ2kBUBjnGoapVBao7Tzm8436gJY0m77tMrFxYODAy6UnG+QpRngFiMIJJlSfOQjHwVcQhDIJezFWo9nCciTFFFPV8xoOxyLEIIgD6+8hRDA3Fyd8xdnKJUi5uYaCIG3oMpn/g6U0sZZUWMwRhUSFggGB4eLfWWNIYoisqxJvdkm826qe1y8eLETDMDiPTvq8fSCrFarF2q1ms4BYZ2TFgK0l+yaNWs7yuHV0lrLmXNTHHjxVUqlmNn5JvdK2WV4NNpoMu3BKoM1br8qY9FKI6Vk5aqRDhNgNKEMUEqTpIoss4V1zePkd73rXUgp+c1vflNQJAC1Wm0E0NVq9cJykgQ4U2TyXkzWip4EtgCoLZ0sztMTfoGM1qhMoZTCGkvmJaiVU1/j1VZ7I6SNwXornD9H+vBHACKXsDdooZR861v/kSiK2bHjRozpoWa24+xLMRaDvNDjGQtORrjMIcipDgvSIv3Krlszwq23bKMch7zyxilc5mMLcstog1G9quusrsZaQ5YmTE5OFnvSGsOqVSNgQSntFwu0tggRYKzlW9/6VicLET1h40aH49Igz+EtKdatOtaSZikL8/MkqS7CKutpCywMDla4ecUApVLE1Nw8SdImTROSNHNqqbTbg8rtS206ltboTqoWBLIIGa01xHHIyHCFOA6dtHF70GjNl7/8hLsuCIp96ccG4NzlQJ7C0wz5Pqz0xRw9Oc2/+9qPQISk7XlOH32GRn2Bvko/Qgjq9bpTWCFIkpRyHNFKMwRQKpVYObKWP3j/n2ICR44FnhwOggC8ZHKDlAftSabZsGaIDz54O5W+Ek9lR3ommrsPgTNUOWOAyz6evxzI150ydvOphqC8hjBYQSBjWuokpycm+PM/f4xvf/vbpGnGF77wb4iiGGtchmCsC97nF+b57Gc/y0ClzJ+8717nNvy+M967S+kBy4hAGgTWGxHhU72gYAHxwb6Uks9//l8SRRFf/OIXfQJgcgu8FfjB5UC+segzSrlViuKQUIaUShFxHHPo0CE/CcHevfv8ZLtWGmgnCUJISqWYlUP9Lq3Sim7HrX3Qvn79mlwu/rwO+55n/rnlFUHAhz/8jymVynzpS19a7D76F+PoAVmtVqfrjUbxOVOaUHYKNdpov9EFu3bt4sCBF0jTlHe+80FKcdxD/wdSMjc7x49//GO0NrRarUUpkedwcgJK++TcdHi33AS6FM2lazIISLTmox/9J0gpSdMU2bsnw2q1On1JkPmwnkTqXqDcLwosSWuB//Hf/ysz0+cx2vC9v/k2UsqeFQ2EIElTrGpw7vxFPv9XP/D3ywN+OmlcweDmyYFnJDzMQFjmG5a+yih1Hzru3bu3mNeiLKQH4CVAdlPzfl96nReBJSoPsvWOP2Gy0WBsx1awljcuNH0A0Yk8XNjbx8ab/ggZVWiZdUWwnYM02nSu88/V3oi4IfwxSxSGxEEHTKVSAaDRpXl+nFt8YBmQOcUNQoRA4HI86TjRMB7kuls/4MF3JmWhCKABdB7k+72lsia6ixQzxjqrWKytu1dudPIFN0XhSBDI6BJ1zJ5xcvGBpSCtBQxWRKh4GBXLAnr+tyv26UljusPk0LKkZHd1o5fyLIYQhGGZmeODzF/QBMtUFP04u/jAUpB+Yu0kYWa2SVoOe75b5vSlX1xiscWVTrqMkFzU5QjuRrNOmLkVqNfrpGnaLeGrUFcLxghu2zZMJFLiqGNQ8vTLdhmI/Hivb+2ShumwfT2GZplzu7TZKWh3tm8tiAU2PXQPSfMG8OW/LE3ZsWMHSZrmwcASN7gEZJIkTM/Msv26ley4bqiHejDewnZm4oxTQef7KZlF5xh/XgdPx0iZbr500SJ0pbLkBlGG1xX1TQCE6xeo15skSQZwfjEmsZg7yRsjwjDHf6VNJbrOWapvOTmVe4meXN4u6ZFYdOXVjyzLKJXKPY0R+VgiyTiOxcGDB78O/KJarf7smp70/3EcOnToYeCharW65LtlgwFcqjLaarVsmqbOJ9nFFcB8XFqKvbRf959uN7HovC7N6LS3LH9riyVJ0txnfowuGrJ7XArkFLC52WzSarcwOlucmLrndO3XfAkEFKxmzsJTGKbcXnUHGouMlv8+J88oPkMQxsVz833dbLfZNL4JXFlg2dLjpUC+Atw1MDBAuVziv/30Bc5PtQnD3ppGwRL3WNaOsbBQ5KadyXX3FeTZ/mKABmudR7bWWV2jMiZe+TkqrSOEpN1qccedd/Kxj3+McrkMjqH79bWAPAqsc80Iluk6TDUi706CHmVzK26LCequKCYvxFg6bSuOHvHnCF/RMg6iwPoQ0n2tjatFIgQq1ezf/zzt5hRBEFKv14niqGAXPMij1wLyAlB0/oRSEIUBoVDEsuXphs6+sV2xZ+4+O26lU6gtzpcubGy3EwKPSAiBpg8rJUjhqle+wgACG0Cl0kdAhSBwRHQpLmGMzndtiUW0x2VBVqvVpFar9US+lgBh5nnf/WMMDg/3xKlLTMMytqJjnhylKWXA2TNnSdMEQUAYBfzoyVO0zSACU+x3pym6s8cvPRrVajW5apB+nMVPyE3OcalxLFkxNOAzCF9j9LxNKY4JAuGpxJRSHPn+AoNSiigKyckpbQzbb7jOBwWGCxenaLbbiGigB6DWBiGCIqXKsox2u7P+eTrKMjHr1YA80wnfOmNocACjUqanZxzVYTQrVq5kxfAQzx04wkK9yfDgADu2b+LFQ6/RaqesWzPC2Ohann/hVZRSjG9cz+BghRdqr2GNZdv1Ywz0l110lDceeoDQibSyLGN8fJxdu+7lqaeeIk3Tbume4RLjciCnljtojaXZajE/P4+UEqUV5b4K/f2Gl468wfkL02wcXceW6zZw8PDrzM3VuWnHFlauHOKFl46SthNkKBkTq3nx0FGstawYrrBxdLW3zM49FAC7QsZGs8HDD72DJ554gkcffZQTJ47TJYVl53slkMfyfh3IrahxWUp3A5FxJl9rTblcolIp099fwhjjSuFxiPCF0yiUWN/wpI1xn7302mnKQqONlW2wjlXPS/ZxFGEt9Ff6+e1vf8snPvEJ9u/fz7ZtW7sleezNgJywuAA6J3YDD1bgyOYgEFjrsneE4L3v3IkQMDM7z5mzF3n7XTdjrSEMQ9I05YF7b8daSxyHyCDgwQfuAqBcitGZ5u+/dwcEJVSWcXFyhkAIwjDg9MWUV04o4jjmzJnTvHT4ZcrlMjfddCOd6hsTbwZkV4bdoSzylROORkMIRxtiLc/uPUi90WJqZpZ3/cFOtm0dd+7DuExEBoEzVD70kdI1TyRphgxDtm7dAkCaJpw7f9F1fvRF/OiXB3jxlYQkTdm8eTN/+g928swzz5CmabfNWMIIXBFktVqtt9otDy6PVBzXMzgw6C2rwFhLX18ZrTSTU7PMztVZaDRoJ21OnZuk3mi5qCWveXi1d1UuTX85ZmzNMBcnJ92zjKVcLrFiZBUTF2bZEEe02hlCBDQbTe5+6B385V99lUcffZTjx48VqVreH3CtkiyGtY5RD3CTrVQqxGUfK9i89UWxft0qhocHmJycBRFw8twM0/N11xyhtW+KcO5EKUW7nbB21TDja1eQpglYZwPCMEApxYmz01TKEYEI0MZQ6a/w7LPP8uijj7Jnzx62bLkup6MuOy4Psise7R5aazLf2ZETzAjB7W/bTiAFr78x4VjxQOADFufMhcD3RiCFq1y5djI8d+oqY0EQYI3x33dKFnEcMzExwcFDhymXy+zYsf1qZHR1ksyRGu0KLBcuXmDy4iQiCNDasmb1KoaGh/n10/tYWGgyO1fnve++p6hRFpL0UtS+6px6DQAIAlmU5IUQKJ1zv50VTtOU8fFxPvhHd7F7927SNMV0FRAvNYLLfkvHdeTGQyvtgubivr62YTRpktFupyRpRl5LzMEtBpgp7cvqupNSeY0AfPOE8oUgB7jZaLBr1y6+8Y1vsHPnTse5msW56dJxRUkuaemyrjYhpAAEgQgKI3TLTVtQ2jBx+rwH5Rsgij3ZDdCV27Uv3SmV4chkgw4lobHUFxok7YS8aaJSqbBn714ee+wx9u7dy+bNm5af9LWC9PlFUYUqMg3XtuQbl1zYNTjYD8Ds3IKTpHI1SOuLr4sBGt8BEgSCvr6+wkVFUYwxmoV6kyTLCmYwjmNOnTzJiy8eolwuc8O2bVcK2q8CpKfLcvo+sKC0ZtWKEUqlMvnKByIgU4o9+w+zUG8yPbPAQ++5x0lFKawxZNo1H6pMeekqlDZkWUYUxaxdP+qyDQNCWKZnF2gnijTrpGlpmjI2NsYfPvxB9uzZ6/bkVYC87J401tC9/Yxx6iuDgCiKkDJABtL1o9tOjw24JDnL3B7MtJNe0ZxkXDeWyhuXlKJRX6BRr9NsLpAk7Q7FYbTTJGNpNJrce9+9fPOb32TXrp3Um5d0jT3jCuqa8/wuvBPG0leOqfSVSNIMIWSR51lruP++OwE4+sZpyuUKUTMjCF1x1maub0B3N0VoV8pL2i0mJyfJCzx95RIiqpBlijRTGOMMUaVSYd/efXzmM59h//79bNw49ruDtPl+zOuICJ7e/SL9lT60UrSb07SaTUp9FbIsI8sy4jjk7NkphBDM1F0fTimO6RsYZnB4tX/bwIFMkpR221H8rrfOqT9CUIpD7r51C2PrVvD8QReWxqUSJ06c4MALBymXy1y/ZcvvDlLQqT4JDEE0wNMHLqCyBmmywMH/8x+44203snfffsbGxrj99tvRWhdNvDIIkEmTH//wp7zv4T/mA+9/L/Pzcz67cOo61F9BKUOaadwLcJZMBAyGAbfesJE4DlCZYwqzNGV0dJR3v+d91J57jiRLeytjbwZkB62r3ytrWblqHTKIaDVmGB4a5I477uClw0cYHx/nvvvu67F2Qgimp6f5X7/4JaPrVnH/229iZmam2G8CUNrQaiesX7+OvJSQ+8XMKKKoQ0M2GnU++Icf5Ct/+VUe/dSneP3oa2+BdfXD+TFDHAnXIo178wcEUeRaraUM6K9UXGbgh5SSOIqKvti5+XkW6nVyCi9vjMpLBa6a3U1Ag9EBxmr/jkmFffv28/jjj/NcrcaGDZd8MelaQOYdkjkZnHdBOhVJkjq7dz+DylqcPPEGP/vpj1z/an51ENBqtShFhr3Pvcbjf/EDsqxV0JTdXG1nRbvVTyCEZaEl6OsbIIpiTp06xauvOeZx86a3JBiwHVDWFIwACGQYc+PdH6HZrPO2++8nTVJOzCU9Oaf1LNONu25CxsPMJ0NoVSnYdNPVGJj7YmtN1yI4lxVFEcKmPlCIiEtlms3mVanqVYAEMCBjiGKsLPhyAgNrttzj27U7Jb2CLvETt/hGQ6O9indAFWVAX1vQJmfk/ZO9BgkhMarF+aDD917LuIILAWsMzQzms9CzzaKYmFD5WV3Hg7D7kxsSVw6n/7Kh9KX6AYSU6KRNkma0mk0CGdFqtXr2/+XGFSUZBCHjqwQmnSeOexuSetTFx5edOohd/rziWKeO0jnWc0bxWSAwMuPWm7eTJRtASJIkYdPmTT29Q5caS4qw3WNyctJOT09RiiVaZT17rbuanNdMrLeYQE9FuruibPM6Qs6O967a8gbJq70MS+BLFLkPz5Ti5ptuYXjF8CWV5LKS7O/vd/0z/nX8KyWnlxp5aeDK53WGXXIkdzW9x5IkodxXvvx9r8ZC1Wo1CewFHqxWqwtXvOD3PGq12iDwv4Gd1Wp1aeF00bgiMwDgb3QcuOl3mdxbOG4Cjl8NQLgWjsf1rG3HSdQdmJ625VJEpb+Ct8WXuNQWhsl9vJRRsp5m8S3aUaXo9JienkYIwcqVK4Wfx5IeukuNawF5DNcwW4xSKebM+RmOTRwjzF9bKKrInRaVwlfmvzTRZaA6L7bklSxT1Dwbs6dQWQOtDbfddhs333xL/uhR/FuubzXI00BPa0V/fz/np87z46fOE0chWaaKVrO88Ko9bZIH3cVx416VyEvpcSx9q7ZxPXhC8vyT32Tu4lFa7Yyvfe3fs2vXPfmjNwK13wfIk8Af9x4ySCmIo5Cto7Bl44grgecuxvftaM/N5hSj8G8pzM3OkaYJmbIcPp5ho9CHehZrA/r7K6hmP2GkCXoDhY243yx5y0G+BOzoPeRUMlOatSN93H/3FhrNzL+nLLu6j315PPALoA2BDEjTdUSh4MTEBWpHXiEuDxSVrJyRVqrD6HWNHX4+bznISUDUarWharU634XT3UiGLMwvMHH6PFIGbLl+C795+gAXLk7zjr93J08+tY+bd1yPkIIXD77Ggw/cxb7njrBqZJBN46MobQm0ca2fxoIwNJoNvv61r/HLv/01CwsLgKVWe27IrQCTVzvxq3IhANVq1QALQBfn0OnBcW8EKLIsJUsz0lQxNNTP6lUraLXbWGNoJ23SxDX6NZstsAaVaZrNJmGgEDYBk4BNAdf48J2//mv27N1HqVzOrfIWYMHP56rGtUgSnEXbBLxQgPTsuttrAVKGrpZhLatWDtNqtVHa8KF/+BBKud8muPO2HWhj2Hr9OEo5LvZzn9rgXlGcmiEMBf/l58dQRjA3N0+73S5qJv75x69l0tcK8hBwG/AT91H0SHFgcIANo+73BeIo4tDhoxx++Rjvffc9TEzO0Wi2HQ3pX/ltJylbxtYgdEKSJAwM9LNy7SpUmmC0ptVs8fiX/jU/+/mvaNTruXt9G9ewH98MyJPAvd0HLJ0OqyiKqFRciV0pzZ2338jY6BpkKDl+dopGo+lUOlVkaUq90WRksMJgydJutymXYqbbGcaXDPoH+nnkkUfQRvDlL/1F/shNwO5rmfRV78kukF2cg3PszlAEXLxwkVdfeYWjr79OmiW89PIb/HbPQdpJSuA6mFxPutGFPzS+3B7HMYGURXeXNg74pz/9aR544AEazWZOjWziMlXl5ca1SvIEMN6NMXfunRdCDYGvaK1fs5IkScC6H1DIMuX52ZQkcdLUSqGU61fVWtNuJRiTFoUml0j3NLOP+3n83kAe7wFZlO2M52JiBgb6fU4kCENJuVTCWkuaKUcsK+UBZmS+D2d4eAVRnFAuxyycnMaaDIGlXC7z9a9/HW0EDz30nm6Qx69l0tekrt5sn6zVancAhVU11vXdDA0PMTo2xvr1G4jjmOMnz3HoyDHSrPOWXZJkpGnqpJk6Rx/HJeJSTByFpKkiTd07zPV6ne985zt86EMfYn5+IQ8ITl6L+4BrlyS4l9auAw74sBRr3dsH01NTtBJX2AmkZOPoCJVKyML8LOem5tAG0lSTZilZpmg0WiRJm4sXz1NvtBga7KdSjshS90NE5XKZr3zlK0xOzfJnf/bJ7udf03gzII97kIDbk+VYcvBogxdeqXHm9d8SJCeZma1z1113+tK4K8ju2fMs/+jD/4xNO7bTajVJ0oyVw4Mo7V48SzPNrTeM0W63+cmTp7wqD1FvtLv53ON/FyBPUPwEnIt4tFaE8QClygBJ9izjq1Zw7vxFdu682//KhFuMZ57+DXfevJl7763SbLomwCRJyXzfgPsdrICAyP3sVNLmkX/6GL/41a9ptVq5ul6T0XmzIA/gsxHrJ+b64DRWu5Dt9OmzKKXZvfvZztvjvk3tP//wWX717AVUlhY/r5EDdByr8FVm9xr+v3jsMdLM8LnP/avu5//eQR4nV9c8QQ5CLJIsSxi74UHqC7ezcnvEsfkF7/fceTfccwtzpo+pkwJLCaN9N7O1qLyz2YK1AX19ZQIBYRj2/JgffxfqWq1Wj9dqtevA/2aVgdk0Js1J5bCPeNVqsLBiBXkJpRh2mYb9pcO9fHbsOUujXqedujAwCAKq1erxa53zVbF1lxqzM1P2+KnzvHZiBulzxW5utvgvj4y6/93Fvbrzc77Hk8pCUJ86hkobaGO56cYb2XXPPYyMrLq2t2J+V5DT0zM2EIbB/s5bsD3vaXXY4Z7CTmd0v9pEQS7n34XxACIIEQLmZucIpGRkZOSaQf4/m01ovHcJVYkAAAAASUVORK5CYII=”
$imageBytes = [Convert]::FromBase64String($base64ImageString)
$DPIScalingIMG = New-Object IO.MemoryStream($imageBytes, 0, $imageBytes.Length)
$DPIScalingIMG.Write($imageBytes, 0, $imageBytes.Length);
$base64ImageString = “iVBORw0KGgoAAAANSUhEUgAAADIAAABhCAYAAACUJfLoAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAOdAAADnQBaySz1gAAABZ0RVh0Q3JlYXRpb24gVGltZQAwOS8yNS8xONGbuJIAAAAcdEVYdFNvZnR3YXJlAEFkb2JlIEZpcmV3b3JrcyBDUzQGstOgAAAIq0lEQVR4nNWc3W4ctxXHfyPICNJ8WDUcS7L1MY5hJ75oapRXvfLmCaqLXhao2heo+wS1n6B+g8pALwPEQe+L9VVvRMABkhQJXGu08ledxLVspU3QutMLkrscLj9Xu5H7BwYacsjD81+SZw55OKr4/0DPSd8Gnh6BHhNhE6VwG7j6h23gZkR4ybUZkL+glUzV37IrzW9vb68Aj4QQ/8lhUVXVpZxyGWg8eYbEj3Pqt22LlHIeWJoHPgR+AXyeqcB6ZrkU+p68q4yTuKHLNjrdAy6hRgbAOeCP88Ad4AwZRKqq6nmyb6XqedB48mrgN07e+23b9p08N30GuDMP3CP/V66d9D7jFmVSbDjpGx4SPqwD9+aAL4DzmY3VTvp2Zr0cuESuZ9Y7D3wxB+wBy5mVek56mkQu24m2bXNlLwN7c8AAWMqs5FqswxK5wsicdlBVVRu4aqfoEjAY9og2Y0FUVbUAHHeymwkJGLhKJdG27bBNrbPqESHEc9SkXUzI8L0/+qWKZMiMwbWQi8C+EOK56YUGeBe4X9DobqESPmyhfoxNupbzBv7edvPeNXmGyENgJdGoS2Qdz9iO4LeMW6It/XfTyb+eOdlXULozpzMeAKcTleoMwTHEFOu8xwotVofIHmkilxPPUwgp13PSHxfIPIOyusOh9Rnw61Bpj8mDctcktH5wh2xTILNG6T4kch84JaU8JoT4d0ZjMD3XpHbSWcNKSnkMOIU2UHMAQogD4BlwMlDPJTKJoxiCK7ufWe8k8EzrPpwjAF8Ca5mNNZmN5WBS2WsonYEukYeEveB6wsZSGPMW7Dd3AutoiwVdIndRixQf3MVOP7OxFA4zZN8GdkzCJvIANXk6CCympuX1urJL5C5ieSI2kT08RPAsptq2ndZWjCu7Kah7CqUz0CUywP9SdBub5hrkMLJPo1+GYBERQjwGXkgpTzgVeodoLAXXW8h9h5wAXmidgW6PgJonF5y8aS+mQnJ3yd89vIDSdQiXyGMsL3hGiymD+hByV1C6DuESeUR3/T7mmmTubORg0jc6KB0f2RkukT2URxlqbBqLqZDspqDuGSyLBSOn0eBvwM+t9E26c2KaO+BX6S60SubeOeADO8Mlchd4zSS0u9CUaFeAwxiN11C6DtEZWkKIJ8C8lPLNQzQyU2jd5rWuQ7hzBOAJYS/4ZcAaSscOfEQeoRyylxVv41gs8BMZcPiNhlmixnJNDHxEHpLerDtKLGKtQwxCQyu1x3WUWCFzaN0F3pi5OpPjDRzTC34ifweOSSkXZq5SIbROx1A6djBGRAjxLWpH5WU0wWuonZNv3Qe+HgH4ipdznqygdBtDKCbymPQW6iywUFXVBmoxV+u8Bui3bbuF8nq/9FUMEfma/ADp1cxyNvqMu+0bqN15d/1jVpFbKHLe0EeIyOfATzKV+l1mORtP6RLpoeL9IRgHcxH4s69AaI7cIe+l2Mso44Pr+W5Z9zeAs23bVsAPgV8xOhywqHUbQ2yOvCKlfFUI8a+IQvbiaNdRKAabyAajYXyrbdtN80BvO20BSClfBV7BWeIaeIkIIb6TUn6Dipju+Mpo1I5yVyNlQ+hZ91uRckvAN0KI73wPY5Hch6jdihgRu0dKF0o9fdkHBXpOLKbR1gqty5iPZRAj8oC05bKJ9BNlXVwBfubk/dJJX7Pu13C2gGyEJjukTXBN11Q2kbI+5ISmbZm11smLWI/sJBqrnfRmXCduM7I+pvwl4Pc6/TGql9w6BieI7NbHiNwD3oo87znp1PvkGl0ifUfGTdQbPFT/La2TF7GhNQBel1L+IPC8jtT1wWcM6sRzALQOr+NZGRoEe0QIcaBN8DJqv8uFPew+iikSUdSW0UTqLqNM70GoQPQgDWpyreInYkexrjNZFMuWEfshVolMdIgPLXA2tQ08BzQn2WyzZaQOCYxtWrtIEfkH/rlg55WEA0IyUj9ErXUJIkXkM1S3usgd2zGUyFjVugSRIrKD/3Rdz7rvJ2SEUCIj5fMliQzwn4aorfsmISOEEhkniZheSBARQvwTOJBSutFe23WZdFfdyNgnQkS3faB1CSLVI6DephdNwhN3n4SILSNV/yKRN7pBDpEndAOkJWYzhBL3/wKe3XcXqRciKPNqDy07ijVpBMuW0STKniIj5JdD5D7W0DJRrKqqMqoG0ZBvJE6TML2QP0eOcnd+kSnNkb9ytPGSWusQRZKI9jj3pZS5x86nBt3mfszrNcjpEYifrpslOqfkYsglsk/4UNoscU63nUQukU/J/8Zkmjiv204il8geRxNmWME5qhFCCZHcj2WmiWWmTKTkY5lpYomE12uQS+RrYE5K+b0FSXVbcyTW6gZZRIQQL1AuxcVE0WniItDotpPI7REY94JnjSyv16CEyA7dQ2mzxmkKVp8lRO4zfSI9Rp8n9enGV1bIcBYNctx4gwHjYQAXqU+VbjFaHW4Cf4iUXSEeV+yghMinwDuR5z3rPrRrbjaxFxgdA7ym7xf0ZfAOmW91KCPyFVBJKd8UQjzzPDfL113SQdINVGxll9FwGq429Sm5isDhAB+y54gQ4r/Ac+BsoEit/zYJUVcYKW++X+/TPah5Fniu28xCyWQHpWTqY5l+QoYdxT2OOhBwme76f43C/bKSoQXwCfAe8CfPM0NkE/95ehON6qGUPo6KoW95ZP2IgvkB5UQGwE89+TWjeOI647HHp4Gyoa2gNeAvJYqVDq0B/qFVW/eV59oIlI0RyXIWDUqJ7OLfne/pvzkbdjllVyk8vj7JZPcRqa3nKeSUXc2UNUQREW0OB1JKN2Jl0jn7wNGyWvagxPRCeY+AiifWTp6JBfYz6qfK1vhjllFMQqShS6Qk8pRTts6QM4ZS8wtqEtrmtQHet+5jyCm7zgTfqUxC5DZdL9g9DRdDTtlLqLh9EaYxtKaNmknCeW3bFl/b29sl/yKhCNvb2+0kOv0PoROqsnnksEIAAAAASUVORK5CYII=”
$imageBytes = [Convert]::FromBase64String($base64ImageString)
$FontSizeIMG = New-Object IO.MemoryStream($imageBytes, 0, $imageBytes.Length)
$FontSizeIMG.Write($imageBytes, 0, $imageBytes.Length);
$base64ImageString = “iVBORw0KGgoAAAANSUhEUgAAAB8AAAA5CAYAAADOW/ASAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAOdAAADnQBaySz1gAAABZ0RVh0Q3JlYXRpb24gVGltZQAwOS8yNS8xONGbuJIAAAAcdEVYdFNvZnR3YXJlAEFkb2JlIEZpcmV3b3JrcyBDUzQGstOgAAAByElEQVRYhe2W23GDMBBFD578xx1EJdBBKIESXEJKoIO0QAlJB6QD3AHuwB04HxaTRZaQVgM4H9wZTfTae7MvmYL1cQsdFFqDCFy+WZ7DgsJqnpeFhGDqtU/4Icop4qHUaODl8IV9MywZdgjn2d0v4Mmeu+JLVXoSVH2ZyREs2H8V9k0Rq/YlejwI6fkSxabimAv7ai9bivjq2MWfKr55pUtxF6tX+pz4Jniq+I4dO3bsWAWrfp0CR6AGKsDYvQHogNb36dxkiHR2SNRAC7w6++/2b+sjumWMD4ejUt5PMgqNyuEZxFnLX8iPwGlcu2EvxfxCIDQe9GJeA292/mPFRlwlpytuxLwnL/+VmLeBO15x6XmPDpUdtbNnxHqY+4euhPMYwxfx2mikgfyGM0zbYlCKl/ErU04ZduNcPEWIeu7eyvsl8GnXZx5bKpjKBl17NREO3/kEbtg18HlhIucTyLDLnH0nGPvOJccQE5eYe7FyOJJROobHDGHJkfRGjDk3Yu/Cvd+1kBwq8excCag5RvFK7HWZ4moOX9iHTPFsDllsKc/kHIeqXioyWyTA0aUaHZh6es4Uz/opLrjnytj1VWMsIDkGEnP+C+cbmFyg8s/zAAAAAElFTkSuQmCC”
$imageBytes = [Convert]::FromBase64String($base64ImageString)
$FontSmoothingIMG = New-Object IO.MemoryStream($imageBytes, 0, $imageBytes.Length)
$FontSmoothingIMG.Write($imageBytes, 0, $imageBytes.Length);
#Define form icon from Base64
$base64IconString = “AAABAAEAEBAAAAEAIABoBAAAFgAAACgAAAAQAAAAIAAAAAEAIAAAAAAAQAQAAAAAAAAAAAAAAAAAAAAAAABHz6uMTdKt35Liyt9T07DfSNGr31rVst+a483fq+jU33vcwd9a1bPfatm534Pew9963MDfft3C33LavN9i17XDSNGqxVrVs/+N4cj/StGs/0nRrP9g17X/ft7C/4rgx/+P4sn/kOLJ/2nZuf9s2rr/nuXP/5rkzv993cH/adm530jRqtpn2Lj/pObS/1rVsv9a1bP/cdu8/3ncwP933L//d9y//4Dew/+j5tH/renW/83w4//K7+L/jOHI/3ncwN9I0avfbtq7/8rv4v+j5tH/lePL/5zlzv+h5tH/luPM/4LfxP90277/fd3C/8Tu3//W8uf/0vHl/5bjzP9h1rXfR9Cq3WrZuf+67Nv/XNa0/0zSrP9b1bP/a9m6/2rZuf9f1rX/cNq8/5Tjy/+m59P/pObS/6/p1/993cH/lePL30fRqs5f1rT/surY/1fUsf9I0av/SNGr/0/Trv9u2rv/kuLL/4/iyf9j17b/jeHI/13WtP+V48z/X9a1/2zZut9I0KuqUdOv/6fn0/9e1rX/SNGr/0rSrP9w2rz/nuXP/3Tbvf9X1bH/adm5/4TfxP9Q06//iODG/3HbvP9V1LHfR9Gra0jRq/yJ4Mb/bNm6/0/Trv993cL/i+HH/17WtP9J0az/bNm6/4PfxP923L7/VdSw/3vdwf+Q4sn/SdGr30bSrChI0arfYNe1/5jkzf+c5c//gN7D/1fVsf9e1rT/T9Ku/3fcv/+X48z/W9az/1fUsf923L7/qOfT/1HTrt8/v78ESNCriUnQq/2M4cj/u+zc/1bUsf9N0q3/TNKt/03Srf9z273/i+HH/1vVs/9U1LD/a9m6/7Dp1/9k2LbfAAAAAEvSrCJI0KvNUtOv/5Liyv9c1rT/TdKt/2HXtf9T1LD/h+DG/2vZuv9p2bn/TNKt/1bUsf+q6NX/gd7D3wAAAAAA//8BSM6oSkjRq+VW1LH/dty//1fUsf9N0q3/YNe1/33dwv9V1LD/WNWy/0jRq/9J0av/lOPL/6Xm0t8AAAAAAAAAAD+/fwRG0axaSNGr5VHTr/9r2br/ddu+/6Xn0v923L//S9Ks/0rRrP9L0qz/XNaz/4zhyP/J7uHfAAAAAAAAAAAAAAAAP79/BEnRq0lI0KrNSdGs/F/Wtf+M4cj/nuXQ/5Tjy/+V48z/neXP/7Xq2f+16tn/oeXR3wAAAAAAAAAAAAAAAAAAAAAA//8BRdCpIUjRq4ZH0KrdSdGr+0/Trv9b1rP/Zdi3/2fYuP9g1rX/VNSw/0rRrN8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/v78ES86sJUnRq2VH0ayjR9Cqx0fRq9VI0avWR9GqzkjQqbRH0al1AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAACAAAAAwAAAAOAAAADwAAAA/AAAAA==”
$iconimageBytes = [Convert]::FromBase64String($base64IconString)
$FormIcon = New-Object IO.MemoryStream($iconimageBytes, 0, $iconimageBytes.Length)
$FormIcon.Write($iconimageBytes, 0, $iconimageBytes.Length);
#Define Citrix session ID
$keySessionnr = “HKCU:\SOFTWARE\Citrix\SessionSfr”
$CitrixSessionID = (Get-ChildItem -Path $keySessionnr -Name -ErrorAction SilentlyContinue)
#Define Citrix session display resolution
$keyResolution = “HKLM:\SOFTWARE\Citrix\Ica\Session\$CitrixSessionID\Connection”
$CitrixDispHRes = (Get-ItemProperty -Path $keyResolution -Name “HRes” -ErrorAction SilentlyContinue | Select -exp HRes)
$CitrixDispVRes = (Get-ItemProperty -Path $keyResolution -Name “VRes” -ErrorAction SilentlyContinue | Select -exp VRes)
#Read Font Scaling Size from registry
$keyHKCUDesktop = “HKCU:\Control Panel\Desktop”
$LogPixels = (Get-ItemProperty -Path $keyHKCUDesktop -Name “LogPixels” -ErrorAction SilentlyContinue | Select -exp LogPixels)
$LogPixels = $LogPixels * 1.041666666666667
$LogPixels = [int]::Parse($LogPixels)
#Read DPI Scaling from registry
$keyHKCUDesktop = “HKCU:\Control Panel\Desktop”
$DPIScaling = (Get-ItemProperty -Path $keyHKCUDesktop -Name “AppliedDPI” -ErrorAction SilentlyContinue | Select -exp AppliedDPI)
$DPIScaling = $DPIScaling * 1.041666666666667
$DPIScaling = [int]::Parse($DPIScaling)
#Read Font Smoothing configuration from registry
$keyHKCUDesktop = “HKCU:\Control Panel\Desktop”
$FontSmoothing = (Get-ItemProperty -Path $keyHKCUDesktop -Name “FontSmoothing” -ErrorAction SilentlyContinue | Select -exp FontSmoothing)
IF ($FontSmoothing -eq “2”) {
$FontSmoothing = “ON”}
Else {
$FontSmoothing = “OFF”
}
#Read Session ID from system
$SessionId = ((quser | Where-Object { $_ -match $UserName }) -split ‘ +’)[2]
#Generated form objects
$form1 = New-Object System.Windows.Forms.Form
$icon = [System.Drawing.Image]::FromStream($FormIcon, $true)
$font = New-Object System.Drawing.Font(“Microsoft Sans Serif”,10,[System.Drawing.FontStyle]::Regular)
$fonthead = New-Object System.Drawing.Font(“Microsoft Sans Serif”,10,[System.Drawing.FontStyle]::Bold)
$fontvalue = New-Object System.Drawing.Font(“Microsoft Sans Serif”,10,[System.Drawing.FontStyle]::Bold)
$labelhead1 = New-Object System.Windows.Forms.Label
$labelhead2 = New-Object System.Windows.Forms.Label
$labelctxres = New-Object System.Windows.Forms.Label
$labeldpiscaling = New-Object System.Windows.Forms.Label
$labelfonsize = New-Object System.Windows.Forms.Label
$labelfonsmooth = New-Object System.Windows.Forms.Label
$valuedpiscaling = New-Object System.Windows.Forms.Label
$valuefonsize = New-Object System.Windows.Forms.Label
$valuefonsmooth = New-Object System.Windows.Forms.Label
$imgdpiscaling = [System.Drawing.Image]::FromStream($DPIScalingIMG, $true)
$imgfontsize = [System.Drawing.Image]::FromStream($FontSizeIMG, $true)
$imgfontsmoothing = [System.Drawing.Image]::FromStream($FontSmoothingIMG, $true)
$radiogroupboxdpi = New-Object System.Windows.Forms.GroupBox
$radiogroupboxfont = New-Object System.Windows.Forms.GroupBox
$radiobuttonfont = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfonts = New-Object System.Windows.Forms.GroupBox
$radiobuttonfonts = New-Object System.Windows.Forms.RadioButton
$buttonApply = New-Object System.Windows.Forms.Button
$buttonLogOff = New-Object System.Windows.Forms.Button
$InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState
$FontFoot = New-Object System.Drawing.Font(“Microsoft Sans Serif”,7,[System.Drawing.FontStyle]::Regular)
$labelFoot = New-Object System.Windows.Forms.Label
#———————————————-
# Call functions from apply button
#———————————————-
$ScriptApplySessionScale = {
Add-Type @”
using System;
using System.Runtime.InteropServices;
using Microsoft.Win32;
public class Setter {
[System.Runtime.InteropServices.DllImport(“SHCore.dll”)]
internal static extern bool SetProcessDPIAware();
}
“@
}
#———————————————-
# Call functions from radio buttons
#———————————————-
function dpi150 {
Set-ItemProperty -Path “HKCU:\Control Panel\Desktop” -Name AppliedDPI -Value 144
#$form1.Dispose()
#GenerateForm
}
function dpi125 {
Set-ItemProperty -Path “HKCU:\Control Panel\Desktop” -Name AppliedDPI -Value 120
#$form1.Dispose()
#GenerateForm
}
function dpi100 {
Set-ItemProperty -Path “HKCU:\Control Panel\Desktop” -Name AppliedDPI -Value 96
#$form1.Dispose()
#GenerateForm
}
function font150 {
Set-ItemProperty -Path “HKCU:\Control Panel\Desktop” -Name LogPixels -Value 144
#$form1.Dispose()
#GenerateForm
}
function font125 {
Set-ItemProperty -Path “HKCU:\Control Panel\Desktop” -Name LogPixels -Value 120
#$form1.Dispose()
#GenerateForm
}
function font100 {
Set-ItemProperty -Path “HKCU:\Control Panel\Desktop” -Name LogPixels -Value 96
#$form1.Dispose()
#GenerateForm
}
function fontsOFF {
Set-ItemProperty -Path “HKCU:\Control Panel\Desktop” -Name FontSmoothing -Value 0
#$form1.Dispose()
#GenerateForm
}
function fontsON {
Set-ItemProperty -Path “HKCU:\Control Panel\Desktop” -Name FontSmoothing -Value 2
#$form1.Dispose()
#GenerateForm
}
function buttonApply {
Add-Type -AssemblyName PresentationCore,PresentationFramework
$oReturn=[System.Windows.Forms.MessageBox]::Show(“You must sign out of your Citrix session to apply these changes. `nSave any open files and close all programs before you sign out. `n`nTo sign out click on OK”,”Sign out to apply settings”,[System.Windows.Forms.MessageBoxButtons]::OKCancel)
switch ($oReturn){
“OK” {
#write-host “You pressed OK”
logoff $SessionId
}
“Cancel” {
#write-host “You pressed Cancel”
$form1.Dispose()
GenerateForm
}
}
}
function buttonCancel {
$form1.Close()
}
#———————————————-
# Call form functions from button handler
#———————————————-
#Call funtion dpi150
$handler_radiobuttondpi150_click= ${function:dpi150}
#Call funtion dpi125
$handler_radiobuttondpi125_click= ${function:dpi125}
#Call funtion dpi100
$handler_radiobuttondpi100_click= ${function:dpi100}
#Call funtion font150
$handler_radiobuttonfont150_click= ${function:font150}
#Call funtion font125
$handler_radiobuttonfont125_click= ${function:font125}
#Call funtion font100
$handler_radiobuttonfont100_click= ${function:font100}
#Call funtion fontsOFF
$handler_radiobuttonfontsOFF_click= ${function:fontsOFF}
#Call funtion fontsON
$handler_radiobuttonfontsON_click= ${function:fontsON}
#Call funtion button Apply
$handler_buttonApply_Click= ${function:buttonApply}
#Call funtion button Cancel
$handler_buttonCancel_Click= ${function:buttonCancel}
#———————————————-
# Form code to ganerate gui
#———————————————-
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 373
$System_Drawing_Size.Width = 516
$form1.Icon = [System.Drawing.Icon]::FromHandle((new-object System.Drawing.Bitmap -argument $FormIcon).GetHIcon())
$form1.Font = $font
$form1.ClientSize = $System_Drawing_Size
$form1.DataBindings.DefaultDataSourceUpdateMode = 0
$form1.Name = “form1”
$form1.Text = “Session Scaling”
$form1.FormBorderStyle = “Fixed3D”
#Form lable
$labelHead1.Text = “Session DPI scaling and font size”
$labelHead1.Font = $fonthead
$labelHead1.Location = “15,15”
$labelHead1.Height = 20
$labelHead1.Width = 486
$labeldpiscaling.Text = “Configured DPI scaling:”
$labeldpiscaling.Location = “15,35”
$labeldpiscaling.Height = 20
$labeldpiscaling.Width = 190
$valuedpiscaling.Text = “$DPIScaling%”
$valuedpiscaling.Font = $fontvalue
$valuedpiscaling.ForeColor = ‘Green’
$valuedpiscaling.Location = “208,35”
$valuedpiscaling.Height = 20
$valuedpiscaling.Width = 53
#Radio button DPI scaling
$radiogroupboxdpi.Location = ‘15,55’
$radiogroupboxdpi.size = ‘243,120’
$radiogroupboxdpi.text = “Choose session DPI scaling:”
$radiobuttondpi = New-Object System.Windows.Forms.RadioButton
$radiogroupboxdpi.Controls.Add($radiobuttondpi)
$radiobuttondpi.Location = ‘55,20’
$radiobuttondpi.size = ‘80,20’
IF ($DPIScaling -eq “150”) {
$radiobuttondpi.Checked = $true}
Else {
$radiobuttondpi.Checked = $false
}
$radiobuttondpi.Text = “150%”
$radiobuttondpi.add_Click($handler_radiobuttondpi150_click)
$radiobuttondpi = New-Object System.Windows.Forms.RadioButton
$radiogroupboxdpi.Controls.Add($radiobuttondpi)
$radiobuttondpi.Location = ‘55,55’
$radiobuttondpi.size = ‘80,20’
IF ($DPIScaling -eq “125”) {
$radiobuttondpi.Checked = $true}
Else {
$radiobuttondpi.Checked = $false
}
$radiobuttondpi.Text = “125%”
$radiobuttondpi.add_Click($handler_radiobuttondpi125_click)
$radiobuttondpi = New-Object System.Windows.Forms.RadioButton
$radiogroupboxdpi.Controls.Add($radiobuttondpi)
$radiobuttondpi.Location = ‘55,90’
$radiobuttondpi.size = ‘80,20’
IF ($DPIScaling -eq “100”) {
$radiobuttondpi.Checked = $true}
Else {
$radiobuttondpi.Checked = $false
}
$radiobuttondpi.Text = “100%”
$radiobuttondpi.add_Click($handler_radiobuttondpi100_click)
#Image dpi scaling
$imgdpiscalingbox = new-object Windows.Forms.PictureBox
$radiogroupboxdpi.Controls.Add($imgdpiscalingbox)
$imgdpiscalingbox.Location = “140,74”
$imgdpiscalingbox.Height = $imgdpiscaling.Size.Height
$imgdpiscalingbox.Width = $imgdpiscaling.Size.Width
$imgdpiscalingbox.Image = $imgdpiscaling
#Form lable
$labelfonsize.Text = “Configured font size:”
$labelfonsize.Location = “258,35”
$labelfonsize.Height = 20
$labelfonsize.Width = 180
$valuefonsize.Text = ” $LogPixels%”
$valuefonsize.Font = $fontvalue
$valuefonsize.ForeColor = ‘Green’
$valuefonsize.Location = “433,35”
$valuefonsize.Height = 20
$valuefonsize.Width = 60
#Radio button box font size
$radiogroupboxfont.Location = ‘258,55’
$radiogroupboxfont.size = ‘250,120’
$radiogroupboxfont.text = “Choose font size:”
$radiobuttonfont = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfont.Controls.Add($radiobuttonfont)
$radiobuttonfont.Location = ‘55,20’
$radiobuttonfont.size = ‘80,20’
IF ($LogPixels -eq “150”) {
$radiobuttonfont.Checked = $true}
Else {
$radiobuttonfont.Checked = $false
}
$radiobuttonfont.Text = “150%”
$radiobuttonfont.add_Click($handler_radiobuttonfont150_click)
$radiobuttonfont = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfont.Controls.Add($radiobuttonfont)
$radiobuttonfont.Location = ‘55,55’
$radiobuttonfont.size = ‘80,20’
IF ($LogPixels -eq “125”) {
$radiobuttonfont.Checked = $true}
Else {
$radiobuttonfont.Checked = $false
}
$radiobuttonfont.Text = “125%”
$radiobuttonfont.add_Click($handler_radiobuttonfont125_click)
$radiobuttonfont = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfont.Controls.Add($radiobuttonfont)
$radiobuttonfont.Location = ‘55,90’
$radiobuttonfont.size = ‘80,20’
IF ($LogPixels -eq “100”) {
$radiobuttonfont.Checked = $true}
Else {
$radiobuttonfont.Checked = $false
}
$radiobuttonfont.Text = “100%”
$radiobuttonfont.add_Click($handler_radiobuttonfont100_click)
#Image font size
$imgfontsizebox = new-object Windows.Forms.PictureBox
$radiogroupboxfont.Controls.Add($imgfontsizebox)
$imgfontsizebox.Location = “140,18”
$imgfontsizebox.Height = $imgfontsize.Size.Height
$imgfontsizebox.Width = $imgfontsize.Size.Width
$imgfontsizebox.Image = $imgfontsize
#Form lable
$labelHead2.Text = “Font smoothing”
$labelHead2.Font = $FontHead
$labelHead2.Location = “15,180”
$labelHead2.Height = 20
$labelHead2.Width = 486
$labelfonsmooth.Text = “Font smoothing is turned:”
$labelfonsmooth.Location = “15,200”
$labelfonsmooth.Height = 20
$labelfonsmooth.Width = 180
$valuefonsmooth.Text = “$FontSmoothing”
$valuefonsmooth.Font = $fontvalue
$valuefonsmooth.ForeColor = ‘Green’
$valuefonsmooth.Location = “200,200”
$valuefonsmooth.Height = 20
$valuefonsmooth.Width = 60
#Radio button font smoothing
$radiogroupboxfonts.Location = ‘15,220’
$radiogroupboxfonts.size = ‘250,120’
$radiogroupboxfonts.text = “Turn font smoothing ON or OFF:”
$radiobuttonfonts = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfonts.Controls.Add($radiobuttonfonts)
$radiobuttonfonts.Location = ‘25,50’
$radiobuttonfonts.size = ‘80,20’
IF ($FontSmoothing -eq “OFF”) {
$radiobuttonfonts.Checked = $true}
Else {
$radiobuttonfonts.Checked = $false
}
$radiobuttonfonts.Text = “OFF”
$radiobuttonfonts.add_Click($handler_radiobuttonfontsOFF_click)
$radiobuttonfonts = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfonts.Controls.Add($radiobuttonfonts)
$radiobuttonfonts.Location = ‘25,75’
$radiobuttonfonts.size = ‘80,20’
IF ($FontSmoothing -eq “ON”) {
$radiobuttonfonts.Checked = $true}
Else {
$radiobuttonfonts.Checked = $false
}
$radiobuttonfonts.Text = “ON”
$radiobuttonfonts.add_Click($handler_radiobuttonfontsON_click)
#Image font smoothing
$imgfontsmoothingbox = new-object Windows.Forms.PictureBox
$radiogroupboxfonts.Controls.Add($imgfontsmoothingbox)
$imgfontsmoothingbox.Location = “120,45”
$imgfontsmoothingbox.Height = $imgfontsmoothing.Size.Height
$imgfontsmoothingbox.Width = $imgfontsmoothing.Size.Width
$imgfontsmoothingbox.Image = $imgfontsmoothing
#Session display resolution
$labelctxres.Text = “Citrix Session Resolution: $CitrixDispHRes/$CitrixDispVRes”
$labelctxres.Font = $FontFoot
$labelctxres.Location = “278,220”
$labelctxres.Height = 20
$labelctxres.Width = 250
#Apply button
$System_Drawing_Point1 = New-Object System.Drawing.Point
$System_Drawing_Point1.X = 275
$System_Drawing_Point1.Y = 285
$buttonApply.Location = $System_Drawing_Point1
$buttonApply.Name = “Apply”
$System_Drawing_Size1 = New-Object System.Drawing.Size
$System_Drawing_Size1.Height = 35
$System_Drawing_Size1.Width = 110
$buttonApply.Size = $System_Drawing_Size1
$buttonApply.TabIndex = 0
$buttonApply.Text = “Apply”
$buttonApply.UseVisualStyleBackColor = $True
$buttonApply.add_Click($handler_buttonApply_Click)
#Cancel button
$System_Drawing_Point1 = New-Object System.Drawing.Point
$System_Drawing_Point1.X = 390
$System_Drawing_Point1.Y = 285
$buttonLogOff.Location = $System_Drawing_Point1
$buttonLogOff.Name = “Cancel”
$System_Drawing_Size1 = New-Object System.Drawing.Size
$System_Drawing_Size1.Height = 35
$System_Drawing_Size1.Width = 110
$buttonLogOff.Size = $System_Drawing_Size1
$buttonLogOff.TabIndex = 0
$buttonLogOff.Text = “Cancel”
$buttonLogOff.UseVisualStyleBackColor = $True
$buttonLogOff.add_Click($handler_buttonCancel_Click)
#Form footer
$labelFoot.Font = $FontFoot
$labelFoot.Text = “fresh-it.info (c) | support@fresh-it.info | Ver. 1.1/roe”
$labelFoot.Location = “15, 355”
$labelFoot.Height = 40
$labelFoot.Width = 300
$form1.Controls.Add($labelHead1)
$form1.Controls.Add($labelHead2)
$form1.Controls.Add($labelctxres)
$form1.Controls.Add($labeldpiscaling)
$form1.Controls.Add($imgdpiscalingbox)
$form1.Controls.Add($valuedpiscaling)
$form1.Controls.Add($labelfonsize)
$form1.Controls.Add($valuefonsize)
$form1.Controls.Add($valuefonsmooth)
$form1.Controls.Add($labelfonsmooth)
$form1.Controls.Add($radiogroupboxdpi)
$form1.Controls.Add($radiogroupboxfont)
$form1.Controls.Add($radiogroupboxfonts)
$form1.Controls.Add($buttonLogOff)
$form1.Controls.Add($buttonApply)
$form1.Controls.Add($labelFoot)
#Save state of the form
$InitialFormWindowState = $form1.WindowState
#Correct OnLoad event to correct form state
$form1.add_Load($form1_StateCorrection_Load)
#Display defined form
return $form1.ShowDialog()
}
#Call function GenerateForm
if(OnApplicationLoad -eq $true)
{
GenerateForm | Out-Null
OnApplicationExit
}