' deny alll
Const GENERIC_DENY = &H0                ' 0000 0000
' specific for objects
Const GENERIC_VIEW = &H01               ' 0000 0001
Const GENERIC_CREATE = &H02             ' 0000 0010
Const GENERIC_MODIFY = &H04             ' 0000 0100
Const GENERIC_DELETE = &H08             ' 0000 1000
' specific for leafs
Const GENERIC_CREATE_LEAF = &H10        ' 0001 0000
Const GENERIC_MODIFY_LEAF = &H20        ' 0010 0000
Const GENERIC_DELETE_LEAF = &H40        ' 0100 0000

Const GENERIC_MODIFY_BENEFITS = &H80    ' 1000 0000

' Full Control
Dim GENERIC_FULL_CONTROL
GENERIC_FULL_CONTROL = GENERIC_DELETE Or GENERIC_CREATE Or GENERIC_MODIFY Or GENERIC_VIEW Or GENERIC_CREATE_LEAF Or GENERIC_MODIFY_LEAF Or GENERIC_DELETE_LEAF Or GENERIC_MODIFY_BENEFITS
			
' Check for a user permissions
Function CheckPermissions(Rights, Right)
	CheckPermissions = CBool(CLng(Rights) And CLng(Right))	
End Function

' Check if it is a supervisor
Function IsSupervisor(GUID)
	IsSupervisor = CBool( CStr(GUID) = Cstr("{00000000-0000-0000-0000-000000000000}") )
End Function