请问如何用mtsadmin给mts包增加一个角色？

[beyondme]

如题，谢谢！

[上官云峰]

没有见过的问题,帮你顶了

[beyondme]

问题已解决，谢谢各位。

Dim catalog As Object
Dim packages As Object
Dim pack As Object
Dim comp As Object
Dim newUser As Object
Dim newRole As Object
Dim componentsInPack As Object
Dim RolesInPackage As Object
Dim RolesInPack As Object
Dim usersInRole As Object
Dim rolesForComponent As Object
Dim util As Object

On Error GoTo failed

Set catalog = CreateObject("MTSAdmin.Catalog")
Set packages = catalog.GetCollection("Packages")
packages.Populate

For Each pack In packages
If pack.Name = "ExOA2000Encrypt" Then
Set RolesInPack = packages.GetCollection("RolesInPackage", pack.Key)
Set newRole = RolesInPack.Add
newRole.Value("Name") = "R1"
RolesInPack.savechanges
'Set usersInRole = RolesInPackage.GetCollection("UsersInRole", newRole.Key)
'Set newUser = usersInRole.Add
'newUser.Value("User") = "administrator"
'usersInRole.savechanges
'Set componentsInPack = packages.GetCollection("ComponentsInPackage", pack.Key)
'componentsInPack.Populate
'For Each comp In componentsInPack
' If comp.Name = "Bank.Account" Then
' Set rolesForComponent = componentsInPack.GetCollection("RolesForPackageComponent", comp.Key)
' Set util = rolesForComponent.GetUtilInterface
' util.AssociateRole (newRole.Key)
' Exit For
' End If
'Next
End If
Next
Exit Sub