Кроссдоменный запрос к Active Directory скриптом Visual Basic

@Def35 · Регистрация: 01.03.2022

Студворк — интернет-сервис помощи студентам

Добрый день.
Никак не получается до конца заставить работать скрипт. Суть проблемы: скрипт запрашивает в AD данные по пользователям из определённой ветки и на основе этой информации создаёт контакты в другой ветке. Внутри одного домена (local.mycompany.ru) всё работает как надо, однако, если обращаться к поддомену (subdivision.local.mycompany.ru), то запрос возвращает только атрибуты с вкладки "Общие" пользователя, а остальные вкладки - нет. Возможно, дело в правах доступа? Никак не могу разобраться. Сам не программист и не знаток нюансов AD. Может, подскажете дельное что?
Скрипт запускается на контроллере домена.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
Option Explicit
On error resume next ' отключаем ошибки
 
' Объявляем переменные
Dim objRootDSE, strDNSDomain, strBase, strDomain
Dim adoCommand, adoConnection, objRS, strFilter, strAttributes, strQuery
Dim objExcel, strName, strPhone, strMail, strMobile, strCountry, strCity, strCompany, strDepartment, strTitle, strIpPhone
Dim strGivenName, strSN, strDisplayName, strItem
Dim objRoot, objOU, objDomain, objContact
Dim strDNS, strContainer, strContactName, strEmail
 
'==================================================================================
'Очищаем список контактов
'==================================================================================
' Определяем имя домена (к которому принадлежит машина, с которой запускается скрипт) 
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNS = objRootDSE.Get("defaultNamingContext")
 
' Подключаемся к AD
Set adoCommand = CreateObject("ADODB.Command")
Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.Provider = "ADsDSOObject"
adoConnection.Open "Active Directory Provider"
Set adoCommand.ActiveConnection = adoConnection
' Строка подключения (указываем нужные OU)
strBase = "<LDAP://OU=Subdivision,OU=Addressbook," & strDNS & ">"
 
' Удаляем из AD все контакты пользователей
strFilter = "(objectClass=contact)"' - все контакты в указанном OU!
strAttributes = "name,mail"
 
' Формируем строку запроса.
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
 
' Выполним запрос.
adoCommand.CommandText = strQuery
adoCommand.Properties("Page Size") = 500
adoCommand.Properties("Timeout") = 307
adoCommand.Properties("Cache Results") = False
Set objRS = adoCommand.Execute
While not objRS.EOF
    strName = objRS.Fields("name").Value
    strMail = objRS.Fields("mail").value
    if strMail<>"" then
        Err.Clear
        'Удаляем контакт пользователя
        strContainer = "OU=Subdivision,OU=Addressbook" 'Название контейнера, в котором будем удалять контакты пользователей.
        strContactName = "cn=" & chr(34) & strName & chr(34) 'Название контакта
        Set objOU = GetObject("LDAP://"& strContainer & "," & strDNS)
        a = objOU.Delete ("Contact", strContactName)
    end if
    objRS.MoveNext
Wend
 
'Чистим память
Set objRS = Nothing
Set adoCommand = Nothing
Set adoConnection = Nothing
Set objOU = Nothing
 
'==================================================================================
'Создаём контакты из пользователей
'==================================================================================
' Определяем имя домена
strDomain = "OU=Пользователи,DC=Subdivision,DC=local,DC=mycompany,DC=ru"
Set objRootDSE = GetObject("GC://" & strDomain)
strDNSDomain = objRootDSE.Get("defaultNamingContext")
 
Set adoCommand = CreateObject("ADODB.Command")
Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.Provider = "ADsDSOObject"
adoConnection.Open "Active Directory Provider"
Set adoCommand.ActiveConnection = adoConnection
strBase = "<GC://" & strDomain & ">"
 
' Найти все активные учетные записи.
strFilter = "(&(objectCategory=person)(objectClass=user)(|(useraccountControl=66048)(useraccountcontrol=512)))" 
strAttributes = "name,mail,sn,displayname,givenname,telephoneNumber,mobile,ipPhone,department,title,company"
 
' Формируем строку запроса.
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
 
' Выполним запрос.
adoCommand.CommandText = strQuery
adoCommand.Properties("Page Size") = 1000 
adoCommand.Properties("Timeout") = 307
adoCommand.Properties("Cache Results") = False
Set objRS = adoCommand.Execute
 
