使用vbscript测试本地用户凭据

Question

我正在制作安装程序，使用vbscript验证用户帐户。

我如何测试用户输入的密码？ 我使用下面的代码，但它不起作用，甚至在错误的密码上返回true。

Const ADS_SECURE_AUTHENTICATION = 1
Function CheckCredentials(Domain, Account, Password)

    Dim objIADS
    Set objIADS = GetObject("WinNT:").OpenDSObject("WinNT://" & Domain , Account, Password, ADS_SECURE_AUTHENTICATION)

    If err.number = 0 then
    CheckCredentials = True
Else
    CheckCredentials = False
End If
End Function

代码有什么问题？ 感谢