&НаКлиенте

Функция ИмяПринтераRDP(ИмяПринтера) 

	Shell = Новый COMОбъект("Wscript.Shell");	

	Task = Shell.Exec("query session");

	РезультатЗапроса = Task.StdOut.ReadAll();

	РезультатЗапроса = Декодер(РезультатЗапроса, "windows-1251", "cp866");

        Task.Terminate();

	Shell = Неопределено;

	

	Network = Новый COMОбъект("WScript.Network");

	ПользовательОС = Network.UserName();

	Network = Неопределено;

	

        НомерСеанса = RegExpGetFirstMatch("rdp-tcp\S+\s+" + ПользовательОС + "\s+(\d+)", РезультатЗапроса);

	

	Возврат ИмяПринтера + " (перенаправлено " + НомерСеанса + ")";

	

КонецФункции





Функция Декодер(Стр, Вход, Выход)

	Stream = Новый COMОбъект("Adodb.Stream");

	Stream.Type = 2;

	Stream.Mode = 3;

	Stream.Charset = Вход;

	Stream.Open();

	Stream.WriteText(Стр);

	Stream.Position = 0;

	Stream.Charset = Выход;

	Результат = Stream.ReadText(-1);

	Stream.Close();

	Возврат Результат;

КонецФункции



Функция RegExpGetFirstMatch(Маска, Строка, МногострочныйРежим = Истина, ГлобальныйПоиск = Истина, БезУчетаРегистра = Истина) 

	

	RegExp = Новый COMОбъект("VBScript.RegExp");

	

	// Параметры

	RegExp.Multiline = МногострочныйРежим; 

	RegExp.Global = ГлобальныйПоиск;

	RegExp.IgnoreCase = БезУчетаРегистра;	

	RegExp.Pattern = Маска;	

	

	Matches = RegExp.Execute(Строка);

	

	Если Matches.Count = 1 тогда

		Возврат Matches.Item(0).SubMatches.Item(0);



	Иначе

		Возврат Неопределено;

			

	КонецЕсли;

		

КонецФункции