' Обработаем полученные данные из запроса
While Not objRS.EOF
    strName = objRS.Fields("name").Value
    strMail = objRS.Fields("mail").Value
    strCompany = objRS.Fields("company").Value
    strIpPhone = objRS.Fields("ipPhone").Value
    strPhone = objRS.Fields("telephoneNumber").Value
        'strPhone = Replace(strPhone,"-","") 'Откидываем тире из телефона
        'strPhone = Replace(strPhone," ","") 'Откидываем пробелы из телефона   
    strMobile = objRS.Fields("mobilePhone").Value
        'strMobile = Replace(strMobile,"-","") 'Откидываем тире из телефона
        'strMobile = Replace(strMobile," ","") 'Откидываем пробелы из телефона
    strDepartment = objRS.Fields("department").Value
    strTitle = objRS.Fields("title").Value
    strGivenName=objRS.Fields("givenname").Value
    strSN=objRS.Fields("sn").Value
    strDisplayName=objRS.Fields("displayname").Value
 
    'Заполним поля, если есть электронная почта
    if strMail<>"" then
        Err.Clear
        ' Создаём контакт из пользователя. Подготовка.
        strContainer = "OU=Subdivision,OU=Addressbook" 'Название контейнера, в который будем класть контакты, созданные из пользователей.
        strContactName = "cn=" & strName 'Название контакта
        strEmail = strMail 'Адрес электронной почты
 
        ' Создаём запрос к Active Directory
        Set objRoot = GetObject("LDAP://RootDSE")
        strDNS = objRoot.Get("defaultNamingContext")
        Set objDomain = GetObject("LDAP://" & strDNS)
 
        ' Создаём контакт из пользователя.
        Set objOU = GetObject("LDAP://"& strContainer & "," & strDNS)
        Set objContact = objOU.Create("contact", strContactName)
        objContact.Put "Mail", strEmail
        if strGivenName <> "" then objContact.Put "givenname", strGivenName
        if strSN <> "" then objContact.Put "sn", strSN
        if strDisplayName <> "" then objContact.Put "displayname", strDisplayName
        if strPhone <> "" then objContact.Put "telephoneNumber", strPhone
        if strOtherPhone <> "" then objContact.Put "otherTelephone", strOtherPhone
        if strMobile <> "" then objContact.Put "mobile", strMobile
        if strCompany <> "" then objContact.Put "company", strCompany
        if strDepartment <> "" then objContact.Put "department", strDepartment
        if strTitle <> "" then objContact.Put "title", strTitle
        objContact.SetInfo
    end if
 
    objRS.MoveNext
Wend
 
Set objRS = Nothing
Set adoCommand = Nothing
Set adoConnection = Nothing
Set objOU = Nothing
WScript.Quit

@Rh2Dark · 07.03.2022, 18:49

Во первых, зачем "On error resume next"? Возможно там ошибка, но вы её не видите, т.к. отключили обработку ошибок. Попробуйте включить и прогнать скрипт.
Во вторых, попробуйте использовать везде в строке запроса "<GC://" вместо "<LDAP://". "<LDAP://" работает только в родном домене, тогда как "<GC://" и в родном и в кроссдоменах.

Добавлено через 20 минут
Добавлю: в код ваш сильно не вникал потому как очень трудно читать неотформатированный код. Возможно там внутри что-то не так. Чтобы отформатировать выделите текст кода и нажмите кнопку "BASIC" на панели инструментов редактирования вашего сообщения, потом жмите кнопку отправки ответа.

@Def35 · 09.03.2022, 10:22 **[ТС]**

LDAP в этом коде я использую только при обращении внутри одного домена, для запроса в другой домен использую GC. Попробую сегодня везде GC использовать.

Насчёт "On error resume next" - без этой опции будет выдавать ошибки не критичные для работы, например, ошибка при создании контакта, который уже существует, или при запросе к AD про "отсутствие чего-то там в кэше" (точно не помню).

Код перевыложу в соответствии с вашим замечанием про форматирование =)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
Option Explicit
On error resume next ' отключаем ошибки
 
' Объявляем переменные
Dim objRootDSE, strDNSDomain, strBase, strDomain
Dim adoCommand, adoConnection, objRS, strFilter, strAttributes, strQuery
Dim objExcel, strName, strPhone, strMail, strMobile, strCountry, strCity, strCompany, strDepartment, strTitle, strIpPhone
Dim strGivenName, strSN, strDisplayName, strItem
Dim objRoot, objOU, objDomain, objContact
Dim strDNS, strContainer, strContactName, strEmail
 
