HTTP Negotiate/ Kerberos Authentication

To use Kerberos HTTP authentication, simply set the Login, Password, LoginDomain, and NegotiateAuth properties prior to calling any HTTP method (such as Download, QuickGetStr, SynchronousRequest, etc.)

Download Chilkat HTTP ActiveX

Dim http As New ChilkatHttp

Dim success As Long

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox http.LastErrorText
    Exit Sub
End If

'  Set the login/password for HTTP NTLM Authentication:
http.Login = "myLogin"
http.Password = "myPassword"
http.LoginDomain = "myLoginDomain"
'  Negotiate authentication allows the HTTP client
'  to dynamically select either Kerberos or NTLM, depending
'  on what the server supports.
http.NegotiateAuth = 1

'  Download a .zip from chilkatsoft.com:
'  PS> This download URL doesn't actually require
'  authentication.  You'll want to replace this URL with your own.
success = http.Download("http://www.chilkatsoft.com/preRelease/ChilkatDotNet2.zip","ChilkatDotNet2.zip")
If (success <> 1) Then
    MsgBox http.LastErrorText
Else
    MsgBox "Download Complete!"
End If