2

SID の変換に取り組んでいるときに、VirsualSVN がテスト マシンにインストールされた実行可能なスクリプトを見つけましたが、スクリプトはサーバー上で動作しませんでした。ファイルを test.vbs としてデスクトップに保存し、次のコマンドを使用してコードを実行し、出力をテキスト ファイルとして生成します: cscript test.vbs > c:\output.txt

テスト マシンに VisualSVN バージョン2.5.8をインストールし、ルート リポジトリは C:\Repositories にあります。

サーバー上では、VisualSVN バージョン1.6.3がインストールされており、ルート リポジトリは E:\Repositories にあります。

以下のスクリプトから、コーディングが不足しており、スクリプトをサーバー上で動作させるためにどこを変更すればよいかわかりません。これについてあなたの専門家の助けを求めています。 

'
' Print permissions in the form: user_name,path,level
'
strComputer = "."
Set wmi = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" _
  & strComputer & "\root\VisualSVN")

Set win = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" _
  & strComputer & "\root\cimv2")

' Return text representation for the Access Level
Function AccessLevelToText(level)
  If level = 0 Then
    AccessLevelToText = "No Access"
  ElseIf level = 1 Then
    AccessLevelToText = "Read Only"
  ElseIf level = 2 Then
    AccessLevelToText = "Read/Write"
  Else 
    AccessLevelToText = "Unknown"
  End If
End Function

' Return repository path for the object
Function GetPath(obj)
  cname = assoc.Path_.Class
  If cname = "VisualSVN_Service" Then
    GetPath = "Repositories Root"
  ElseIf cname = "VisualSVN_Repository" Then
    GetPath = assoc.Name
  ElseIf cname = "VisualSVN_RepositoryEntry" Then
    GetPath = assoc.RepositoryName & ": " & assoc.Path
  Else
    GetPath = "Unknown"
  End If
End Function

' Convert SID to user name
Function SidToUserName(sid)
  Set account = win.Get("Win32_SID.SID='" & sid & "'")
  user = account.AccountName
  domain = account.ReferencedDomainName
  SidToUserName = domain & "\" & user
End Function

' Iterate over all security descriptions
Set objs = wmi.ExecQuery("SELECT * FROM VisualSVN_SecurityDescriptor")
For Each obj In objs
  Set assoc = wmi.Get(obj.AssociatedObject)

  For Each perm in obj.Permissions
    sid = perm.Account.SID
    level = AccessLevelToText(perm.AccessLevel)

     Wscript.Echo SidToUserName(sid) & "," & GetPath(assoc) & "," & level
   Next
Next

http://www.svnforum.org/threads/38790-Access-Rights-Reporting-in-Subversion-or-Viusal-SVNからのコード参照

4

2 に答える 2

1

0x8004100e名前空間 ( /root/VisualSVN) が存在しないことを意味します。サーバーにインストールされているバージョンが古すぎて、WMI にこの名前空間が作成されない可能性があります。

于 2013-04-10T08:32:59.943 に答える