LDAP Authentication for Macro Excel

Pada posting sebelumnya mengenai Insert Data from Excel Sheet to SQLServer telah dijelaskan mengenai cara melakukan insert data ke SQL Server melalui Microsoft Excel. Pada posting kali ini akan dijelaskan cara menambahkan Macro Excel LDAP Authentication agar user yang melakukan input di Microsoft Excel harus mengisikan user dan password agar dapat melakukan upload data.

User dan password yang digunakan untuk melakukan Macro Excel LDAP Authentication adalah user dan password domain, tujuan penggunaan password domain adalah agar kita tidak perlu membuat role yang rumit didalam tabel SQLServer.

Dibawah ini adalah gambar sheet untuk melakukan Macro Excel LDAP Authentication menggunakan macro dengan melakukan pengechekan ke LDAP.

LDAP Authentication for Macro Excel

Dari gambar diatas terdapat pilihan domain untuk menentukan domain user yang isinya diambil dari data yang telah ada di excel.
LDAP Authentication for Macro Excel

Selanjutnya kita siapkan script macro untuk melakukan otentikasi berdasarkan inputan diatas. Di bawah ini script macro yang dapat digunakan untuk melakukan otentikasi LDAP dari macro Microsoft Excel.

Function Authenticated(strUserID As String, strPassword As String, Optional strDNSDomain As String = "") As Boolean
    If strDNSDomain = "" Then
        Set objRootDSE = GetObject("LDAP://RootDSE")
        strDNSDomain = objRootDSE.Get("defaultNamingContext")
    End If
    
    'Authenticate
    Set dso = GetObject("LDAP:")
    On Error Resume Next
    Err.Clear
    Set ou = dso.OpenDSObject("LDAP://" & strDNSDomain, strUserID, strPassword, 1)
    Authenticated = (Err.Number = 0)

End Function

Dari scipt diatas untuk Macro Excel LDAP Authentication kita tinggal memanggil nama function tersebut dan jika nilai kembaliannya adalah "True" maka user dan password yang dimasukkan cocok dengan LDAP sedangkan jika nilainya adalah "False" maka otentikasi gagal.

Recommended Reading:
Insert Data from Excel Sheet to SQLServer

Semoga postingan diatas bermanfaat.



Salam,



Popular posts from this blog

K2 Error Value Cannot Be Null. Parameter Name: s In SmartView and SmartObject

Cara inject USB 3.0 Driver pada instalasi Windows - How to Inject USB 3.0 Driver in Windows 7

Pentaho Spoon Error : "Could Not Create The Java Virtual Machine"