Viewing source for Recipe2104vb.aspx
<%@ Page %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Net" %>
<script language="VB" runat="server">
Private Sub SubmitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim RequestUrl As String = Request.Url.GetLeftPart(System.UriPartial.Authority) & Request.ApplicationPath & "/Recipe2104Auth.aspx"
Dim WebRequestObject As HttpWebRequest
Dim sr As StreamReader
Dim WebResponseObject As HttpWebResponse
Try
WebRequestObject = CType(WebRequest.Create(RequestUrl), HttpWebRequest)
WebRequestObject.Method = "GET"
Dim CredCache As New CredentialCache()
CredCache.Add(New System.Uri(Request.Url.GetLeftPart(System.UriPartial.Authority)), "NTLM", New NetworkCredential("username", "password", "DOMAIN"))
WebRequestObject.Credentials = CredCache
WebResponseObject = CType(WebRequestObject.GetResponse(), HttpWebResponse)
sr = New StreamReader(WebResponseObject.GetResponseStream)
Dim Results as string = sr.ReadToEnd
WebResponseLabel.Text = Results
WebResponseText.Text = Results
Finally
Try
sr.Close()
Catch
End Try
Try
WebResponseObject.Close()
WebRequestObject.Abort()
Catch
End Try
End Try
End Sub
</script>
<html>
<head>
<title></title>
</head>
<body>
<form runat="server">
<asp:Button Runat="server" ID="SubmitButton" Text="Get Page Requiring Windows Authentication" OnClick="SubmitButton_Click" /><br>
<asp:TextBox Runat="server" id="WebResponseText" Width="780" Height="300" TextMode="MultiLine" /><br>
<asp:Label Runat="server" ID="WebResponseLabel" />
</form>
</body>
</html>