Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Changing ACL without proper access

Status
Not open for further replies.

mdabney

IS-IT--Management
Jul 1, 2002
77
US
I have a user who suddenly left the company. Their Notes contains several vital pieces of information. Is there a way to change the ACL to allow another user to be able to access that database.



[sadeye]
 
if it's a domino server on nt/win2k, try the following

log on locally on the server, locate the domino server program directory and start nlnotes.exe

this will launch a local notesclient that works within the context of the server.

locate the mail file ctrl-o (keep the server field as local)

and adjust the ACL file-database-access control list

Woonjas
IRC: #notes on EFNet
 
The server is AS400 e-server I can get to the mail file via Ops Navigator, but I'm still unable to change the ACL.
 
create an agent that'll run on the server (signed with the server's id) that'll add you/admin group to the acl with manager access

localdomainservers / the server should have sufficient access to change the acl
see code below which is R4 compatible for R5 you get extra properties in the aclentry class that will allow you to set usertype and things like administration server. check designer help database for mor info on these classes

sub initialize
dim sn as new notessession
dim db as notesdatabase
dim acl as notesacl
dim aclentry as notesaclentry

set db = sn.getdatabase(sn.currentdatabase.server, "mail/luser.nsf", false)

if db.currentaccesslevel < 6 then exit sub ' not enough access to make changes

set acl = db.acl
set aclentry = acl.getentry(&quot;Administrators&quot;)
if not aclentry is nothing then '--- we have an existing entry
aclentry.level = 6 ' -- manager access
call acl.save
else '--- entry doesn't exist create it
set aclentry = acl.createaclentry(&quot;Administrators&quot;)
aclentry.level = 6
call acl.save
end if

Woonjas
IRC: #notes on EFNet
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top