25 lines
701 B
VB.net
25 lines
701 B
VB.net
Imports System.Threading
|
|
|
|
''' <summary>
|
|
''' Helper Class to hold User State
|
|
''' </summary>
|
|
Public Class ClassUserState
|
|
Public UserId As Integer
|
|
Public UserName As String
|
|
Public Surname As String
|
|
Public GivenName As String
|
|
Public ShortName As String
|
|
Public Email As String
|
|
Public MachineName As String
|
|
Public DateFormat As String
|
|
Public Language As String
|
|
|
|
''' <summary>
|
|
''' Initialize user object with values that can be read from the environment
|
|
''' </summary>
|
|
Public Sub New()
|
|
Language = Thread.CurrentThread.CurrentCulture.Name
|
|
UserName = Environment.UserName
|
|
MachineName = Environment.MachineName
|
|
End Sub
|
|
End Class |