'==================================================================================
'Очищаем список контактов
'==================================================================================
' Определяем имя домена (к которому принадлежит машина, с которой запускается скрипт) 
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNS = objRootDSE.Get("defaultNamingContext")
 
' Подключаемся к AD
Set adoCommand = CreateObject("ADODB.Command")
Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.Provider = "ADsDSOObject"
adoConnection.Open "Active Directory Provider"
Set adoCommand.ActiveConnection = adoConnection
' Строка подключения (указываем нужные OU)
strBase = "<LDAP://OU=Subdivision,OU=Addressbook," & strDNS & ">"
 
' Удаляем из AD все контакты пользователей
strFilter = "(objectClass=contact)"' - все контакты в указанном OU!
strAttributes = "name,mail"
 
' Формируем строку запроса.
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
 
' Выполним запрос.
adoCommand.CommandText = strQuery
adoCommand.Properties("Page Size") = 500
adoCommand.Properties("Timeout") = 307
adoCommand.Properties("Cache Results") = False
Set objRS = adoCommand.Execute
While not objRS.EOF
    strName = objRS.Fields("name").Value
    strMail = objRS.Fields("mail").value
    if strMail<>"" then
        Err.Clear
        'Удаляем контакт пользователя
        strContainer = "OU=Subdivision,OU=Addressbook" 'Название контейнера, в котором будем удалять контакты пользователей.
        strContactName = "cn=" & chr(34) & strName & chr(34) 'Название контакта
        Set objOU = GetObject("LDAP://"& strContainer & "," & strDNS)
        a = objOU.Delete ("Contact", strContactName)
    end if
    objRS.MoveNext
Wend
 
'Чистим память
Set objRS = Nothing
Set adoCommand = Nothing
Set adoConnection = Nothing
Set objOU = Nothing
 
'==================================================================================
'Создаём контакты из пользователей
'==================================================================================
' Определяем имя домена
strDomain = "OU=Пользователи,DC=Subdivision,DC=local,DC=mycompany,DC=ru"
Set objRootDSE = GetObject("GC://" & strDomain)
strDNSDomain = objRootDSE.Get("defaultNamingContext")
 
Set adoCommand = CreateObject("ADODB.Command")
Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.Provider = "ADsDSOObject"
adoConnection.Open "Active Directory Provider"
Set adoCommand.ActiveConnection = adoConnection
strBase = "<GC://" & strDomain & ">"
 
' Найти все активные учетные записи.
strFilter = "(&(objectCategory=person)(objectClass=user)(|(useraccountControl=66048)(useraccountcontrol=512)))" 
strAttributes = "name,mail,sn,displayname,givenname,telephoneNumber,mobile,ipPhone,department,title,company"
 
' Формируем строку запроса.
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
 
' Выполним запрос.
adoCommand.CommandText = strQuery
adoCommand.Properties("Page Size") = 1000 
adoCommand.Properties("Timeout") = 307
adoCommand.Properties("Cache Results") = False
Set objRS = adoCommand.Execute
 
' Обработаем полученные данные из запроса
While Not objRS.EOF
    strName = objRS.Fields("name").Value
    strMail = objRS.Fields("mail").Value
    strCompany = objRS.Fields("company").Value
    strIpPhone = objRS.Fields("ipPhone").Value
    strPhone = objRS.Fields("telephoneNumber").Value
        'strPhone = Replace(strPhone,"-","") 'Откидываем тире из телефона
        'strPhone = Replace(strPhone," ","") 'Откидываем пробелы из телефона   
    strMobile = objRS.Fields("mobilePhone").Value
        'strMobile = Replace(strMobile,"-","") 'Откидываем тире из телефона
        'strMobile = Replace(strMobile," ","") 'Откидываем пробелы из телефона
    strDepartment = objRS.Fields("department").Value
    strTitle = objRS.Fields("title").Value
    strGivenName=objRS.Fields("givenname").Value
    strSN=objRS.Fields("sn").Value
    strDisplayName=objRS.Fields("displayname").Value
 
    'Заполним поля, если есть электронная почта
    if strMail<>"" then
        Err.Clear
        ' Создаём контакт из пользователя. Подготовка.
        strContainer = "OU=Subdivision,OU=Addressbook" 'Название контейнера, в который будем класть контакты, созданные из пользователей.
        strContactName = "cn=" & strName 'Название контакта
        strEmail = strMail 'Адрес электронной почты
 
        ' Создаём запрос к Active Directory
        Set objRoot = GetObject("LDAP://RootDSE")
        strDNS = objRoot.Get("defaultNamingContext")
        Set objDomain = GetObject("LDAP://" & strDNS)
 
        ' Создаём контакт из пользователя.
        Set objOU = GetObject("LDAP://"& strContainer & "," & strDNS)
        Set objContact = objOU.Create("contact", strContactName)
        objContact.Put "Mail", strEmail
        if strGivenName <> "" then objContact.Put "givenname", strGivenName
        if strSN <> "" then objContact.Put "sn", strSN
        if strDisplayName <> "" then objContact.Put "displayname", strDisplayName
        if strPhone <> "" then objContact.Put "telephoneNumber", strPhone
        if strOtherPhone <> "" then objContact.Put "otherTelephone", strOtherPhone
        if strMobile <> "" then objContact.Put "mobile", strMobile
        if strCompany <> "" then objContact.Put "company", strCompany
        if strDepartment <> "" then objContact.Put "department", strDepartment
        if strTitle <> "" then objContact.Put "title", strTitle
        objContact.SetInfo
    end if
 
    objRS.MoveNext
