有没有办法检测用户的 AD 凭据并使用它们来创建可用于查询 Web 服务的 NetworkCredential 对象?下面是我的代码摘录,基本上我是通过 web 服务查询 GIS 数据库,并且 web 服务需要 Windows AD 身份验证。
目前这是一个手动过程,所以我们只是将我们自己的 AD 凭据硬编码到顶部的变量中,它工作正常,但我希望页面检测某人的 AD 凭据并使用它们来创建 NetworkCredential 对象,这样我们就可以拥有我们的内部客户也使用该页面。
Public Function getJSON(ByVal url As String) As String
Dim HTMLSource As String = ""
Dim Request As WebRequest = WebRequest.Create(url)
Request.Credentials = New NetworkCredential(username, password, domain)
Dim Response As WebResponse = Request.GetResponse
Dim SR As StreamReader
SR = New StreamReader(Response.GetResponseStream)
HTMLSource = SR.ReadToEnd
SR.Close()
Return HTMLSource
End Function