active-directory - VB6粘贴问题

Question

我有一个奇怪的问题。我有一个文本框，我在其中粘贴来自我们的票务系统的信息，我希望在其中验证 Active Directory 和其他内容中的用户。在粘贴的信息中，我有一个用户名，偶尔还有一个用户 ID。奇怪的是，我解析姓氏和名字并将它们存储为字符串字段。我将这两个字段传递给执行 Active Directory 查询的函数。我未能在 Active Directory 中取得成功。但是，如果我直接从文本框中复制到接受名字和姓氏的表单并调用相同的函数，我将从 Active Directory 中获得成功。我验证了名称的确切长度是正确的。据我所知，我没有传递任何白色字符。任何想法我做错了什么或如何解决这个问题？

将First Name和Last Name到字段的代码，然后进行调用以检查 Active Directory。这是我正确提取名称但在 Active Directory 中找不到条目的部分。

    Idx = InStr(txtPaste.Text, "Voalte.")
    Work = Mid$(txtPaste.Text, Idx + 8, Len(txtPaste.Text))

    Temp = LTrim(Work)
   
    FirstName = RTrim(Left(Temp, InStr(1, Temp, " ") - 1))
    LastName = RTrim(Mid(Temp, InStr(Temp, " ") + 1))
      
    MsgBox "First Name: " & FirstName & " Len: " & Len(FirstName) & "   /   
    " & "Last Name: " & LastName & " Len: " & Len(LastName)
   
    txtADUserID.Text = GetID(LastName, FirstName)
    DoEvents
    MsgBox "ID: " & txtADUserID.Text
    txtADUserName.Text = FirstName & " " & LastName"

我有一个接受名字和姓氏并调用GetID函数的表单。这有效

    fFirstname = txtFirstName.Text
    fLastName = txtLastName.Text

   
    txtADUserName.Text = fFirstname & Space(1) & fLastName
    txtADUserID.Text = GetID(fLastName, fFirstname)
    If Len(txtADUserID.Text) = 0 Then
       txtADUserID.Text = "User Not Found"
    End If

txtADUserName和TXTADUserID是表单上的字段。

这是我正在解析的数据。

Voalte One 的 IAM 申请请求 - v3.3

请求日期：2021 年 9 月 29 日请求：- 1 - John Doe（无员工编号）；

请提供您希望此用户在 Voalte 中“镜像”访问权限的人的姓名。弗雷德·弗林斯通

标签： active-directoryvb6paste