:laugh:Версия AutoIt: 3.
Описание: Тема раскрыта тут: http://beliy.org.ua/skripti-na-autoit/avtomaticheskoe-podklyuchenie-baz-1s-v-ad.html
Подскажите куда воткнуть еще одно условие на префикс комментария группы? допустим если комментарий начинается с "reg add" то выполнить всю запись как команду CMD
Описание: Тема раскрыта тут: http://beliy.org.ua/skripti-na-autoit/avtomaticheskoe-podklyuchenie-baz-1s-v-ad.html
Код:
#include <AD.au3> ; библиотека для работы с АД
#include <Array.au3> ; библиотека для работы с массивами
$pathDB = @AppDataDir & '\1C\1CEStart\' ;путь куда должен записаться файл ibases.v8i
; делаем бэкап файла. В дальнейшем рекомендуется отключить или периодически чистить старые бекапы во избания переполнения дискового пространства
If FileExists($pathDB & '\ibases.v8i') Then FileCopy($pathDB & '\ibases.v8i', $pathDB & "\backup\" & @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & '\', 8)
; Открываем соединение к Active Directory
_AD_Open()
If @error Then Exit MsgBox(16, "Active Directory Example Skript", "Function _AD_Open encountered a problem. @error = " & @error & ", @extended = " & @extended)
Global $aProperties[1][2]
Global $aUser
$aUser = _AD_GetUserGroups(@UserName) ; парсим в каких группах находится пользователь
If $aUser[0] = 0 Then
ConsoleWrite(@UserName & " group not found" & @CRLF)
Else
$file = FileOpen($pathDB & '\ibases.v8i', 138) ; открываем файл для записи в кодировке UTF-8 удалив содержимое текущего файла
; На всякий случай проверяем права на запись файла
If $file = -1 Then
ConsoleWrite("Error!!! Unable to open file." & @CRLF)
Exit
EndIf
For $i = 1 to (UBound($aUser, 1) -1) Step 1 ; в цикле проверяем записи в всех группах пользователя
Global $sGroup = _AD_FQDNToSamAccountName($aUser[$i])
$aProperties = _AD_GetObjectProperties($sGroup)
;_ArrayDisplay($aProperties, "Свойства группы '" & $sGroup & "'") ; !!! информация для дебага
$iIndex = _ArraySearch($aProperties, "info", 0, 0, 0, 1, 1, 0) ; ищем заметки в настройках группы
If @error Then
ConsoleWrite("Error!!! Note INFO not found." & @CRLF)
Else
ConsoleWrite($pathDB & "Найден в массиве в позиции "& $iIndex & ' Записано: ' & $aProperties[$iIndex][1] & @CRLF)
FileWrite($file, $aProperties[$iIndex][1])
EndIf
Next ; конец цикла
FileClose($file) ; закрываем ранее открытый файл
EndIf
; Закрываем соединение к Active Directory
_AD_Close()
Подскажите куда воткнуть еще одно условие на префикс комментария группы? допустим если комментарий начинается с "reg add" то выполнить всю запись как команду CMD