web-services - Sharepoint 上的 Windows 身份验证

Question

<小时/>

更新:

好的，这个问题现在已经解决了。该代码确实有效，但 Sharepoint 服务器上的权限出现了问题。所以这让人松了一口气。

<小时/>

我正在使用 VBA 通过其 Web 服务从 Excel 向 Sharepoint 发送请求。这是在公司内部网上，所以我的理解是，只要我使用 Windows 登录名访问 Sharepoint(我确实这么做了)，Windows 身份验证就应该在后台进行。我检查过身份验证模式设置为“Windows”。但当我尝试此操作时，我仍然收到“访问被拒绝”错误。

这是我发送的 XML:

<?xml version="1.0" encoding="utf-8" ?>
    <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
      <soap12:Body>
        <UpdateListItems xmlns="http://schemas.microsoft.com/sharepoint/soap/">
          <listName>listname1</listName> 
          <updates>
            <Batch OnError='continue' ListVersion='1'>
            <Method ID='1' Cmd='Delete'>
                <Field Name='ID'>7582</Field>
            </Method>
            </Batch>
            </updates>
        </UpdateListItems>
      </soap12:Body>
    </soap12:Envelope>

我尝试在 Soap header 中发送用户名和密码，因此:

      <soap12:Header>
        <AuthHeader xmlns="http://schemas.microsoft.com/sharepoint/soap/">
          <UserName>user1</UserName>
          <Password>password1</Password>
        </AuthHeader>
      </soap12:Header>

没有什么区别。

Sharepoint 发送给我的返回消息确实包含一些它不允许我删除的数据，因此我知道我正在设法连接到正确的站点。我确实有权从该网站删除。

这是我用来发送 XML 的 VBA(从 StackOverflow 上的其他地方复制):

Dim xmlhtp As New MSXML2.XMLHTTP
Dim XMLDOC As New DOMDocument
Dim XMLstr As String
With xmlhtp
    .Open "POST", "https://sharepoint.address/_vti_bin/lists.asmx", False
    .setRequestHeader "Host", "sharepoint.address/site1823/Lists/HC Movement"
    .setRequestHeader "Content-Type", "application/soap+xml; charset=utf-8"
    .send XMLstr

    XMLDOC.LoadXML .responseText
    MsgBox .responseText
End With

将“HC Movement”替换为“HC%20Movement”没有什么区别。

我不在乎这是否在后台无缝发生:如果用户必须输入他们的凭据，那就这样吧。如果有人提出的解决方案与我目前得到的完全不同，那也很好。只需能够从 Excel 删除记录并将其添加到 Sharepoint，但几天来一直在这方面遇到困难。

我很擅长 VBA，但以前从未使用过 Web 服务。任何帮助将不胜感激。

谢谢。

Answer 1

使用 .Net，您可以传递用户的凭据，但我还没有找到使用 VBA 的方法(尚未)。如果您不介意让您的用户输入他们的用户名/密码，我现在会采用该路线。创建一个用户表单，其中包含用户名文本框和密码屏蔽文本框。如果需要，您甚至可以预先填写用户名:

Dim myUser As String
myUser = Environ("USERNAME")

然后将输入的值传递到您的网络请求。更改 .Open 命令以包含变量(例如 myUsername 和 myPassword):

.Open "POST", "https://sharepoint.address/_vti_bin/lists.asmx", False, myUsername, myPassword

针对不正确的密码创建错误捕获并完成。

我将继续寻找一种方法来传递登录用户的凭据(或者如果其他人找到了一种方法......)。