How to add users and groups to the workspace ?

I am trying to create a workspace from a workspace template and add the same users and groups as in the template.
When I step through the following code, it seems to be working fine. It loops though all the users and adds them. But, I can't see the users through FileSite or WorkSite Web. Am I missing anything ?

Here is the code snippet:

Dim oWorkspace As IManWorkspace
Dim myTemplates As IManFolders
Dim oSec As IManSecurity
Dim oACL As IManUserACL
Dim oUACL As IManUserACL

oSec = oWorkspace.Security
For Each oACL In myTemplates.ItemByIndex(1).Security.UserACLs
oWorkspace.Security.UserACLs.Add(oACL.User.Name, oACL.Right)
Next

oWorkspace.Security.UserACLs.Refresh()

Find more posts tagged with

Comments

jny

Did you call Update on the workspace object afterwards?

Ben_inform

hi did you fix this ?
I have the same issue and do update the workspace. I see no acl at all in the clients.

jny

I was able to add a user to the workspace security list using this code:

Option Explicit

Private Sub Form_Load()
Dim dms As New ManDMS
Dim sess As IManSession
Dim db As IManDatabase
Dim pparams As IManProfileSearchParameters
Dim wparams As IManWorkspaceSearchParameters
Dim results As IManFolders
Dim dblist As ManStrings
Dim ws As IManWorkspace

Set sess = dms.Sessions.Add("<Server_Name>")
sess.TrustedLogin

Set dblist = New ManStrings
For Each db In sess.Databases
dblist.Add db.Name
Next db

Set pparams = dms.CreateProfileSearchParameters

Set wparams = dms.CreateWorkspaceSearchParameters
wparams.Add imFolderOwner, sess.UserID
wparams.Add imFolderName, "A Full Workspace Test 0" ' Assuming there is a workspace of this name

Set results = sess.SearchWorkspaces(dblist, pparams, wparams)

If False = results.Empty Then
Set ws = results.ItemByIndex(1)
Dim sec As IManSecurity
Set sec = ws.Security
sec.UserACLs.Add "<Valid_UserName>", imRightAll
ws.Update
End If

sess.Logout
dms.Close
Set ws = Nothing
Set dblist = Nothing
Set results = Nothing
Set wparams = Nothing
Set pparams = Nothing
Set db = Nothing
Set sess = Nothing
Set dms = Nothing
End
End Sub

Ben_inform

that worked thanks.

This worked:

oSecurity.UserACLs.Add BillSol, imRightAll
m_workspace.Update

This failed:
set oACLs = oSecurity.UserACLs
oACLs.Add BillSol, imRightAll
oACLs.refresh
m_workspace.Update

DaleN

Hi Ben,

The problem is that you're calling the Refresh method before committing the changes made to the workspace back to the server using the Update method. The Refresh method will set the collection back to whatever committed entries the server knows about so you end up losing the non-committed additions.

Regards,
Dale

reesbevan

another related question - how do you remove users from the ACL?

_______________
Allan Rees-Bevan
Senior Solutions Architect
Inform Systems
Sydney, Australia

jny

You may use the RemoveByIndex or RemoveByObject method to remove an individual user/group. The Clear method is used to remove all users/groups.

[VB]
Dim ws As IManWorkspace
' Assuming ws is the handle to the target workspace.
Dim sec As IManSecurity
' Assuming sec is the handle to the security object belonging to the target workspace.
Dim usr As IManUser
' Handle to the target user to remove

' Removing the indivdual user by object
Set usr = sec.UserACLs.ItemByName("[Valid_UserName]")
sec.UserACLs.RemoveByObject user

' Removing the indivdual user by index
sec.UserACLs.RemoveByIndex 1 ' Assuming the user is in UserACLs.item(1).

' Remove all
sec.UserACLs.Clear

ws.Update

' The same methods are available to removing groups from IManGroupACLs.

kuruption213

I'm having a similar issue with running similar code using vbscript. The problem is I get an error with the pDoc.Update line. The error states that pDoc.Update is not a valid method.

Note: For each document give the user "ABAILEY" read access.

Do Until objRecordset.EOF
Set pDoc = pNRTDMS.GetObjectByID(objRecordset("Document_ID"))

