Combreal

customRSAT.ps1

Apr 3rd, 2021
221
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Add-Type -AssemblyName System.Windows.Forms
  2. [System.Windows.Forms.Application]::EnableVisualStyles()
  3.  
  4. function itemSelected
  5. {
  6.     ForEach ($Item in $RSATobj)
  7.     {
  8.         If($Item.Name -eq $DropDown1.SelectedItem)
  9.         {
  10.             & $Item.Path
  11.         }
  12.     }
  13. }
  14.  
  15. If(Test-Path -Path "C:\WINDOWS\system32\dsa.msc" -PathType Leaf)
  16. {
  17.     $RSATobj=@()
  18.     $WScript = New-Object -ComObject WScript.Shell
  19.     $files = Get-ChildItem "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Administrative Tools" -Recurse | Where {! $_.PSIsContainer}
  20.     foreach ($file in $files)
  21.     {
  22.         $RSAT = New-Object -TypeName PSObject -Property @{ 'Name' = $file.Name.Substring(0,$file.Name.Length-4); 'Path' = $WScript.CreateShortcut($file.FullName).TargetPath}
  23.         $RSATobj += $RSAT
  24.     }
  25. }
  26. Else
  27. {
  28.     $userResponse= [System.Windows.Forms.MessageBox]::Show("RSAT unavailable`nDo you want to install it?" , "" , 4)
  29.     if($userResponse -eq "YES" )
  30.     {
  31.         start 'https://www.microsoft.com/en-us/download/details.aspx?id=45520'
  32.     }
  33.     [System.Windows.Forms.Application]::Exit($null)
  34. }
  35.  
  36. $Form = New-Object system.Windows.Forms.Form
  37. $Form.ClientSize = New-Object System.Drawing.Point(300,80)
  38. $Form.Text = "RSAT"
  39. $Form.TopMost = $false
  40. $iconBase64 = 'iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAMiwAADIsBiN8gLwAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAACAASURBVHic7d15/Kdzucfx18WgZJ2xlFSTrRBGqRBZyi5L0SZ1UEo6p6RVUtF+UJ0cIsuJEqFN1iwTKlvZUraQ7IydMYO5zh/3/eU7v/kt3+Vz39e9vJ+PxzyMMfO935V+1/t33Zu5O1VkZvMDqwHLAS8b58ds4N5xftzh7n8vO7+IiEiVWZUKgJlNBrYEts3/umSij74LOAP4HXCeu89M9LkiIiK1FF4AzOx1ZAN/G2A9YP6CDzkTuAA4HTjD3e8s+HgiIiKVE1IAzGwx4NPAbsArSw8wt6uA/wFOcPfngrOIiAhgZgsDiwPPAg/p63N6pRYAM3sRsDfwRWBKaQfuzQ3Al4HTPHotIiLSQGY2CVgVWBtYC1iGbMgvDiw24ueTuv6oA48AD+Y/Zoz4+b+BK4Cb9fW7d6UUgPx/9N2AA4DlCz/gcP4CfMndz4kOIiJSV2a2CNmQn0Y28KcBrwMWKvCwDwGXA5cBlwKXu/tDBR6v1gotAGZmwM7AQcAqhR2oGBeRFYFLooOIiNSBma1O9jX/nWTD3mITAXAzWRk42N2vjQ5TJYUVADObBhxL1vzq7HfAh939vuggIiJVY2ZrkA39nYHXBscZy4nAB3UdwdwKKQBmthPwE2Dh5B8e405gB3f/S3QQEZFoZrYW2cDfCXhNcJyJaPiPIWkByFf+XwP2pxqrn5SeJtsE/Cw6iIhI2fKv7zsAXwLeEBynVxr+40hWAPILPo4HdkzygdV1MPAF/QslIm2QP5X1PcB+wOrBcfqh4T+BJAXAzF4N/AZYY+gPq4dzgPe6+yPRQUREimBmCwAfBL4ArBQcp18a/j0YugCY2cbAKcBSKQLVyC3A9nrPgIg0Sf68lj2AzxH/oLZB/BzYVcN/YkMVADPbDjiNuR/Y0CaPA1vrVkERaQIz2wI4inoOftDw78vABSC/3/PPwKJJE9XPE8BWKgEiUldmtgRwKNkD2+pKw79PAxWA/K19lwMrJk9UTyoBIlJLZrYtcCTZq9frSsN/APP1+wfyK0JPRsO/2yLAWWa2QXQQEZFemNlkMzuB7M2oGv4t1HcBAA4B3p46SAN0SsBbooOIiIzHzHYErgc+EJ1lSBr+Q+jrFICZ/QdwXGFpmuEJYEt3/2N0EBGRbvmL2Y4APhydJYGTgA9o+A+u5wJgZusC0yn2TU5NoRIgIpViZosCpwKbR2dJQMM/gZ4KQP4vzo3AywpP1BwqASJSCWb2cuBMYM3oLAlo+CfS6zUA+6Lh3y9dEyAi4cxsTbLX4Wr4y1wm3ACY2VLAreh+/0E9TnaLoDYBIlIqM9uMbO2/WHSWBDT8E+tlA7AfGv7DWBRtAkSkZGa2G3AGzRj+J6Phn9y4GwAzewVwM7rwL4XHya4J+FN0EBFpNjPbHzgoOkciJwO7aPinN9EG4Cto+KeyKHC2ma0fHUREmkvDX3o15gbAzF5D9qCI+UtN1HzaBIhIIcxsP+Ab0TkS0fAv2HgbgIPQ8C+CNgEikpyZfR4Nf+nDqBsAM1uB7H33Vnqi9tAmQESSMLPPAP8dnSORXwDv1/Av3lgbgG3Q8C+aNgEiMjQz2wcNfxnAWAVg21JTtJdKgIgMzMz+Czg0Okciv0Br/1LNcwrAzF4CzEBX/5fpcWALd/9zdBARqQcz2xs4LDpHIp3h/2x0kDYZbQPwdjT8y7YocI6ZrRcdRESqz8z2QsNfhjRaAdim9BQCKgEi0gMz2xP43+gciZyChn+Y0U4B3AUsFxNH0OkAERmDme0B/JhmXKR9CtkFfxr+QebaAJjZ2mj4R9MmQETmYWYfQMNfEhp5CmDLkBQykkqAiDzPzLYCjkXDXxIaWQBWDEkho+ncIqgSINJiZrYu2St9F4jOkoCGf4WMLAAvDUkhY1kMlQCR1jKzVYHfAQtHZ0lAw79iVACqr1MC1o0OIiLlMbPlgXOAKdFZEjgVDf/KUQGoh8XIrglQCRBpATObTDb8XxGdJYFTgfdp+FfP87cBmpkBs4FJoYlkPI+R3SJ4aXQQESmGmc0PnA9sFJ0lgV8C79Hwr6buDcAUNPyrTpsAkeb7Ks0Y/hejtX+ldReAl4WlkH6oBIg0lJm9HdgvOkcC/wC2d/dZ0UFkbN0FQOf/60MlQKRhzGxZ4KeM/ZbWurgX2MrdH44OIuPr/hftJWEpZBAqASINYWbzkQ3/ZaOzDOkJYGt3/1d0EJlYdwG4PyyFDKpTAt4cHUREhrIf2ZtY6+4j7n5VdAjpTfddACsA/4yNIwN6DNjc3S+LDiIi/TGztwB/AOaPzjKkU9195+gQ0rvuArAw8GRsHBmCSoBIzZjZJOBqYPXoLEN6AFjd3R+IDiK9e/4UgLs/RfYqWqmnxYBzdTpApFY+Sf2HP8DHNfzr5/kNAICZ3QSsHBdHEtAmQKQGzGw54AayF3/V2cnu/t7oENK/kbeb3BuSQlLSJkCkHg6h/sP/aWCf6BAyGBWAZtLdASIVZmabAE34rvkod78nOoQMRgWguRZHJUCkcsxsAeCw6BwJPA18JzqEDG5kAbgiJIUUpVMC3hQdRESetzewWnSIBH7s7ndHh5DBjbwIcApwH/W/H1Xm9ijZhYGXRwcRaTMzWwi4FVguOsuQZgEruvtd0UFkcHNtANx9BqBXzTbP4mQXBmoTIBLrQ9R/+AP8VMO//kZ76cTppaeQMqgEiAQys/mBz0XnSOTE6AAyvNEKwO9KTyFlUQkQifNuYMXoEAncC0yPDiHDm6cAuPv1wG0BWaQcKgEiMb4QHSCRU919TnQIGd5Y753WFqDZVAJESmRm2wBrRudI5KToAJKGCkB7qQSIlKcp3/3/G/hTdAhJY6wCMB3Q/Z3N1ykBb4wOItJUZrYSsEF0jkQu9O57x6XWRi0A7j4bOLDkLBJjceD3KgEihdklOkBCV0YHkHTG2gAAHAPcUlYQCaUSIFKc90cHSOgv0QEknTELgLs/CxxQYhaJpRIgkpiZrQOsEp0jkeeAq6NDSDrjbQAgu9rzmjKCSCXomgCRtJq0/v+Huz8VHULSGbcA5Bd7fKmkLFINS6ASIDI0M5sPeE90joSuig4gaU20AcDdzwAuKSGLVIdKgMjwNgVeFh0ioXuiA0haExaA3H6FppAq6pSAdaKDiNTUjtEBEnsoOoCk1VMBcPeLgWMLziLVswTZhYEqASL92yQ6QGIqADVmZq8Y+Wu9bgAA9kJPgGojlQCRPpnZssCq0TkSUwGoKTP7FHD4yF/vuQDkDwd6J3BnwlxSDyoBIv3ZKDpAAR6ODiD9y4f/94A3j/xn/WwAcPf7gO2BmWmiSY2oBIj0rmnrf4DHogNIf7qGP8DSZrZC9z/vqwAAuPtfgd0TZJP6UQkQ6c3G0QEK8JLoANK7EcO/Y64tQN8FAMDdTwK+OWAuqTeVAJFxmNlLgddG5yjAEtEBpDdjDH9IUQBy+wO/HeLPS32pBIiMrYnn/0EFoBbGGf6QqgDkTwn8AHDZoJ8htdYpAW+IDiJSMdOiAxRkyegAMr4Jhj/A2ma2YOdvhtkA4O6PA1ugEtBWSwDnqQSIzGXl6AAF0QagwnoY/gALAWt1/maoAgDg7o+iEtBmKgEic2vK2/9GWjo6gIyux+Hf8fxpgKELADxfAjZHJaCtdDpABDAzA1aKzlGQNaMDyLz6HP4AUzs/SVIAANz9MVQC2mxJVAJElgdeHB2iINPyNxxKRQww/AGW6vwk6f+YKgGtpxIgbdfU8/8Ai9Ds/3y1MuDwh6IKAKgEiEqAtFpTz/936P/XFTDE8IciCwCoBIhKgLRWU8//d7w+OkDbDTn8AaZ0flLY+RyVgNbrlAB9wZA2WWri31Jr60UHaLMEwx+K3gB0qAS03pJktwiqBEhbLBIdoGDrmdly0SHaKNHwB1jczCZBwQUA5ioBlxZ9LKkklQBpk6YXAAN2ig7RNgmHP2T/G06BEgoAPF8CtkAloK1UAqQtml4AAN4dHaBNEg//jqWgpAIAKgGiEiCt0IYCsL6ZvTw6RBsUNPwheyRweQUAVAJEJUAarw0FQKcBSlDg8Ad4DEouAKASICoB0mhtKAAAe+qpgMUpePgDPAoBBQBUAkQlQBrrJdEBSrIa2gIUooThD5EFAFQC5PnnBKwdHUQkoZnRAUp0QP7yI0mkpOE/y91nQ2ABAJUAYTLZJkAlQJpiRnSAEq2OtgDJlDT8If/uH4ILAKgEiEqANEqbCgBoC5BEicMfqlQAQCVAVAKkMdpWAF4HvD86RJ2VPPwhvwMAKlIAQCVAVAKkEdpWAAB+YGbLRoeoo4DhD1XbAHR0lYA/R2eRECoBUndtLABTgCOjQ9RN0PAHeKDzk0oVAHi+BGyJSkBbqQRInT0UHSDI9ma2a3SIuggc/gDXdX5SuQIAKgGiEiC11cYNQMcP9KbAiQUPf4CrOj+pZAEAlQB5vgRMiw4i0oc2F4AlgRPMbIHoIFVVgeEPcHXnJ5UtAKBrAoTJwPkqAVIjbS4AAJsCR0eHqKKKDP/73f3uzt9UugAAuPvjqAS0mUqA1EnbCwDAB83soOgQVVKR4Q9d3/1DDQoAqASISoDUxp3RASpifzP7cHSIKqjQ8Ic6FgBQCRCVAKk+d38YuCs6R0UcYWbviA4Rycz2pTrDH7ouAIQaFQBQCRCVAKmFa6MDVMQk4Jdmtlt0kLJZ5lDg4OgsI9RzA9ChEtB6ujtAqu66iX9La0wCjjWzr0QHKYuZLQScDOwTnWWER4Gbun+hdgUAVAKEKagESHVpAzCvr5rZsWY2KTpIkcxsSeD3wM7RWUZxurvP6f6FWhYAmKsE/Ck6i4TolIC1ooOIjKANwOh2A84ws6WjgxTBzFYlm0cbRmcZwykjf8HcPSJIMma2KHA2sH50FgkxA3ibu18THUQEIH8QzhPAgtFZKup+YC93/2V0kBTMbH5gX+BAYKHgOGN5HFja3Wd1/2JtNwAd+SZgS7QJaKspZBcGahMgleDuz6DTk+NZBjjNzE40s8nRYYZhZq8BLgG+Q3WHP2Tr/1kjf7H2BQBUAkQlQCrnvOgANfA+4Hoz2z46SL/MbFJ+i9/VwLrReXowz/ofGlIAQCVAVAKkUlQAevNS4NdmdomZbRYdZiL54N8NuIHsFr8XBUfqxRNkp8nn0ZgCACoBohIglXEF2W1X0pu3AOea2R/NbPPoMCPlg3934EbgWGDF4Ej9ON3dnx7tHzSqAIBKgKgESDx3fw6YHp2jhtYHzjGzP5vZ+/OLvMOY2cvyR/neBBwDrBCZZ0CnjvUPan8XwFh0d0Dr6e4ACWVmnwB+GJ2j5p4GziI7h326uz9R9AHNbClgJ+A9wFup9zfKDwCvHGsD0NgCACoBwgxgU3fXg1mkdGb2SuB2wIKjNMVMsq/nlwB/Ba5y96FPs+QD/w35j43IXmnclAcW7efu3xrrHza6AIBKgKgESBwzuxjYIDpHQzlwK/AXsqvx7wMeyX88nP/1cWARYEmyx4hPzn++LDCNbOi/quzgJXkEeJW7PzbWb2h8AQCVAOFBstMBKgFSKjP7GHBEdA5ppQPdfdx3MLSiAMDzJeAssqtNpX1UAqR0ZjYFuAdYIDqLtMoTZN/9PzTeb6rzxQ19ye8O2Ar4Y3QWCbEU2d0Ba0YHkfZw9xnAOdE5pHWOmGj4Q4sKAKgEiEqAhDgxOoC0ytPAIb38xlYVAFAJEJUAKd2vgQm/GxNJ5Gh3v6+X39i6AgAqAaISIOVx95nAkdE5pBVmAt/t9Te3sgDAXE8MVAlop04JWCM6iLTCYcAz0SGk8Q5w93/3+ptbWwAA8qdKqQS011LABSoBUjR3vxs4KTqHNNplwKH9/IHW3AY4HjNbhOw5AbpFsJ0eJHtY0HXRQaS5zGwacFV0DmmkWcDa7v6Pfv5QqzcAHdoEtJ42AVI4d78auDA6hzTS1/od/qANwFy0CWg9bQKkUGb2NuC86BzSKH8B1nX3Z/v9g9oAdNEmoPW0CZB5mNlyqT7L3c8neyKpSAqzgd0GGf6gAjCPrhJwSXQWCaESIM8zs82BYxN/7OeA5xJ/prTTN4bZWOoUwBjy0wFnoTd5tdUDZO8O0OmAljKzBYFrgdeQXWB1dcLP/jHw4VSfJ610KfBWdx/49lJtAMaQbwK2QpuAtlqaPm+pkcbZh2z4A3w+8WcfADyZ+DOlPW4Fthtm+IM2ABPSJqDVZgGT3f2p6CBSLjN7OXAD2bvkIVvZr+LutyY8xtfIioBIPx4C1nf3G4f9IG0AJqBNQKstBGwcHUJCHMwLwx9gfuAziY/xbeDmxJ8pzTYL2CHF8AcVgJ6oBLTaFtEBpFxmtjHw3lH+0W5mtkyq4+TvCNgD0BpWeuFkV/xfnOoDVQB6pBLQWltGB5DymNkk4Idj/OMXAZ9Mebz8i/n/pvxMaawvufvPU36grgHok64JaKVXu/vt0SGkeGb2KeB74/yWR4GV3P3BhMd8CfA3YGqqz5TGOdrdP5L6Q7UB6JM2Aa2k0wAtYGbLAl+d4LctDnw55XHd/Ukg+Rd3aYwzgb2K+GAVgAGoBLSOTgO0w3fIBvxE9jKzFVMe2N3PQ6cCZF5nA+8c9El/E9EpgCHodEBrPAZMKer/hBLPzNYjewS49fhHTnH3dyfOsCAwHVgv5edKbZ0F7Ojus4o6gDYAQ+jaBCS7KlMqaTFg/egQUgwzm4/su+9ehz/Azmb21pQ53H02sBNwX8rPlVoqfPiDCsDQ8hKwNSoBTafrAJrro8DaA/y5w8xs/pRB3P1u4N2Atk3tdSYlDH9QAUhCJaAVVAAayMymAF8f8I+vAeydMA4A7n4R8NnUnyu1cCbZOf/Chz/oGoCk8msCzgQ2jM4iyTmwrLs/EB1E0jGzI4E9h/iIR8keEXx/okjPM7PjgV1Tf65U1hnAu8oa/qANQFLaBDSaAZtHh5B0zGwdhn8j3+LAYQnijGYPsnPB0nxnUOJ3/h0qAImpBDSaTgM0RH7h32Gk+Rq4s5ntlOBz5pK/6W0nsrsTpLl+Rzb8Z5d9YJ0CKIhOBzTSA8DyEf9HlbTM7LPAdxN+5P3A6imfENhhZksAF5FdcyDNcjqwU9TXFG0ACqJbBBtpaeCD0SFkOGa2BnBQ4o9dhoIe5OPuj5Btn5K9ilgqIXT4gzYAhcuf830W2gQ0xc3Aa919TnQQ6V/+sJ0rgDULOsRH3f2oIj7YzFYAzkfvDGiCU4FdoreJ2gAULH/OtzYBzbEycGB0CBnYQRQ3/AF+YGaFfL6730r21NHri/h8Kc1hwHuihz9oA1AabQIa54vu/u3oENI7M9uQ7FG7RX/jcxPwhvw0YHJmNpnsqvF1i/h8KdR+7v6t6BAd2gCUpGsTcFF0FkniW2Z2tJm9LDqITMzMFgWOp5yveasARxf14e7+EPB24NyijiHJPQvsVqXhD9oAlC7fBJwJJH2OuIR5kmyl9wfgOne/MziPjMLMjgV2K/mw+7r7oUV9eH49w/HAe4o6hiTxJPBudz8zOshIKgABVAIa7UngabLG/9yIv/b6a6P9s6eB/d393hL/szSCmW0P/Drg0M8Cm7n79KIOYGYG7Ed2XYo2utXzILCNu18eHWQ0KgBBVAJkADcAm6gE9M7MlgH+RnYLZ4T7ya4HKHQzZGZbACcCk4s8jvTlFrLhf1N0kLGoMQbJrwnYGl0TIL17LXChmb00OkiNHE3c8Ifs+QBn5Q/zKYy7nwOsA1xd5HGkZ0cDa1d5+IMKQCiVABlApwQsEh2k6szsw8A7onMArwN+a2YvKvIg7n4bsD5wQpHHkXE9AGzv7h8p6i6QlFQAgqkEyABOrsMXl0j5Q3O+F52jy4bAifk7CArj7jPd/YNkxee2Io8l8zgDWMPdfxsdpFcqABWgEiB9+Jq7fzU6RJXlQ/Z4oGpbkh0p6HHBI7n774DVgK+RXUAqxXkK2Mvdt3X3+6LD9EMFoCJUAqQHGv69+RzwlugQY/iYmX21jAO5+9P5vy+rk71xTtK7guxc/4+igwxCdwFUjO4OkDFo+PfAzKYBlwELRmeZwF5lDw0zewfwA+DVZR63oe4ju/XyKHd/NjrMoFQAKkglQEbQ8O+BmS0EXEl20V3VzQH2dPdjyjxofiHiF8m2JIVelNhQTwAHA4c04TocnQKooK7TAX+IziLhNPx7933qMfwh+9p7tJl9scyD5qcFvkL239MZZR675p4hu35jRXf/WhOGP2gDUGn5JuAMYKPoLBJCw79HZrYncGR0jgH9ANjHA74Y56cFDgLWKvvYNXIK2Ut8bokOkpoKQMWpBLSWhn+PzOwtwAVU/7z/eH4B7Br1ilgzWxf4KNl7BV4ckaFiniM7DXuQu18RHaYoKgA1oBLQOhr+PTKz5cnO+y8bnSWBC4Ed3P2xqAD5Ewt3JSsDq0flCPRv4BjgmDa82EsFoCZUAlrjwPwcrUwgv6DtYrJH4DbFNcBW7n5PdJB8s/JRYGeafcFg57v9I4Gz3f254DylUQGoEZWAxtPw74OZHU/23WrT/AvY0d2vig4CYGZLAh8C9gRWDY6T0r/Jntl/jLvfFR0mggpAzagENJaGfx/MbB/g0OgcBXoa+Ji7/yQ6SDcz25DsMcPrA2+gXpuBWcAfgd8D5wF/dfc5sZFiqQDUkEpA42j498HM3g6cDcwfnaUERwGfcveZ0UFGMrMFgLXJysB6+V+XDw01Nyd7O2Jn4F9Sxf8eI6kA1JRKQGNo+Pchf8nPFbTrvffXA+9x9+ujg0wkvyizUwbWIysIZdyd8TRwC3BT/uMq4AJ3f7CEY9eWCkCNqQTUnoZ/H/J/3/8MrBGdJcBMsk3AUdFB+pFfqLk28HKyOzWWBZbp+nnn70d7cdMcssE+s+uvM4G7eWHQd37c0fZ1/iBUAGrOzBYmKwEbB0eR/mj498HMjOyBLO+KzhLsFOAj7v5odJCU8q9jk4HZZMP+6ahnIrSJCkADqATUjoZ/n8xsf7In1gncSVYCzo4OIvWmAtAQKgG1oeHfp/xxtb8BLDpLxRwHfNbdZ0QHkXpSAWgQlYDK0/Dvk5mtClwKLBadpaIeBr4M/KhND7CRNFQAGkYloLIOcvcDokPUSf5Y2suBlaOz1MC1wH+6+0XRQaQ+9DrghnH3p4BtgOnBUeQFGv59MrP5gRPR8O/VmsAfzOxEM3t5dBipBxWABlIJqBQN/z7lV/wfA2wVnaWG3gfcZGZfzW+bFBmTTgE0mE4HhNPwH4CZ/QD4r+gcDXAf8H3giKbdNihpqAA0nEpAGA3/AZjZVwFdKJnWY2Rvuvu+u98dHUaqQwWgBVQCSqfhPwAz+yTZd6xSjNnACcB/u/uN0WEkngpAS6gElEbDfwBm9iGy+9p1r3/xHPg18HV3/2t0GImjiwBbouvCwAujszSYhv8AzGxHsov+NPzLYWTP1L83OojE0gagZfJNwO+ATaKzNIyG/wDM7G1km6mForO0xHXAJ/S8AAFtAFon3wRsizYBKWn4D8DM3ky2itbwL94jZHdWrK3hLx3aALSUNgHJfN3dvxwdom7M7HXAH8jeACfFcbJrK77g7g9Eh5FqUQFoMZWAoWn4D8DMVgAuAV4WnaXhriRb918WHUSqSacAWkynA4ai4T8AM1sOOA8N/yI9COwJvFnDX8ajDYBoE9A/Df8BmNlk4CJg9egsDfUc2QN/9nf3h6PDSPWpAAigEtAHDf8BmNkiwPnAm6KzNNQfydb9V0cHkfrQKQABdDqgRxr+AzCzhYDfoOFfhHuBXd19Aw1/6ZcKgDxPJWBcGv4DMLMFgVOATaOzNMwzwCHAKu7+0+gwUk86BSDzyE8HnI6+aHdo+A+ga/hvF52lYa4h+67/uuggUm/aAMg88k3AO4D/Ae4IjhNNw38AZrYAGv6pzQG+A7xJw19S0AZAJmRma5AVgm2BN9Oe4vgNd98/OkTd5MP/VDT8U7oN+KC7XxIdRJpDBUD6YmZLAVuTlYEtgMViExVGw38AXd/5bx+dpUGOBT7l7o9HB5FmUQGQgeVf7N9KVga2BVaKTZSMhv8ANPyTux/4iLv/NjqINJMKgCRjZq/hhVMFbwEmxSYaiIb/ADT8k/st2fC/PzqINJcKgBTCzJYAdgI+C6wSHKdXGv4DyIf/L4AdorM0wONk6/5jo4NI86kASKHMbD5gZ+BHwBLBccaj4T8ADf+kLiG70O+26CDSDm25mluCuPscdz8ZeBswIzrPGAof/mY22cxeWeQxyqbhn8xs4AvARhr+UiZtAKQ0ZjYNuBxYIDpLl1KGP9kb8JYENnb3fxV5vDJo+CfzN+AD7n5NdBBpH20ApDT5s8oPj87RpczhvzYwFZhuZq8q8phFy4f/yWj4D2MOcDCwjoa/RNEGQEqVD8R/En89QNnDv9vt1HQT0DX8d4zOUmP3AO9z9z9EB5F20wZASuXuDxH/sqFvBg5/qOkmQMM/icvIvuvX8JdwKgAS4S+Bx/6mu3+pyANMMPw7plKjEqDhn8RxZBf63R0dRARUACTGVUHHrcrw75hKDUqAmU0CTkLDf1DPAv/l7ru7+6zoMCIdKgAS4aGAY1Zt+HdMpcIlIB/+JwPvjM5SUw8Cm7n7D6ODiIykAiARni75eFUd/h1TqWAJ0PAf2tVk5/unRwcRGY0KgEQoswBUffh3TKVCJaBr7a/hP5iTgLfU8U4PaQ8VAIkws6Tj1GX4d0ylAiWga/i/KzJHTc0BPu/u73P3p6LDiIxHBUAilLEBqNvw75hKYAnQ8B/KI8DW7v7d6CAivVABkAhFbwDqOvw7phJQAjT8h/J34I3ufk50EJFeqQBIhCI3AIUP/9xeFDP8O6ZSYgnIh//P0fAfxK+Bdd39luggIv1QAZDSuftssnOlqX2rpOEP8E2g6He2T6W8ErAlsFMJx2kSB74KvNPdHw/OItI3FQCJknoL8C133y/xZ47Js5dofJiGlAB3/x2wuMKgawAAIABJREFUT5HHaJjHgR3d/WuuF6pITakASJSUBaDU4d/RwBLwfVQCenEfsKG7/yY6iMgwVAAkSqoLAUOGf4dKQOvcDmygV/hKE6gASJQUG4DQ4d+hEtAafycb/rrYTxpBBUCiDFsAKjH8O1QCGu8K4K3ufld0EJFUVAAkyjCnACo1/DtUAhrrAmBTd58RHUQkJRUAiTLoBqCSw79DJaBxfk32dL8nooOIpKYCIFEG2QBUevh3qAQ0xv8BO7n7rOggIkVQAZAo/W4AajH8OxpaAj5d5DEq5nvA7u7+XHQQkaKoAEiUfgrAt+s0/DsaWAK+RztKwJfd/dN6wI80nQqAROn1FMC33f2LhSYpkEpArTjwCXf/enQQkTKoAEiUXjYAtR7+HSoBtfAs8AF3/9/oICJlUQGQKBNtABox/DsaWgL2LfIYJZoJ7ODuJ0YHESmTCoBEGW8D0Kjh39HAEnAo9S8BjwFbuPsZ0UFEyqYCIFFuGOPXGzn8O1QCKuUBYGN3vzg6iEgEFQAJ4e7/Bxww4pcbPfw7VAIq4QHgbe5+VXQQkSgqABLG3Q8CvpT/bSuGf0dDS8BnijxGQp3hf110EJFIpltdJZqZbezu06NzRDAzA44Gdi/4ULeTrbv/VeRBzGxf4OAijzEkDX+RnAqASDCVgNJo+It00SkAkWANPB1wCNU7HaDhLzKCCoBIBagEFErDX2QUKgAiFdHQEvDZIo/RAw1/kTGoAIhUSANLwMHElQANf5FxqACIVIxKQBIa/iITUAEQqSCVgKFo+Iv0QAVApKIaWgI+V+Qx0PAX6ZkKgEiFNbAE/DfFlQANf5E+qACIVJxKQE80/EX6pAIgUgMqAePS8BcZgAqASE00tAR8fsiP0fAXGZAKgEiNNLAEfJfBS4CGv8gQVABEaqarBBxT8KGmUt0SoOEvMiQVAJEaykvAR2hnCdDwF0lABUCkphpaAr4wwW/T8BdJRAVApMYaWAK+w9glQMNfJCEVAJGaa0kJ0PAXSUwFQKQBGl4CNPxFCmDZ1w0RKZqZTQIWcvcnCzyGAT8G9ijqGLnbgY3d/V9FHsTMPglcoOEvkp4KgEgJ8uH/c+ClwFbu/kSBx2pUCRCRYugUgEjBuob/TsAGwFlmtkhRx2va6QARKYYKgEiBRgz/DpUAEQmnAiBSkDGGf8cGwJkqASISRQVApAATDP+ODVEJEJEgKgAiifU4/DuaVgIuNLNXFnwcEUlABUAkoT6Hf0eTSsCryTYBKgEiFacCIJLIgMO/o1MCXpI21QtUAkSkmwqASAJDDv+ODcnuDlAJEJHCqQCIDCnR8O9QCRCRUqgAiAwh8fDv0OkAESmcCoDIgAoa/h1vRSVARAqkAiAygIKHf4dKgIgURgVApE8lDf8OlQARKYQKgEgfSh7+HSoBIpKcCoBIj4KGf4dKgIgkpQIg0oPg4d+hEiAiyagAiEygIsO/463AGSoBIjIsFQCRcVRs+HdshEqAiAxJBUBkDBUd/h0qASIyFBUAkVFUfPh3qASIyMBUAERGqMnw71AJEJGBqACIdKnZ8O9QCRCRvqkAiORqOvw7OiVg4aIOoBIg0iwqACLUfvh3qASISM9UAKT1GjL8OzZGJUBEeqACIK3WsOHfsTHllYCjizpGTiVApCAqANJaZrYgcDLNGv4dG1NOCdgTlQCRWrLs/8Mi7ZJfMf8rYLPoLAWbDmzj7k8VdQAzM+Ao4MNFHSN3G7Cxu99R8HFEWkEFQFrHzJYEzgDWi85SkumoBIjICCoA0ipm9lLgXGCN6Cwlm45KgIh00TUA0hpmNhW4hPYNf8iuCfidrgkQkQ4VAGkFM1uNbPivGJ0l0CaoBIhITgVAGs/M1gEuAl4enaUCVAJEBFABkIYzs42BC4ApwVGqRCVARFQApLnM7B3AWcCi0VkqSCVApOVUAKSRzGwX4JfAi6KzVJhKgEiLqQBI45jZ3sAJwKToLDWwCXC6SoBI+6gASKOY2f7AYYBFZ6mRNYDlizyASoBI9ehBQNIYZnYwsG90jpp5ANjU3f9WxsH0sCCR6lABkNozs/mBI4E9orPUTKnDv0MlQKQaVACk1vLn+p8EbB6dpWZChn+HSoBIPBUAqS0zWx34De1+ut8gQod/h0qASCxdBCi1ZGY7Apei4d+vSgx/0IWBItFUAKRWLPM14DRgkeg8NVOZ4d+hEiASR6cApDbMbDGy+/u3i85SQ/eTDf/ro4OMRqcDRMqnAiC1YGarAL8GVo3OUkOVHv4dKgEi5dIpAKk8M9sauBwN/0HUYviDTgeIlE0FQCrNzL4InA4sHp2lhmoz/DtUAkTKo1MAUkn5s+mPA94dnaWmajf8u+l0gEjxVACkcsxsKtn9/WvGJqmtWg//DpUAkWLpFIBUipltClyJhv+g7gc2qfvwB50OECmaCoBUhpl9CjgXmBKdpaY6w//v0UFSUQkQKY5OAUg4M1sUOBz4QHSWGruPbO3fmOHfTacDRNJTAZBQZrYhcDwwNThKnTV6+HeoBIikpVMAEsLMFjSz7wDT0fAfRiuGP+h0gEhq2gBI6cxsDeCn6EK/YbVm+HfTJkAkDW0ApDRmNp+ZfRa4Ag3/Yd1Hwy7465U2ASJpaAMgpcjv7f8J8NbYJI3QGf7/iA4SKd8EHAl8pOBDaRMgjaQNgBTOzP4DuAYN/xQ0/HP5JuCjwI8LPpQ2AdJI2gBIYcxsabJztTtEZ2kIDf9RaBMgMhhtAKQQZrYtcB0a/qnci4b/qEreBFyoTYA0hQqAJGVmi5jZUWRv8Fs2Ok9D3Et2tb+G/xhKLAEroBIgDaFTAJKMma1P9lCfFaOzNEjnO/8booPUQYmnA24l+99FpwOktrQBkKHlD/X5JnARGv4pafj3KWAT8IqCjyNSGG0AZChmthXwA2Dl6CwNcx/ZBWca/gMoeROwsbv/u+DjiCSnAiADMbMVgO8D74jO0kCPkA2Va6KD1JlKgMj4dApA+mJmC5vZQcDf0fAvwlPANhr+wyv5dMB0nQ6QutEGQHpmZjsBhwC6AroYs4Ht3P2c6CBNok2AyOi0AZAJmdlqZnYecAoa/kWZA+yi4Z+eNgEio1MBkDGZ2WJmdgjZY3zfFp2n4fZ091OjQzSVSoDIvFQAZB6W+SBwI/BpYFJwpKb7jLsfEx2i6VQCROamawBkLmb2euAwYL3oLC3xDXffPzpEm+iaAJGMCoAAYGZTgG+QfVHUZqgch7v73tEh2kglQEQFoPXMbD6ytejXgcnBcdrkZ8Curv8DhlEJkLbTd3oyPzALeCA6SIucDvyHhn8sXRMgbacNgADPbwJ2AL4AvDE4TpNNB7Zy96ejg0hGmwBpKxUAmYeZbUpWBDaLztIwV5K91vfx6CAyN5UAaSMVABmTmb0B+BKwY3SWBvgH8FZ3fzA6iIxOJUDaRgVAJmRm6wEHA+tHZ6mp24EN3P2u6CAyPpUAaRMVAOmZme0I/DewYnSWGnkEeLO73xQdRHqjEiBtobsApGfu/itgdeDLZG+tk/HNAd6n4V8vujtA2kIFQPri7rPc/evAqsBp0Xkq7kvufnZ0COmfSoC0gU4ByFDMbGuydeny0Vkq5hfu/p7oEDIcnQ6QJlMBkKGZ2WJkFwkW/UWyLq4F1nN3nSZpAJUAaSoVgMTMbAFgoRE/Fhzx97OAe4D73P2ZoKjJmdnbgZ8Ay0VnCTQDeKO73xYdRNJRCZAmUgEYgJm9FFgl/7Fy189XJBvwvXLgIbIycO+Iv94NXA/cWKeSYGZLk5WAraKzBHgO2MLdz48OIumpBEjTqABMwMxWAt4ObAi8hmzQL1pihNnADWRr5c6PK919RokZ+pJ/odwX+CawQHCcMn3a3b8XHUKKoxIgTaICMEL+HeymZEN/M+BVsYlG5cBfgd8D5wJ/dPfZsZHmZWZvBk6lHRcI/tTdd40OIcVTCZCmaH0BMLP5yQb+5mRDfy3AQkP17yngD8A5wCnufndwnueZ2TLAL4CNorMU6C9kT/rTC35aQiVAmqC1BcDMXgnskf94eXCclOYAF5C9b/60Krx4xswmkT1B8FPRWQpwP7COvkC3T14CfgTsWfChVAKkEK0qAPl3+9uS/R92S5r/IKSZwG+BnwJnuftzkWHM7OPAD2nOf+/PAG9394uig0gMlQCps1YUADN7FS98t9/WW9RuBb4PHOvuT0aFMLOdyApJP3dLVNXe7n54dAiJpRIgddXoAmBmqwHfALajOd91Duthsi9WP3T3eyICmNnGwG+AxSKOn8gx7v7h6BBSDSoBUkeNLABmthzwNWA3YP7gOFU1GzgRODDioTVmthZwNvDSso+dwKXARlW880LiqARI3TSqAOSPpP0csA+wcHCcuphFdl7+G+7+SJkHNrMVyG5jrNPrhe8B3hC1PZFqUwmQOmlEAcgfv/sxstfULh0cp64eAg4EDi/zyYNmtizZ7YtrlXXMITiwpbufGx1EqkslQOqi9gXAzN4FfBtYKTpLQ9wCfMbdf1PWAfOHL11M9qTFKjvM3f8zOoRUn0qA1EFtC4CZLQEcAbw3OktDnQR8oqxHDufPZfgj1X1q4I3A2u4+MzqI1INKgFRdLQuAmW1C9sKZV0Rnabj7gL3c/VdlHCy/a+MSYMkyjteHZ8le73tldBCpF5UAqbJa3RpnZgua2XeB89DwL8OywC/N7GdmNrnog7n738ke1FS177IP1PCXQXj2HdbHgKMKPtQKwHQz09dF6VltNgD5d4c/A6ZFZ2mpe4H3uvsfij6QmW0H/JJq3MJ5Kdlz/kOfoij1pk2AVFHlNwCW+U+yF65o+Md5KXCemRX+PH93/y3Zd03RngR21fCXYWkTIFVU6QJgZi8CTgP+B3hRcByBScD3zOxEMyv0OQvufjTZUxwj7evutwRnkIZQCZCqqewpgPwq/9OBDaKzyKiuBd7p7v8s6gBmNh9wFtmrmst2prtvE3BcaTidDpCqqGQBMLOXkz0m9nXRWWRcDwPbu/vFRR3AzKaQnf55VVHHGMWDwBrufm+Jx5QWUQmQKqjcKQAzWxX4Exr+dbAkcI6ZbVvUAfLnEOxM9u6Csuyp4S9F0ukAqYJKFQAzW4/sPvBXRmeRnr0Y+JWZ7VrUAdz9CuDzRX3+CP9X1nMPpN1UAiRaZU4B5N9Fnoxe4lNXDnza3b9f1AHM7Ddkr3Yuyu3AWu7+WIHHEJmLTgdIlEpsAMzsQ8Cv0PCvMyO7Q+DAAo+xG3BHQZ89B/iQhr+UTZsAiRJeAMxsd+A4slvMpP6+bGaFrOvd/SHgfUAR9+Uf7O4XFfC5IhNSCZAIoacA8uF/NNl3j9Ise7r7j4v4YDP7NmmvCbgWeKO7l3mhocg8dDpAyhRWADT8G28O2aODT0n9wWa2EHAVsGqCj3sOWMfdr07wWSJDUwmQsoScAtDwb4X5gJ+aWfKH+Lj7LGB3spIxrCM1/KVKdDpAylL6BkDDv3WeJHuZTvIha2Y/Aj46xEc8CKzi7g8niiSSjDYBUrRSC4CGf2vdSrZmTzpo86cE3gQM+qriwq5TEElBJUCKVNopAA3/VlsBOCH/YpZM/pTALw/4x68EjkkYRyQ5nQ6QIpVSADT8BdgG2L+Azz0SuKbPP+PAJ9w9xTUEIoUquQRcqBLQHoUXAA1/6fJVM9si5Qe6+3PAf/b5x45z98tS5hApUoklYEVUAlqj0GsANPxlFDPIHrd7V8oPNbPTgHf28FsfIbvw74GUxxcpQ4nXBPwT2ETXBDRbYRsAM9sFDX+Z1xSK+S7mC8CzPfy+AzT8pa60CZCUCikAZrYJcCwa/jK6rc1st5Qf6O43AxNd0X8dcHjK44qUTSVAUkl+CsDMVgf+CCye9IOlaR4FVk95KsDMpgI3M/Z7JTbS8/6lKXQ6QIaVdANgZssBZ6HhLxNbnIm/Y++Lu98OnDTGP/65hr80Sdcm4MiCD6VNQEMl2wCY2aLARcC0JB8obbG7ux+X6sPM7HVkL/fpPv30BPAad7871XFEqiLfBBzBcE/F7MU/yR4WdGfBx5GSJNkAmNkk4FQ0/KV/3zGzxVJ9mLv/DThjxC8fpOEvTZVvAvainE3AdDNbvuDjSElSnQI4Ekj+0hdphaWBLyb+zG93/fxG4HuJP1+kUlQCZBBDnwIws88z9xdckX49TbaivyPVB5rZxcAGwBbufm6qzxWpMp0OkH4MVQDy861/ARZMlkja6qfuvmuqDzOzbcmuL+jl4UAijaESIL0auACY2fzApcA6SRNJWznwRnf/S4oPy78ILuvu96b4PJE6UQmQXgxzDcBn0fCXdAz4TqoP84yGv7SSrgmQXgy0ATCz1wJXAwslTyRt90Z3vzI6hEgTaBMg4+l7A2Bm8wHHoeEvxdg3OoBIU2gTIOMZ5BTAPsC6qYOI5HY2s1dFhxBpCpUAGUtfBcDMVgYOKiiLCMD8wKeiQ4g0iUqAjKavawDM7Bz0wB8p3hPAK9z9keggIk2iawKkW88bADNbFw1/KcciwB7RIUSaRpsA6dbPKYD9C0shMq8PRgcQaSKVAOno6RSAma0N/LX4OCJzWSN/uY+IJKbTAdLrBkDf/UuEXaIDiDSVNgEy4QZgjPerN9ksYEbXDwMWz38slv91Uli6drkDmOrDvrFKRMakTUB79VIAfg68t5w4pfoXcEX+40rgFmCGuz850R80s4WBlYBpwNr5X6cBSxSWtr02cveLokOINJlKQDuNWwDMbBXgHwz3zoCqmAGcCvwWuNzdH0x9ADN7NbA18G6yV9E24b+3aEe6+8eiQ4g0nUpA+0xUAI4Bdi8vTnJPAL8Gfg6c6+7PlnVgM3sZsDNZGVif9pxCSe0Od9eTAUVKoBLQLmMWADNbCHgAWLTURGncBHwDOMXdZ0aHyR9t+zmye9v1DoX+vcbdb4oOIdIGKgHtMd6KegvqN/xvJrt/fDV3P74Kwx/A3f/l7nuTXQ37P0AlctXIZtEBRNpCdwe0x3gFYOfSUgzvn8B/AKu6+wnu/lxwnlG5+13u/klgBeBQYHZwpLpQARApkUpAO4x6CiBf/99Pdttblc0BDgYOcPdZ0WH6ld9i+RPg9dFZKu5RYEpVi51IU+l0QLONtQHYnOoP/1uADd3983Uc/gD5U+7eDBwAPBMcp8oWB94UHUKkbbQJaLaxCsBOpabo3xHANHf/U3SQYbn7s+5+EPBG4OroPBX2lugAIm2kEtBc8xQAM1sQ2D4gSy+eALZ194/38sCeOnH3a8i+yz0+OktFrRUdQKStVAKaabQNwGZkK9equZfsqXBnRAcpirs/4+4fAg6KzlJBKgAigVQCmme0ArBd6SkmdhOwvru34o2E7n4A2TMDSntwUQ28Nt9OiUgQlYBmGa0AvKH0FOO7lGz43xYdpEzufiywDfB4dJaKWABYNTqESNupBDTHXAXAzCYBrwvKMppzgE3dfUZ0kAjufi7ZRkbPC8joNIBIBagENMPIDcCqVOdRtecAO1TlaX5R3H069X4fQ0prRgcQkUxXCfhRwYdSCSjIyAKwdkiKeXWG/9PRQarA3X8G7B+dowL0BUCkQvIS8HFUAmppZAGYFpJibhr+o3D3bwBHR+cItkx0ABGZm0pAfVWtAGj4j28v4KLoEIFUAEQqSCWgnuZ6F4CZPQQsGZRFw78HZrYCcC3wkugsAR5wd5UAkYrK3x1wOPCxgg+ldwck8PwGIH9nvYZ/xbn7rcDno3MEmWJm473BUkQCaRNQL91fTKNu/zsb2F7Dvy+HAxdEhwgwHzAlOoSIjE0loD66C8DkgOOfA+xY17f5Rcn/D7YH2bsR2kanAEQqTiWgHroLQNmv/9XafwjufjvwlegcAVQARGpAJaD6ogqAhn8aRwD3RYcomQqASE2oBFRbRAHQ8E8kf0riwdE5Slb2pkpEhqASUF1lFwAN//SOAB6MDlEiXS8iUjMqAdVUZgHQ8C+Auz8JHBqdo0T690ekhlQCqqe7ACxa4HE0/It1GPBodIiSaAMgUlMqAdVSxgZAw79g7v448KvoHCXRv0ciNaYSUB1FbwA0/MtzcnSAkujfJZGaUwmohu4C8FTiz9bwL9f5wEPRIUqgUwAiDVByCbhQJWBe3QUg5ZXkGv4lc/dnaMdpAP07JdIQJZaAlVAJmEcRBUDDP84vogOUQBsAkQZRCYjTXQBmJPg8Df9YFwCPR4coWOpTVSISTCUgRsoNgIZ/MHd/Frg6OkeBngXujg4hIumpBJQvVQHQ8K+OJheA2/NrHUSkgVQCypXiFICGf7VcFR2gQDdGBxCRYgWUgMULPk5lDbsB0PCvniZvAG6KDiAixSuxBJzq7m15iuo8hikAGv7VdD3Q1DW5CoBIS5RQAr7t7l8s6LNrobsA3AnM7vHPafhXlLvPBv4ZnaMgKgAiLVJgCWj98IeuAuDus4BrevgzGv7V93B0gIKoAIi0TAElQMM/N9+Iv790gt+v4V8Pj0UHKMBTwF3RIUSkfAlLgIZ/l5EF4LJxfq+Gf3008aKWm/MvAiLSQglKgIb/CL0WAA3/emliARivnIpICwxRAjT8RzFXAXD3W5j3eQAa/vXTxALw++gAIhJvgBKg4T+GkRsAmPs7LQ3/eur1bo66mEP2umMRke4ScMQEv1XDfxzjFQAN//paMjpAYle6e1PvbBCRAeQlYG/GLgEa/hMYrQBcioZ/3U2JDpCY1v8iMo9xSoCGfw8mjfJrlwAXafjXmgqAiLSCu7uZ7Z3/7V5o+PfMdGdV85jZVcC06ByJPAlMzp9wKCIyKjMzYDt3/03Rx2nKLcmjnQKQ+mvSBuAPGv4iMhHPFD38JwOXm9nPzWzVIo9VBhWAhjGzBYBlo3MkpPW/iITLh/95wDrAe4G/1b0IqAA0z5rAgtEhEpkDnBYdQkTarWv4r931y/PxQhE4sY5FQAWgedaJDpDQWe7+7+gQItJeYwz/bvMB7+OFIvDa0sINSQWged4YHSChH0cHEJH26mH4d+sUgevN7Gd1KAK6C6BhzOwastMAdXcP8Ep3fzY6iIi0T5/DfzRzgJOAg9z9hmTBEtIGoEHM7MXAatE5EjlOw19EIiQY/pDN1/fzwkbgNUnCJaQC0CxvY/SHO9WNA0dHhxCR9kk0/Lt1isDfzeynVSoCKgDN8r7oAImc5+63RYcQkXYpYPh3mw/YhReKwPIFHKMvugagIcxsYeB+4CXRWRJ4t7ufEh1CRNqj4OE/mj8BG7r7nJKONw9tAJpjO5ox/O8Ffh0dQkTaI2D4A6wPfKrE481DBaA5mrL+/7q7PxMdQkTaIWj4d3zdzFYJOC6gUwCNYGZLAXdR/ycA3gKspgIgImUIHv4dYacCtAFohs9Q/+EPsJ+Gv4iUoSLDHwJPBWgDUHNmtjRwG/U//3+Fu78pOoSINF+Fhn/HTGCau99U5kG1Aai/z1L/4Q/wuegAItJ8FRz+AC8GjjOzUmeyCkCNmdkywMejcyRwprtPjw4hIq2wL9Ua/h2lnwrQKYAaM7ODyf5lrrM5ZKuv66KDiEjzmdkrgZup5nVTpZ4K0AagpsxsGvBf0TkSOEHDX0TK4u53AMdG5xhDqacCtAGoITNbELgSWCM6y5DuBdZw9wejg4hIe5jZK8huO67iFgBgX3c/tOiDaANQTwdS/+HvwG4a/iJSNnf/N9XdAkBJDwjSBqBmzGx94GLqX95+6O5NOIUhIjVUgy1A4Q8IqvsQaRUzWwT4CfX/3+16dNufiATKtwDHROcYR+F3BWgDUBNmNgk4HdgyOsuQZgNvcvdrooOISLvVYAtQ6F0Bdf9Osk2Oof7DH7LH/Wr4i0i4GmwBCr0rQBuAGjCzbwFfiM6RwPnAZq5/6USkIsxseeCfVHcLAAXdFaACUHFm9gngh9E5ErgfeL273xUdRESkm5n9L9V+qmohpwJUACrMzHYBjqf+p2qeBDZ29yujg4iIjJRvAW4BForOMo7kdwXUfbA0Vj78m3DF/7PAzhr+IlJV7n4n1b4WAAq4K0AbgArqGv7zR2dJYA93r/IDN0RE6rIFSHoqoO7fXTZOw4b/ARr+IlIH+Rbg6OgcE0h6V4A2ABXSsOF/lLt/NDqEiEivzOzlZHcEVHkLAInuCtAGoCIaNvxPp9pX1IqIzCO/S6nqWwBI9K4AbQAqoGHD/8/A2939qeggIiL9yrcAtwAvis4ygaHvCtAGIFjDhv9lwFYa/iJSV/kW4M3AX6OzTGDouwK0AQjUsOF/KbCFuz8WHUREZFj5+1e+COxPdZ8SONRdASoAQTT8RUSqz8zWBI4DXh+dZQwDnwrQKYAADRv+f0bDX0Qayt2vJTslcADZ20yrZuBTAdoAlKyBw39LDX8RaYMKbwNmAmu5+839/CFtAErUsOH/J/Sdv4i0SIW3AdeSvXCtL9oAlKSBw39Ld388OoiISIQKbQMuI/tm7NF+/6A2ACVo2PD/Ixr+ItJyFdkGDDz8QRuAwjVw+G+l4S8i8oKgbcBQwx+0AShUw4b/Jeg7fxGReQRsA4Ye/qANQGEaNvwvBLZz9yeig4iIVFkJ24Akwx+0AShEw4b/CWTf+Wv4i4hMoOBtQLLhD9oAJNew4X+gu38lOoSISB0l3gYkHf6gApBUg4b/M8Ce7v5/0UFEROos0TsFkg9/UAFIpkHD/1HgXe5+fnQQEZGmGGIbUMjwB10DkESDhv8dwAYa/iIiaQ14bUBhwx+0ARhag4b/5cAO7n5PdBARkSbrcRtQ6PAHbQCG0pDhPwvYD1hfw19EpHg9bAMKH/6gDcDAGjL8Lwd2c/e/RwcREWmjUbYBpQx/UAEYSAOG/9PAV4BD3P256DAiIm3WdafAZsA7yhj+oALQtwYM/z8Du7v7DdFBREQkjq4B6EPNh/9TwGfIrvLX8BcRablJ0QHqosbD/zHgMOD77v5AdBgREakGFYAe1HT4zwB+APzQ3R9lyAsoAAAAzUlEQVSJDiMiItWiAjCBGg7/e4FDgB/pBT4iIjIWFYBx1Gz4/ws4GDja3Z+ODiMiItWmAjCGmgz/fwGnAqcBl7pu6RARkR6pAIyi4sP/FrKBf6q7XxkdRkRE6kkFYAQzmw9YBPgZsC6wMmCBkWYD1wFnkQ39awKziIhIQ+hBQBMwsyXJntnc/WNyQYd7FLgauKrrr/9w92cKOp6IiLSUCsAAzGxlYDVgKWBK/telRvn7xYAnyQb7Y/lfR/78EeBG4Cp3v63U/yAiItJa'
  41. $iconBytes = [Convert]::FromBase64String($iconBase64)
  42. $stream = New-Object IO.MemoryStream($iconBytes, 0, $iconBytes.Length)
  43. $stream.Write($iconBytes, 0, $iconBytes.Length);
  44. $iconImage = [System.Drawing.Image]::FromStream($stream, $true)
  45. $Form.Icon = [System.Drawing.Icon]::FromHandle((New-Object System.Drawing.Bitmap -Argument $stream).GetHIcon())
  46.  
  47. $Label1 = New-Object system.Windows.Forms.Label
  48. $Label1.Text = "Remote Server Administration Tools :"
  49. $Label1.AutoSize = $true
  50. $Label1.Location = New-Object System.Drawing.Point(10,10)
  51. $Label1.Font = New-Object System.Drawing.Font('Microsoft Sans Serif',10)
  52.  
  53. $DropDown1 = New-Object System.Windows.Forms.ComboBox
  54. $DropDown1.Location = New-Object System.Drawing.Size(10,40)
  55. $DropDown1.Size = New-Object System.Drawing.Size(280,40)
  56.  
  57. ForEach ($Item in $RSATobj)
  58. {
  59.     [void] $DropDown1.Items.Add($Item.Name)
  60. }
  61.  
  62. $DropDown1.SelectedItem = $DropDown1.Items[0]
  63.  
  64. $Form.controls.AddRange(@($Label1, $DropDown1))
  65.  
  66.  
  67. $DropDown1.Add_SelectedIndexChanged({itemSelected})
  68.  
  69. $Form.ShowDialog() | Out-Null
Add Comment
Please, Sign In to add comment