从 VBScript 创建 AD 用户 -> 错误代码 0

Question

我运行在 VBScript 中遇到了一个奇怪的错误：

[...]
            objUser.sAMAccountName = strNTName
            On Error Resume Next
            objUser.SetInfo
            If (Err.Number <> 0) Then
                On Error GoTo 0
                Wscript.Echo "Unable to create user with NT name: " & strNTName & " - Error-Code: " & Err.Number & " (sAMAccountName)"
            Else
[...]

好吧，我收到一个消息框：无法使用 NT 名称创建用户：testuser - 错误代码：0 (sAMAccountName)

怎么会这样？我究竟做错了什么？是 0 <> 0 吗？！？还尝试了“0”以确保...

更新：现在 - 感谢@JosefZ 我整理出了错误代码 -2147016651 但这对我也没有帮助...... 新代码：

[...]
    Set objUser = objContainer.Create("user", "cn=" & strCN)
    If (Err.Number <> 0) Then
        On Error GoTo 0
        Wscript.Echo "Unable to create user with cn: " & strCN
    Else
        On Error GoTo 0
        ' Assign mandatory attributes and save user object.
        If (strNTName = "") Then
            strNTName = strCN
        End If
            objUser.sAMAccountName = strNTName
            On Error Resume Next
            objUser.SetInfo
            If (Err.Number <> 0) Then
                Wscript.Echo "Unable to create user with NT name: " & strNTName & " - Error-Code: " & Err.Number & " (sAMAccountName)"
                On Error GoTo 0
            Else
[...]

strNTName 是 testuser（无空格 - 检查）

strCN 是 'Test User'（当然没有引号前后没有其他字符）

Answer 1

On Error GoTo 0 语句自动调用 Clear 方法的记录不完整。因此，使用

'[...]
        objUser.sAMAccountName = strNTName
        On Error Resume Next
        objUser.SetInfo
        If (Err.Number <> 0) Then
            Wscript.Echo "Unable to create user with NT name: " & strNTName & " - Error-Code: " & Err.Number & " (sAMAccountName)"
            On Error GoTo 0
        Else
'[...]

从 VBScript 创建 AD 用户 -> 错误代码 0

Creating AD-Users from VBScript -> Error Code 0

vbscript

active-directory