Я не разработчик, я пытаюсь понять, почему мое программное обеспечение для продажи билетов не может импортировать людей из Windows AD.Это работало нормально месяц назад.У меня нет доступа к Windows AD, но они сказали, что «без изменений или обновлений» недавно сделали
У меня есть отдельная проблема, связанная с полем «менеджер» AD, что означает, что мое программное обеспечение по продаже билетов имеет возможность не пытатьсяимпортировать поле менеджера (или что-то еще), и оно будет работать нормально
Вот код, который выполняет импорт
Option Explicit On ' Change to Off instead of On to disable the need to declare variables with Dim. (NOT recommended)
Option Strict Off ' Change to Off instead of On to cast variables automatically. (NOT recommended)
Option Compare Binary ' Change to Text instead of Binary to let string "A" equal to "a".
Imports System
Imports System.Data
Imports System.Collections
Это класс сценария преобразования.Обратите внимание на следующие правила:
' - You are not allowed to change the name of the class (must be "TransformationScript")
' - You are not allowed to change the namespace the class is in (the class "TransformationScript" must not be in a namespace).
' - You are not allowed to change the name of the method (must be "Transform")
' - You are not allowed to change the parameters of the "Transform" method
' This method is called by the transformation logic. The dt parameter contains the data table with the data to transform.
' Any additional arguments are passed in the additionalArguments list.
Public Class TransformationScript
Public Sub Transform (ByVal dt As System.Data.DataTable, ByVal additionalArguments As SortedList)
For Each row As DataRow In dt.Rows
Dim strValue As String
If Not String.IsNullorEmpty(row.Item("manager").ToString)
strValue = row.Item("manager").ToString
Dim strArray() As String
Dim strManager As String
Dim strManagerDisplayName As String
разделить объект диспетчера AD на "OU" и результаты в массив
strArray = strValue.Split("OU")
получить позицию массива строк "0", которая содержитимя менеджера
strManager = strArray(0)
очистить дисплей диспетчера и убрать "CN =" и "\" и последние ","
strManagerDisplayName = strManager.Replace("CN=","")
strManagerDisplayName = strManagerDisplayName.Replace("\","")
strManagerDisplayName = strManagerDisplayName.Remove(strManagerDisplayName.Length-1)
вернуть диспетчера имя дисплея
row.Item("manager") = strManagerDisplayName
End If
Next
End Sub
End Class
Я хочу понять, что код пытается сделать, и возможные основные причины того, что может вызывать проблему
Заранее спасибо