如何从VBScript登录Office 365并使用pascal脚本浏览sharepoint（？）

我正在打包Access应用程序，此应用程序正在连接Sharepoint网站。我正在使用Inno安装程序（带有Pascal脚本）来创建安装包。所以 我发现这段代码可以做一些与我想要的类似的事情，当我运行这段代码时，它似乎工作正常：打开浏览器，转到Office 365，输入信息（帐户和密码），但就在打开cmd的那一刻，几秒钟后，所有代码都关闭了，没有完成这个过程

On Error Resume Next

Const PAGE_LOADED = 4

Set objIE = CreateObject("InternetExplorer.Application.1")
Call objIE.Navigate("https://yourdomain.sharepoint.com")

objIE.Visible = True

Do Until objIE.ReadyState = PAGE_LOADED : Call WScript.Sleep(500) : Loop

objIE.Document.all.Login.Value = "username@yourdomain.com"
objIE.Document.all.Passwd.Value = "office365password"
objIE.Document.all.persist.checked=True

'The "Submit" button needs to be "clicked" twice in order to sign the user in
' * It appears that some javascript needs to take place behind the scenes to properly initiate the logon
Call objIE.Document.getElementById("cred_sign_in_button").click
Call objIE.Document.getElementById("cred_sign_in_button").click

WScript.Sleep(4000)

Do Until objIE.ReadyState = PAGE_LOADED : Call WScript.Sleep(500) : Loop

Set wShell=CreateObject("WScript.Shell")

NetCommand="net.exe use p: ""https://yourcompany.sharepoint.com/Library 1""  /user:username@yourdomain.com office365password"
wShell.Run "cmd.exe /C " & NetCommand, 1, True

Set wShell=Nothing

objIE.quit

Set objIE = Nothing

似乎可以在这里：

Set wShell=CreateObject("WScript.Shell")

NetCommand="net.exe use p: ""https://yourcompany.sharepoint.com/Library 1""  /user:username@yourdomain.com office365password"
wShell.Run "cmd.exe /C " & NetCommand, 1, True

我的最终目标是在后台完成登录的所有过程（代码），通过（VBScript（？）创建与365的连接，在脚本中提供凭据，然后进入sharepoint网站的列表，标题：（序列号（？）我有一个列表，上面有几个数字和复选框，用于在每次安装中标记为true，并避免两次使用相同的数字

---

谢谢你的进步

试图更好地理解最终目标，听起来您需要更新SharePoint列表？你正在尝试自动化IE来为你做这些吗？嗨&谢谢你的回答。我不确定。首先，我需要从一些脚本自动登录到SharePoint站点，因为我不想给每个客户端提供凭据，但我的应用程序可以连接到SharePoint，另一方面，我需要使用Inno Setup在站点中导航，以便在安装过程中使用一些列表。现在更清楚了吗？对不起，不太清楚。在SharePoint中需要采取哪些具体行动？我的观点是，有像and这样的API，允许您直接通过代码/脚本登录和执行操作，这比试图控制IE要简单得多。我在ms access中开发了一个应用程序，该应用程序与sharepoint网站中的多个列表相链接，但当我分发此应用程序时，ms access要求提供凭据，我必须在ms access记住此凭据并正常工作后提供凭据。我的问题是我不能完成所有的安装。出于这个原因，我正在尝试制作一个安装包，并在安装过程中为其提供凭据。另一方面，我对web服务了解不多，但我正在阅读您提供给我的链接。现在，你觉得怎么样？您认为使用web服务是更好的方法吗？如果你认为有办法，你有更多关于我如何做我想做的事情的信息吗？非常感谢！