====== How to modify access.bit ======

2022 04 20 - access.bit has been bypassed. auto create of users automatically assign then all privileges.

access.bit is an ObjectDumper dump of an OrderedCollection, one of which is a JwrUserAccount. This code reads and writes it.
<code>
| loader targetObject stream |  "read it"
 
(stream := CfsReadFileStream open: 'c:\progra~2\jas\jacs\access.bit') isCfsError
   ifTrue: [self error: stream printString]. 
stream isBytes: true.  
loader := ObjectLoader new. 
targetObject := loader loadFromStream: stream. 
stream close. 
targetObject inspect.
Smalltalk at: #DMM put: targetObject.


"---------------------------- READ THIS 6/28/19
you must use UPPERCASE for user and domain names. 
Use JAS even if your logon is JAS. 
Use DELL620 even if your machine is named Dell6520.
Otherwise the stupid code (somewhere) will create another account as uppercase 
and the conflict will make nothing work"


"rewrite it after changes"
| dumper targetObject stream |  

targetObject:= Smalltalk at: #DMM.

(stream := CfsWriteFileStream open:  'c:\temp\access.bit.NEW') isCfsError
   ifTrue: [   self error: stream printString]. 	
stream isBytes: true.  	
dumper := ObjectDumper new.  
dumper unload: targetObject intoStream: stream. 
stream close

"check the new file"
| loader targetObject stream |  
 
(stream := CfsReadFileStream open:  'c:\temp\access.bit.NEW') isCfsError
   ifTrue: [self error: stream printString]. 
stream isBytes: true.  
loader := ObjectLoader new. 
targetObject := loader loadFromStream: stream. 
stream close. 
targetObject inspect.
</code>