G
Greg Hill
Hi
I'm trying to access a web server that requires authentification for a https
page. I can access http pages on that server but get "(401) Authentification
Error" for the https page. I have a login for that page but don't know where
my code is wrong. Any hints will be appreciated.
TIA Greg
Code:
Dim sClUri As String = ClientPage.Text ' https Address
System.Net.ServicePointManager.CertificatePolicy = New MyPolicy
'Certificate
Dim ClientUri As System.Uri = New System.Uri(sClUri) 'Address into
Uri
Dim ClientRequest As HttpWebRequest = WebRequest.Create(ClientUri)
'gerenate request
Dim ClientCred As NetworkCredential = New
NetworkCredential(username.Text, userPassword.Text, userDomain.Text) 'adding
login data to request
Dim ClientCredCache As CredentialCache = New CredentialCache
ClientCredCache.Add(ClientUri, "Basic", ClientCred)
ClientRequest.Credentials = ClientCredCache
'ClientRequest.Credentials = CredentialCache.DefaultCredentials
ClientRequest.KeepAlive = False
ClientRequest.Timeout = 300000
ClientRequest.Method = "GET"
'sending request and getting response
Dim ClientResponse As HttpWebResponse
Try
ClientResponse = ClientRequest.GetResponse()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error accessing
Client Inventory data")
'Exit Sub
End Try
I'm trying to access a web server that requires authentification for a https
page. I can access http pages on that server but get "(401) Authentification
Error" for the https page. I have a login for that page but don't know where
my code is wrong. Any hints will be appreciated.
TIA Greg
Code:
Dim sClUri As String = ClientPage.Text ' https Address
System.Net.ServicePointManager.CertificatePolicy = New MyPolicy
'Certificate
Dim ClientUri As System.Uri = New System.Uri(sClUri) 'Address into
Uri
Dim ClientRequest As HttpWebRequest = WebRequest.Create(ClientUri)
'gerenate request
Dim ClientCred As NetworkCredential = New
NetworkCredential(username.Text, userPassword.Text, userDomain.Text) 'adding
login data to request
Dim ClientCredCache As CredentialCache = New CredentialCache
ClientCredCache.Add(ClientUri, "Basic", ClientCred)
ClientRequest.Credentials = ClientCredCache
'ClientRequest.Credentials = CredentialCache.DefaultCredentials
ClientRequest.KeepAlive = False
ClientRequest.Timeout = 300000
ClientRequest.Method = "GET"
'sending request and getting response
Dim ClientResponse As HttpWebResponse
Try
ClientResponse = ClientRequest.GetResponse()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error accessing
Client Inventory data")
'Exit Sub
End Try