Trustee add and rights

[Susan Perrin]

Hi

Please see the documentation for the NWVolAdmin control at
http://developer.novell.com/ndk/doc/activex_ndap/index.html?page=/ndk/doc/activex_ndap/ocx_ndap/data/hozxxylw.html

As example,

Dim mydir
Dim trustee
Dim rights
Dim NWVolAdm1
set NWVolAdm1 = CreateObject("NWVolAdmlib.NWVolAdmCtrl.1")
NWVolAdm1.FullName = "nds:\\nw65tree\novell\nw65_sys"
set mydir = NWVolAdm1.FindEntry("nds:\\nw65tree\novell\nw65_sys\testdir")
Set trustee = mydir.Trustees.Add("nds:\\nw65tree\novell\user1")
Set rights = trustee.EffectiveRights
rights.AccessControl = True
rights.Create = True
rights.Erase = True