$objADOCommand.ActiveConnection = $objADOConn

$objADOCommand.CommandText = $strADSQuery

$objQueryResultSet = $objADOCommand.Execute

$objRoot_m1=$objQueryResultSet.Fields("department")

$objRoot_m2=$objQueryResultSet.Fields("physicaldeliveryofficename")

$objRoot_m3=$objQueryResultSet.Fields("telephonenumber")

$objRoot_m4=$objQueryResultSet.Fields("title")

Как видно из примера, имя пользователя определяется с помощью встроенного в KIXTart макроса @userid. Определение значения необходимых полей осуществляется с помощью процедуры поиска объекта, в данном случае учетной записи, и чтения необходимых свойств.

Стоит отметить, что этой проблемы быть не должно, поскольку Windows по умолчанию использует кодировку cp1251. Однако при взаимодействии KIXTart с Windows кодировка «съезжает». С решением этой проблемы, пусть не самым изящным, но эффективным, читатель только что ознакомился.

Обратите внимание, несмотря на то что значения, прочитанные из AD, имеют тип данных либо «строка», либо «массив», при попытке записать их в файл отчета выдается ошибка несоответствия типа. По непонятным причинам функции преобразования типов данных не дают желаемого результата. Предлагается следующее решение возникшей задачи, которое состоит их двух этапов.

На первом этапе данные из AD записываются в INI-файлы с помощью функции WriteProfileString(). Затем осуществляется считывание этих данных из INI-файлов и их запись в накапливаемую переменную, содержание которой представляет собой записываемую информацию в XML-файл.

Таким образом, осуществляется смена кодировки, в которой записывается информация:

$ini_file="@wksta.ini"

$user_name="user"

$user1=writeprofilestring("$ini_file", $user_name,"department",$objRoot_m1)

$user2=writeprofilestring("$ini_file", $user_name,"location",$objRoot_m2)

$user3=writeprofilestring("$ini_file", $user_name,"telephone",$objRoot_m3)

$user4=writeprofilestring("$ini_file", $user_name,"title",$objRoot_m4)

$user5=writeprofilestring("$ini_file", $user_name,"User ID","@userID")

$user6=writeprofilestring("$ini_file", $user_name,"Full Name","@fullname")

$objRoot1=readprofilestring("$ini_file", $user_name,"department")

$objRoot2=readprofilestring("$ini_file", $user_name,"location")

$objRoot3=readprofilestring("$ini_file", $user_name,"telephone")

$objRoot4=readprofilestring("$ini_file", $user_name,"title")