Vbscript WMI查询以将visualsvn_服务的访问权限导出为excel格式

我正在使用VisualSVN服务器2.5.8并启用了windows身份验证

我需要编写一个vbscript来使用WMI查询将用户对所有存储库的访问权限导出为excel格式

我不熟悉vbscript和WMI

是否有用于导出访问权限的vbscript示例

谢谢

根据svnforum.org上的信息，类似的方法应该可以奏效：

Set svn = GetObject("winmgmts://./root/VisualSVN")
Set wmi = GetObject("winmgmts://./root/cimv2")

Set accessLevel = CreateObject("Scripting.Dictionary")
accessLevel.Add 0, "No Access"
accessLevel.Add 1, "Read Only"
accessLevel.Add 2, "Read/Write"

For Each sd In svn.ExecQuery("SELECT * FROM VisualSVN_SecurityDescriptor")
  For Each perm in sd.Permissions
    Set account = wmi.Get("Win32_SID.SID='" & perm.Account.SID & "'")
    WScript.Echo sd.AssociatedObject & ": " _
      & account.AccountName & "\" & account.ReferencedDomainName & " " _
      & accessLevel(perm.AccessLevel)
  Next
Next