VBAでLDAP認証

LDAP VBA ActiveDirectory

ExcelでLDAP認証をしたいという要件があったので、調べてみました。OKかNGかだけだと、意外と簡単なのですね。

Sub 認証()

    On Error Resume Next

    Set objNS = GetObject("LDAP:")
    Set objOpenObject = objNS.OpenDSObject("LDAP://dom01.xxx.co.jp", "hogehoge@xxx.co.jp", "password", 1)
    
    If Err.Number = 0 Then
        MsgBox "認証成功"
    Else
        MsgBox "だめ"
    End If

End Sub