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