在 VBS 中使用 CSOM

编程问答 2022-04-22

问题描述

我们使用的软件可让您通过集成的 VBS 编辑器扩展其功能。在这个系统中，我需要使用 CSOM 编写一个到我们 SharePoint Online 的接口脚本，以检查一些文件和文件夹。

我的问题是我找不到创建必要 COM 对象的方法。我正在尝试 Nilpo 发布的针对一个有点类似的问题 Using DLLs in VBScript 的答案，但它不起作用。

Dim CTX
Dim CSOMBasePath

CSOMBasePath = "C:\MyPath\Microsoft\SharePoint SDK\Microsoft.SharePointOnline.CSOM.16.1.21116.12000\lib\"

on error resume next
Set CTX = Getobject(CSOMBasePath & "net40-full\Microsoft.SharePoint.Client.dll","SharePoint.Client.ClientContext")
Set CTX = Getobject(CSOMBasePath & "net40-full\Microsoft.SharePoint.Client.dll","ClientContext")
Set CTX = Getobject(CSOMBasePath & "net40-full\Microsoft.SharePoint.Client.dll","Client.ClientContext")
Set CTX = Getobject(CSOMBasePath & "net40-full\Microsoft.SharePoint.Client.dll","Microsoft.SharePoint.Client.ClientContext")

Set CTX = Getobject(CSOMBasePath & "net45\Microsoft.SharePoint.Client.dll","SharePoint.Client.ClientContext")
Set CTX = Getobject(CSOMBasePath & "net45\Microsoft.SharePoint.Client.dll","ClientContext")
Set CTX = Getobject(CSOMBasePath & "net45\Microsoft.SharePoint.Client.dll","Client.ClientContext")
Set CTX = Getobject(CSOMBasePath & "net45\Microsoft.SharePoint.Client.dll","Microsoft.SharePoint.Client.ClientContext")

Set CTX = Getobject(CSOMBasePath & "netstandard2.0\Microsoft.SharePoint.Client.dll","SharePoint.Client.ClientContext")
Set CTX = Getobject(CSOMBasePath & "netstandard2.0\Microsoft.SharePoint.Client.dll","ClientContext")
Set CTX = Getobject(CSOMBasePath & "netstandard2.0\Microsoft.SharePoint.Client.dll","Client.ClientContext")
Set CTX = Getobject(CSOMBasePath & "netstandard2.0\Microsoft.SharePoint.Client.dll","Microsoft.SharePoint.Client.ClientContext")

If CTX Is nothing Then
    MsgBox "No CTX"
End If

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

comcomcomcsomvbscriptvbscriptvbscript