I have used below code to authenticate.But not able to open the URL after providing username and password.
Function LDAPLogIn(uid,pwd,byref messagelog, byref codiceRitorno)
On error Resume Next
'response.write "*****************************************<br>"
'response.write "************** LDAPLogIn ****************<br>"
'response.write "*****************************************<br>"
' Const ADS_NO_AUTHENTICATION = 10
Const ADS_SECURE_AUTHENTICATION = &H1
Const ADS_USE_ENCRYPTION = &H2
Const ADS_USE_SSL = &H2
Const ADS_READONLY_SERVER = &H4
Const ADS_PROMPT_CREDENTIALS = &H8
Const ADS_NO_AUTHENTICATION = &H10
Const ADS_FAST_BIND = &H20
Const ADS_USE_SIGNING = &H40
Const ADS_USE_SEALING = &H80
Const BasePathOPEN = "LDAP://directory.services.external.local/o=telecom italia group"
Dim scad
Set objShell = CreateObject("Wscript.Shell")
lngBiasKey = objShell.RegRead("HKLM\System\CurrentControlSet\Control\TimeZoneInformation\ActiveTimeBias")
If UCase(TypeName(lngBiasKey)) = "LONG" Then
lngBias = lngBiasKey
ElseIf UCase(TypeName(lngBiasKey)) = "VARIANT()" Then
lngBias = 0
For k = 0 To UBound(lngBiasKey)
lngBias = lngBias + (lngBiasKey(k) * 256^k)
Next
End If
Dim errorMessage
Set usr = Nothing
UserPath = searchDN("uid", uid, BasePathOPEN, "AdsPath", "", "",errorMessage)
If trim(userPath) = "" Then
codiceRitorno = 1
messagelog = errorMessage
'response.write "LDAPLogIn - User path non trovato"
' LDAPLogIn = "UTENTE NON AUTENTICATO (User errata)"
' LDAPLogIn = LDAPLogIn & errorMessage
Else
gga = Split (userPath, "/", -1, 1)
dn = gga(3)
err = 0
Set oNamespOPEN = GetObject("LDAP:")
Set usr = oNamespOPEN.OpenDSObject(userPath,dn,"",&H10)
Set scad = nothing
Set scad = usr.get("tigPwdExpirationDate")
dtmPwdLastSet = ""
dtmPwdLastSet = Integer8Date(scad, lngBias)
' Verifico scadenza password
diff = -1
diff = datediff("s", dtmPwdLastSet,now())
If diff < 0 Then ' password non scaduta
err = 0
' Verifico correttezza password
Set usr1 = oNamespOPEN.OpenDSObject(userPath,dn,pwd,0)
If Err <> 0 then
codiceRitorno = 3
messagelog = Err.Description
'response.write "LDAPLogIn - Password errata"
' LDAPLogIn = "UTENTE NON AUTENTICATO (Password errata): "& Err.Description ' password errata
Else
codiceRitorno = 0
'response.write "LDAPLogIn - Password corretta"
' LDAPLogIn = "UTENTE AUTENTICATO" ' password corretta
End If
Else ' password scaduta
codiceRitorno = 2
'response.write "LDAPLogIn - Password scaduta"
' LDAPLogIn = "La password usata risulta scaduta"
'Response.Redirect(" End If
End If
End Function
Kindly help to correct
Function LDAPLogIn(uid,pwd,byref messagelog, byref codiceRitorno)
On error Resume Next
'response.write "*****************************************<br>"
'response.write "************** LDAPLogIn ****************<br>"
'response.write "*****************************************<br>"
' Const ADS_NO_AUTHENTICATION = 10
Const ADS_SECURE_AUTHENTICATION = &H1
Const ADS_USE_ENCRYPTION = &H2
Const ADS_USE_SSL = &H2
Const ADS_READONLY_SERVER = &H4
Const ADS_PROMPT_CREDENTIALS = &H8
Const ADS_NO_AUTHENTICATION = &H10
Const ADS_FAST_BIND = &H20
Const ADS_USE_SIGNING = &H40
Const ADS_USE_SEALING = &H80
Const BasePathOPEN = "LDAP://directory.services.external.local/o=telecom italia group"
Dim scad
Set objShell = CreateObject("Wscript.Shell")
lngBiasKey = objShell.RegRead("HKLM\System\CurrentControlSet\Control\TimeZoneInformation\ActiveTimeBias")
If UCase(TypeName(lngBiasKey)) = "LONG" Then
lngBias = lngBiasKey
ElseIf UCase(TypeName(lngBiasKey)) = "VARIANT()" Then
lngBias = 0
For k = 0 To UBound(lngBiasKey)
lngBias = lngBias + (lngBiasKey(k) * 256^k)
Next
End If
Dim errorMessage
Set usr = Nothing
UserPath = searchDN("uid", uid, BasePathOPEN, "AdsPath", "", "",errorMessage)
If trim(userPath) = "" Then
codiceRitorno = 1
messagelog = errorMessage
'response.write "LDAPLogIn - User path non trovato"
' LDAPLogIn = "UTENTE NON AUTENTICATO (User errata)"
' LDAPLogIn = LDAPLogIn & errorMessage
Else
gga = Split (userPath, "/", -1, 1)
dn = gga(3)
err = 0
Set oNamespOPEN = GetObject("LDAP:")
Set usr = oNamespOPEN.OpenDSObject(userPath,dn,"",&H10)
Set scad = nothing
Set scad = usr.get("tigPwdExpirationDate")
dtmPwdLastSet = ""
dtmPwdLastSet = Integer8Date(scad, lngBias)
' Verifico scadenza password
diff = -1
diff = datediff("s", dtmPwdLastSet,now())
If diff < 0 Then ' password non scaduta
err = 0
' Verifico correttezza password
Set usr1 = oNamespOPEN.OpenDSObject(userPath,dn,pwd,0)
If Err <> 0 then
codiceRitorno = 3
messagelog = Err.Description
'response.write "LDAPLogIn - Password errata"
' LDAPLogIn = "UTENTE NON AUTENTICATO (Password errata): "& Err.Description ' password errata
Else
codiceRitorno = 0
'response.write "LDAPLogIn - Password corretta"
' LDAPLogIn = "UTENTE AUTENTICATO" ' password corretta
End If
Else ' password scaduta
codiceRitorno = 2
'response.write "LDAPLogIn - Password scaduta"
' LDAPLogIn = "La password usata risulta scaduta"
'Response.Redirect(" End If
End If
End Function
Kindly help to correct