pDoc.Security.UserACLs.Add "ABAILEY", imRightRead

objRecordset.MoveNext
Loop

pDoc.Update

Any suggestions?

jny

I'm having a similar issue with running similar code using vbscript. The problem is I get an error with the pDoc.Update line. The error states that pDoc.Update is not a valid method.

Note: For each document give the user "ABAILEY" read access.

Do Until objRecordset.EOF
Set pDoc = pNRTDMS.GetObjectByID(objRecordset("Document_ID"))

pDoc.Security.UserACLs.Add "ABAILEY", imRightRead

objRecordset.MoveNext
Loop

pDoc.Update

Any suggestions?

If you're calling the Update method latebound - such as via VBScripting - make sure you have 8.1 or later of imanage.dll. The imanage.dll 8.0 version does not support IDispatch so you will not be able to call the methods of IManInterfaces late-bound.

If you do have the later version of the dll, make sure the DispatchInterfaces.dll is on the machine and that it's registered.

The UserACLs.Add, on the other hand, works because this is a method of the INRT Interfaces. This set of older interfaces support IDispatch.

So, alternatively, you may also call the UpdateProfile(Variant err) Method which is part of the older INRT Interfaces instead of the Update Method.

kuruption213

jny thanks for your help. Actually with this release we have upgraded to 8.3 however I noticed that the version of the IManage.dll is still 8.0. I also do not see the DispatchInterfaces.dll. The upgrade is installed because under add/remove programs I see Worksite Server 8.3. The only 8.3 dll that I notice is a dll named imDms.dll. Shouldn't the 8.3 version of IManage.dll and DispatchInterface.dll be available after the upgrade?

So not going down the 8.3 path I have tried to follow the other route you have suggested using the iManUserACLs you suggested. However I do not see an Update or UpdateProfile metod available for this object. The COM Reference Manual discusses using the Refresh method however I get the error "Object doesn't support this property or method" error that I received with my previous code using the Update with the Doc object.

The following is the new code...

Do Until objRecordset.EOF
Set pDoc = pNRTDMS.GetObjectByID(objRecordset("NRTID"))
Set pDocSec = pDoc.Security
Set pUserACLs = pDocSec.UserACLs
pUserACLs.Add "ABAILEY", imRightRead
objRecordset.MoveNext
Loop

pUserACLs.Refresh

jny

jny thanks for your help. Actually with this release we have upgraded to 8.3 however I noticed that the version of the IManage.dll is still 8.0. I also do not see the DispatchInterfaces.dll. The upgrade is installed because under add/remove programs I see Worksite Server 8.3. The only 8.3 dll that I notice is a dll named imDms.dll. Shouldn't the 8.3 version of IManage.dll and DispatchInterface.dll be available after the upgrade?

So not going down the 8.3 path I have tried to follow the other route you have suggested using the iManUserACLs you suggested. However I do not see an Update or UpdateProfile metod available for this object. The COM Reference Manual discusses using the Refresh method however I get the error "Object doesn't support this property or method" error that I received with my previous code using the Update with the Doc object.

The following is the new code...

Do Until objRecordset.EOF
Set pDoc = pNRTDMS.GetObjectByID(objRecordset("NRTID"))
Set pDocSec = pDoc.Security
Set pUserACLs = pDocSec.UserACLs
pUserACLs.Add "ABAILEY", imRightRead
objRecordset.MoveNext
Loop

pUserACLs.Refresh

There is no such thing as the 8.3 imanage.dll. The latest is 8.2 imanage.dll for 8.2 SP1 P4. WorkSite 8.3 is of server-side changes. The imanage.dll which is the COM middle-tier has not changed in its relevancy to making calls to the server so you could upgrade to 8.2 to make use of the late-binding calls - which should have the DispatchInterface.dll distributed with that later version of the DLL.

The NRTDocument.UpdateProfile does exist, and its latebound call should be is supported by the 8.0 DLL (and the prior versions of 7.x). The Referesh Method is not for updating/comitting changes to the server. It's used to get the latest from the server back to the client-side - so it's not what you would want to do in your case.

Example on how to call the UpdateProfile (Document) Method:

'Assuming doc is a valid pointer to the NRTDocument object
Dim ierr
doc.UpdateProfile ierr

kuruption213

Thanks that worked!