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.
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,
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.
Dari gambar diatas terdapat pilihan domain untuk menentukan domain user yang isinya diambil dari data yang telah ada di 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,