Wend
 
Set objRS = Nothing
Set adoCommand = Nothing
Set adoConnection = Nothing
Set objOU = Nothing
WScript.Quit

Добавлено через 1 час 20 минут
При использовании GC везде, скрипт не создаёт ни одного контакта. А так c LDAP создаёт, так как создание контактов идёт внутри одного домена, а сбор информации - кроссдоменный.

@Def35 · 15.03.2022, 08:20 **[ТС]**

Проблему решил методом научного тыка.
Если кому-то будет полезно: помогло записать имя домена в виде subdivision.local.mycompany.ru вместо distinguished name (строка 69 кода ниже).

Код получился такой. Менее универсальный, но немного короче.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
Option Explicit
 
' Объявляем переменные
Dim objRootDSE, strDNSDomain, strBase, strDNS
Dim adoCommand, adoConnection, objRS, strFilter, strAttributes, strQuery
Dim objRoot, objOU, objDomain, objContact
Dim strContainer, strContactName, strEmail
Dim strName, strPhone, strMail, strMobile, strCompany, strDepartment, strTitle, strIpPhone, strGivenName, strSN, strDisplayName, strItem
Dim a
 
'===================================================================
'Очищаем список контактов
'===================================================================
' Определяем имя домена (к которому принадлежит машина, с которой запускается скрипт) 
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNS = objRootDSE.Get("defaultNamingContext")
 
' Подключаемся к AD
Set adoCommand = CreateObject("ADODB.Command")
Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.Provider = "ADsDSOObject"
adoConnection.Open "Active Directory Provider"
Set adoCommand.ActiveConnection = adoConnection
' Строка подключения (указываем нужные OU)
strBase = "<LDAP://OU=Subdivision,OU=Addressbook," & strDNS & ">"
 
' Удаляем из AD все контакты пользователей
strFilter = "(objectClass=contact)"' - все контакты в указанном OU!
' В переменной strAttributes обязательно перечисляем список атрибутов, по которым выбираются контакты. Без них работать не будет.
strAttributes = "name,mail"
 
' Формируем строку запроса.
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
 
' Выполним запрос.
adoCommand.CommandText = strQuery
adoCommand.Properties("Page Size") = 500
adoCommand.Properties("Timeout") = 307
adoCommand.Properties("Cache Results") = False
Set objRS = adoCommand.Execute
While not objRS.EOF
    strName = objRS.Fields("name").Value
    strMail = objRS.Fields("mail").value
    if strMail<>"" then
        Err.Clear
        'Удаляем контакт пользователя
        strContainer = "OU=Subdivision,OU=Addressbook" 'Название контейнера, в котором будем удалять контакты пользователей.
        strContactName = "cn=" & chr(34) & strName & chr(34) 'Название контакта
        Set objOU = GetObject("LDAP://"& strContainer & "," & strDNS)
        a = objOU.Delete ("Contact", strContactName)
    end if
    objRS.MoveNext
Wend
 
'Чистим память
Set objRS = Nothing
Set adoCommand = Nothing
Set adoConnection = Nothing
Set objOU = Nothing
 
 
'===============================================================
'Создаём контакты из пользователей
'===============================================================
Set adoCommand = CreateObject("ADODB.Command")
Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.Open "Provider=ADsDSOObject;"
Set adoCommand.ActiveConnection = adoConnection
strBase = "<LDAP://Subdivision.local.mycompany.ru>" 'Вся загвоздка оказалась в этой строке
 
