Запрос WMI для экспорта прав доступа visualsvn_service в формат excel

Я использую сервер VisualSVN 2.5.8 и включил аутентификацию Windows.

Мне нужно написать vbscript, чтобы использовать запрос WMI для экспорта прав доступа ко всем репозиториям для пользователей в формате excel.

Я новичок в vbscript и WMI.

Есть ли какой-нибудь образец vbscript для экспорта прав доступа?

Спасибо


vbscript wmi wmi-query
person user1553605    schedule 07.08.2013    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Согласно этой теме на 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
person Ansgar Wiechers    schedule 07.08.2013