Настройка списка компьютеров в Remote Assistance
Диалог предложения помощи выглядит довольно аскетично - поле для ввода имени ПК и кнопка «Подключить». Хорошая новость – это легко изменить.
Диалог подключения хранится в файле «%windir%\pchealth\helpctr\Vendors\CN=Microsoft Corporation,L=Redmond,S=Washington,C=US\Remote Assistance\Escalation\Unsolicited\UnSolicitedRCUI.htm»
За ввод имени станции отвечает <INPUT> с ID=idComputerName
Что сделал я – добавил к стандартному <INPUT> элемент <SELECT> с id=idComputerName1
и добавил проверку – если не заполнен <INPUT> – взять значение из <SELECT>
В результате получаем более дружественный диалог:

Для того, чтобы не модифицировать файл вручную, был написан очень простой скрипт. Скрипт берет список компьютеров из указанного домена, и если на компьтере установлена Windows XP Prof и компьютер имеет dns имя, то он добавляется в список.
Сохраните скрипт в отдельный каталог, туда же поместите оригинальный UnSolicitedRCUI.htm. Измените <LDAP://dc=domain,dc=local> на имя вашего домена.
Комментарии (4)
Other Links to this Post
RSS-лента комментариев к этой записи. TrackBack URI


By Dmitry, Февраль 20, 2008 @ 1:40 пп
Здравствуйте Михаил, Спасибо огромное за статью очень интерсенно и полезно…
Если есть возможность, помогите пожалуйста модифицировать Ваш скрипт, дело вот в чем в нашей организации внутренними положениями имена компьютеров в Домене предопределены следующим образом «Comp***» где *** инвентарный номер. Соответственно выполнив ваш скрипт получаю список по которому идентифицировать «кто есть кто» очень не легко. В связи с этим если это возможно получать список Вида:
ИмяКомпьютера(Описание)
Описание это то что содержится в АД в описании конкретного компьютера я думаю туда вписать либо должности либо фамилии,тем самым хоть как то определять «ху из ху»
Спасибо большое в любом случае
С Уважением Дмитрий.
By Alexander, Май 20, 2009 @ 8:53 пп
2 Dmitry
Модифицировать скрипт очень просто.
Строки в список добавляются в цикле Do Until – Loop.
Вот моя модификация (выводится описание + добавлены ПК с WinXP-TabletPC):
Do Until rs.EOF
Set comp = GetObject(»LDAP://» & rs.Fields(0))
If Len(comp.dnsHostName) > 0 And (comp.OperatingSystem = «Windows XP Professional» Or comp.OperatingSystem = «Windows XP Tablet PC Edition») Then
sOut=sOut & «» & Mid(comp.Name, 4, Len(comp.Name) – 3) & » – » & comp.description & vbcrlf
End If
rs.MoveNext
Loop
By Alexander, Май 20, 2009 @ 8:58 пп
PS Спасибо АВТОРУ.
By jake, Ноябрь 27, 2009 @ 12:51 пп
Здравствуйте, Спасибо огромное за статью очень интерсенно и полезно… Непробывал кто-либо оптимизировать удаленный помощник, дело в том что на подключении к пользователю уходит достаточно много времени и после отключения от пользователя у него остаються открытыми окна помощника. Нельзя ли вообще убрать маленькое прямоугольное окошечко (где ведется диалог, делаются настройки) у того кто подключается и к ком подключаются, оно только экран закрывает, а закрывать его каждый раз, тратиться время.