strFilter = "(&(objectCategory=person)(|(useraccountControl=66048)(useraccountcontrol=512)))" 'useraccountcontrol=512 - включенные пользователи!
' В переменной strAttributes обязательно перечисляем список атрибутов, которые переносятся, иначе работать не будет!
strAttributes = "name,mail,sn,displayname,givenname,ipPhone,telephoneNumber,mobile,title,department,company" 
 
 
' Формируем строку запроса.
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
 
' Выполним запрос.
adoCommand.CommandText = strQuery
adoCommand.Properties("Page Size") = 1000 ' Максимальное количество пользователей, которое получит в ответе запрос к AD!
adoCommand.Properties("Timeout") = 307
Set objRS = adoCommand.Execute
 
' Обработаем полученные данные из запроса
While Not objRS.EOF
    strName = objRS.Fields("name").Value
    strMail = objRS.Fields("mail").Value
    strGivenName = objRS.Fields("givenname").Value
    strSN = objRS.Fields("sn").Value
    strDisplayName = objRS.Fields("displayname").Value
    strIpPhone = objRS.Fields("ipPhone").Value
    strPhone = objRS.Fields("telephoneNumber").Value
        'strPhone = Replace(strPhone,"-","") 'Откидываем тире из телефона
        'strPhone = Replace(strPhone," ","") 'Откидываем пробелы из телефона   
    strMobile = objRS.Fields("mobile").Value
        'strMobile = Replace(strMobile,"-","") 'Откидываем тире из телефона
        'strMobile = Replace(strMobile," ","") 'Откидываем пробелы из телефона
    strTitle = objRS.Fields("title").Value
    strDepartment = objRS.Fields("department").Value
    strCompany = objRS.Fields("company").Value
 
    'Заполним поля, если есть электронная почта
    if strMail<>"" then
        Err.Clear
        ' Создаём контакт из пользователя. Подготовка.
        strContainer = "OU=Subdivision,OU=Addressbook" 'Название контейнера, в который будем класть контакты, созданные из пользователей.
        strContactName = "cn=" & strName 'Название контакта
        strEmail = strMail 'Адрес электронной почты
 
        ' Создаём запрос к Active Directory
        Set objRoot = GetObject("LDAP://RootDSE")
        strDNS = objRoot.Get("defaultNamingContext")
 
        ' Создаём контакт из пользователя.
        Set objOU = GetObject("LDAP://"& strContainer & "," & strDNS)
        Set objContact = objOU.Create("contact", strContactName)
        objContact.Put "Mail", strEmail
        if strGivenName <> "" then objContact.Put "givenname", strGivenName
        if strSN <> "" then objContact.Put "sn", strSN
        if strDisplayName <> "" then objContact.Put "displayname", strDisplayName
        if strPhone <> "" then objContact.Put "telephoneNumber", strPhone
        if strMobile <> "" then objContact.Put "mobile", strMobile
        if strIpPhone <> "" then objContact.Put "ipPhone", strIpPhone
        if strTitle <> "" then objContact.Put "title", strTitle
        if strDepartment <> "" then objContact.Put "department", strDepartment
        if strCompany <> "" then objContact.Put "company", strCompany
        
        objContact.SetInfo 'контакт успешно создан! 
    end if
 
    objRS.MoveNext
Wend
 
Чистим память и выходим из скрипта!
Set objRS = Nothing
Set adoCommand = Nothing
Set adoConnection = Nothing
Set objOU = Nothing
WScript.Quit

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@Rh2Dark 32 / 32 / 0 Регистрация: 05.11.2020 Сообщений: 102
	07.03.2022, 18:49
	Во первых, зачем "On error resume next"? Возможно там ошибка, но вы её не видите, т.к. отключили обработку ошибок. Попробуйте включить и прогнать скрипт. Во вторых, попробуйте использовать везде в строке запроса "<GC://" вместо "<LDAP://". "<LDAP://" работает только в родном домене, тогда как "<GC://" и в родном и в кроссдоменах. Добавлено через 20 минут Добавлю: в код ваш сильно не вникал потому как очень трудно читать неотформатированный код. Возможно там внутри что-то не так. Чтобы отформатировать выделите текст кода и нажмите кнопку "BASIC" на панели инструментов редактирования вашего сообщения, потом жмите кнопку отправки ответа. 1