消费通过Windows身份验证

Question

我只是想使用Windows身份验证但是登录凭据在远程计算机消耗了Web服务的Web服务在本地&远程计算机不同。

代码段：

Dim objproxy As New WebReference.Service1 
'Create a new instance of CredentialCache. 
Dim mycredentialCache As CredentialCache = New CredentialCache() 
'Create a new instance of NetworkCredential using the client 
Dim credentials As NetworkCredential = New NetworkCredential("username", "pwd","domain") 
'Add the NetworkCredential to the CredentialCache. 
'mycredentialCache.Add(New Uri(objproxy.Url), "Basic", credentials) 
objproxy.Credentials = credentials 

据超时但是当我使用

mycredentialCache.Add(New Uri(objproxy.Url), "Basic", credentials) 

我得到 “401未授权” 的消息，

请协助。

Answer 1

希望Windows身份验证，以便使用：

mycredentialCache.Add(New Uri(objproxy.Url), "Negotiate", credentials) 

见Passing Credentials for Authentication to Web Services