|
| Table Of Contents | Index |
Example:NovObjectSecurity controls who can access the object. The default security is $11 which allows anyone logged into the network to access the object for both read and write. In this example the security of $31 allows anyone logged in to read the object, but only users with supervisor equivalence can write/modify/delete it. With some objects as in the above example where we create a new Netware group, you must also assign the necessary properties before the object is functional to Netware.
;- This example creates a new user
var UserName
UserName = 'TIMESYNC'
;- Delete object if it already exists
NovDeleteObject(UserName,1);
NovStaticObject On ;Static Object NovObjectSecurity $31
NovCreateObject (UserName,1)
NovStaticProperty On NovSetProperty On NovPropertySecurity $32 NovCreateProperty(UserName,'SECURITY_EQUALS',1)
NovPropertySecurity $31 NovCreateProperty(UserName,"GROUPS_I'M_IN",1)
;- Copies login control from the supervisor
NovSetProperty Off NovPropertySecurity $32 NovCreateProperty(UserName,'LOGIN_CONTROL',1) NovPropertyValues(Item,'SUPERVISOR','LOGIN_CONTROL',1) NovWritePropValue(Item,UserName,'LOGIN_CONTROL',1)
NovCreateProperty(UserName,'ACCOUNT_BALANCE',1) NovWritePropValue(Set [''],UserName,'ACCOUNT_BALANCE',1)
NovPropertySecurity $22 NovCreateProperty(UserName,'MISC_LOGIN_INFO',1)
NovPropertySecurity $31 NovCreateProperty(UserName,'IDENTIFICATION',1) NovWritePropValue(Set ['Time Sync User'],UserName,'IDENTIFICATION',1)
NovChangeObjPassword(UserName,1,'','SETTIME')
;- Gives user Console Operator access.
NovAddToSet(NovDefaultServer,'OPERATORS',4,UserName,1)
| See Also: | NovStaticObject | NovObjectSecurity | NovDeleteObject |
|---|
| NovCreateProperty |
| Category: | Bindery |
|---|
|
| Table Of Contents | Index |
|
