Ура победа... может кому пригодиться
Цитата |
---|
Function Main()
set RT = CreateObject ("ADODB.Connection") RT.Open "kadr-sql", "", "" Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") Set objRecordSet = CreateObject("ADODB.Recordset") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.Properties("Timeout") = 30 objCommand.Properties("Cache Results") = False objCommand.CommandText = "SELECT displayName,mail,employeeID FROM 'LDAP://domen.ru' WHERE objectClass = 'user' and objectCategory = 'person'" Set objRecordSet = objCommand.Execute() While Not objRecordSet.EOF fio = objRecordSet.Fields("displayName").Value email = objRecordSet.Fields("mail").Value tabnam = TRIM (objRecordSet.Fields("employeeID").Value) Set RS1 = RT.Execute("EXEC ad_users_reg @fio = '" & fio &"' , @tabnam ='"&tabnam&"', @email = '" & email & "' ") objRecordSet.MoveNext Wend Main = DTSTaskExecResult_Success End Function |