26 lines
460 B
VB.net
26 lines
460 B
VB.net
Public Class LicenseState
|
|
Public Modules As List(Of LicenseModule)
|
|
End Class
|
|
|
|
Public Class LicenseModule
|
|
Public Name As String
|
|
Public ValidUntil As Date
|
|
Public Users As List(Of LicenseUser)
|
|
End Class
|
|
|
|
Public Class LicenseUser
|
|
Public Type As UserType
|
|
Public Count As Integer
|
|
Public Test As Boolean
|
|
Public ValidUntil As Date
|
|
End Class
|
|
|
|
Public Enum UserType
|
|
PowerUser
|
|
[ReadOnly]
|
|
[WriteOnly]
|
|
ReadWrite
|
|
End Enum
|
|
|
|
|