Кастомизация RDweb в Windows Server 2008R2

в 20:28, , рубрики: ASP, windows, Серверное администрирование

В данном топике я поделюсь своим опытом модифицирования RDweb для Windows Server 2008R2.

До интеграции Remote Desktop Services в организации была полная неразбериха с портами и перенаправлениями.

Передо мной стояла задача закрыть все порты и пустить всех через Remote Desktop Gateway. Но платить за лицензию TS никто не хотел, поэтому «просто» сделать через RemoteApp не получилось. Пришлось делать свой костыль.

0. Дано

В самом начале все порты были такими:

До

Кастомизация RDweb в Windows Server 2008R2

В стандартном RDweb есть поле для ввода хоста или адреса, после соединения будет предложено 2 раза ввести учетные данные и только после этого установится соединение с хостом.

Задача в том, что необходимо через RD WebAccess, через вкладку Remote Desktop пустить пользователя извне на свой компьютер в офисе. Причем пользователь не в курсе что такое IP или hostname. На выбор ему показываем только доступные ему компьютеры. Минимизируем количество кликов и отвлекающих кнопок. Похожая функциональность уже есть в SBS, но перенести его на 2008R2 практически невозможно.

Перейдем непосредственно к правке файла desktops.aspx, расположенного в С:windowswebRdwebpagesen-US

1. Для начала заменим поле ввода на выпадающий список:

Вместо:

<input name="MachineName" maxlength="255" id="MachineName" class="textInputField" onfocusin="jscript:ClearTxt(this);" onblur="jscript:checkLen(this, 0);" type="text" onkeydown="jscript:checkKey(this);" onkeyup="jscript:checkLen(this, 1);" /> 

Вставляем:

 <select id="MachineName" style="width: 270px" name="MachineName">
 <option value=ex2010.somertile.local>Exchange</option> 
 <option value=AD.somertile.local>AD</option> 
 </select>

И ниже убираем параметр «disabled» из ButtonConnect

<button type="button" id="ButtonConnect" name="ButtonConnect" disabled class="formButton" onclick="BtnConnect()" accesskey=<%=L_ConnectAccessKey_Text %>><%=L_ConnectLabel_Text %></button>

И далее в функции GetParam меняем

  switch(obj.tagName)
                                {
                                    case "SELECT":
                                        return obj.selectedIndex;
                                        break;
                                    case "INPUT":
                                        if (obj.type == "checkbox") return ((obj.checked) ? 1 : 0);
                                        if (obj.type == "hidden") return obj.value;
                                        if (obj.type == "text") return obj.value;
                                        break;
                                    default:
                                        break;
                                }          

На

 switch(obj.tagName)
                                {
                                    case "SELECT":
                                       return obj.options[obj.selectedIndex].value;
                                       break;
                                    default:
                                        break;
                                }


Получится должно что-то такое:

Выпадающий список

Кастомизация RDweb в Windows Server 2008R2

С выдачей компьтеров мы определились. Идем дальше.

Небольшое отступление.

Существенная разница между RemoteApp и RemoteDesktop заключается в том, что RemoteApp генерируется и подписывается RD сервером и тогда можно использовать SSO(singl sing-on). В случае RemoteDestkop RDP файл генерируется на лету и само собой подписи у него нету, что влечет за собой повторный ввод данных. Максимум что мы можем сделать это передать доменлогин в этот RDP файл. Что собственно сейчас и покажу.

Нет сертификата

Кастомизация RDweb в Windows Server 2008R2

Вся магия происходит в функции BtnConnect()

Добавим параметр

RDPstr += "username:s:"+"<%=strDomainUserName%>"+"n";

Что видим в генерированом файле? Правильно, чертовщину.

Куда пропал ''

Кастомизация RDweb в Windows Server 2008R2

Модифицируем код и определим:

 public string strUserName = "";

И ниже:

strUserName = strDomainUserName.Substring(strDomainUserName.LastIndexOf('\') + 1); // Cut domainusername to username

А в BtnConnect() добавляем:

RDPstr += "domain:s:somertilen";
RDPstr += "username:s:"+"<%=strUserName%>"+"n";

RDPstr += "promptcredentialonce:i:1n";   //use same creds for GW and host

NB: В процессе работы импортировал эти пространства имен:

<% @Import Namespace="System.Data" %>
<% @Import Namespace="System" %>
<% @Import Namespace="System.ComponentModel" %>
<% @Import Namespace="System.Runtime.InteropServices" %>
<% @Import Namespace="System.Text" %>

Проверяем запуск — домен и логин вставляются верно.
При этом видим, что данные будут использованы и для GW и для хоста.

3. Последний пункт — права и доступ к станциям.

Конечно в идеале все надо было делать через AD и права, но в силу ограниченности времени сделал XML базу вида:

<users>
    <user username="administrator">
        <host>
            <hostname>ex2010.somertile.local</hostname>
            <label>Exchange</label>
        </host>
        <host>
            <hostname>AD.somertile.local</hostname>
            <label>AD</label>
        </host>
      </user>
</users>

Где определяется логин пользователя и список доступных хостов.

Объявляем

 public struct ComputerHost
    {
        public string Hostname;
        public string Label;
    }	

А также парсер этого XML базы

	private System.Collections.ArrayList GetUserComputers(string username)
        {
            System.Collections.ArrayList hosts = new System.Collections.ArrayList();
            System.Xml.XPath.XPathDocument xdoc = null;
            System.Xml.XPath.XPathNavigator xnav = null;
            System.Xml.XPath.XPathExpression xexp = null;
            System.Xml.XPath.XPathNodeIterator xi = null;

            try
            {			
                xdoc = new System.Xml.XPath.XPathDocument(Server.MapPath("users.xml"));
                xnav = xdoc.CreateNavigator();

                xexp = xnav.Compile(string.Format("/users/user[@username="{0}"]/host", username.ToLowerInvariant()));

                xi = xnav.Select(xexp);

                while (xi.MoveNext())
                {
                    ComputerHost h;
                    h.Hostname = xi.Current.SelectSingleNode("./hostname").Value;
                    h.Label = xi.Current.SelectSingleNode("./label").Value;
                    
					hosts.Add(h);
                }				
            }
            catch (System.Xml.XmlException XmlEx)
            {
                //Do nothing
            }
            catch (Exception Ex)
            {
                //Do nothing
            }
            finally
            {
				//Do Nothing
            }

            return hosts;
        }
 

Вернемся к нашему выпадающему списку и заменим содержимое на:

<select id="MachineName" style="width: 270px" name="MachineName">
							  								  
 <%
  System.Collections.ArrayList computerHosts = GetUserComputers(strUserName);
  foreach (ComputerHost h in computerHosts)
  {
	Response.Write(String.Format("t <option value={1}>{0}</option> rn", h.Label, h.Hostname));
  }
    %>							  
</select>

Проверяем — работает.

В дальнейшем можно убрать «лишние» ссылки в RDweb на RemoteApp, Configuration, Help. Модифицировать %L_Company_Text%. Вынести отвлекающие кнопки под опции.

В итоге клиент увидит сайт в таком виде:
Кастомизация RDweb в Windows Server 2008R2

4.P.S.

В RDP файле можно предопределить пароль строкой
password 51:b:%hash%

Где %hash% — результат обработки пароля библиотекой crypt32.dll
В этом блоге описан метод реализации кода на Delphi.
Однако даже используя его шифратор и явно определяя пароль в BtnConnect() мне не удалось добиться «подключения по одному клику». Решению данной проблемы буду благодарен.

P.P.S.
Статья написана исходя из поставленной мне задачи. С asp.net и html дружу мало, большинство функций написано перебором и чтением мануалов.

Спасибо за потреченное время. Надеюсь всё это сделано не зря.

Автор: mrHobbY

Источник


* - обязательные к заполнению поля


https://ajax.googleapis.com/ajax/libs/jquery/3.4.1/jquery.min.js