18 lines
552 B
VB.net
18 lines
552 B
VB.net
Public Class cTSUser
|
|
|
|
Property BenutzerAnmeldeName As String = ""
|
|
Property Name As String = ""
|
|
Property TeamviewerID As Integer = Nothing
|
|
Property LastLogonTime As DateTime = Nothing
|
|
Property LastReport As DateTime = Nothing
|
|
Property TSServer As String = ""
|
|
Property NameKurz As String = ""
|
|
|
|
|
|
Public Function genNameKurz()
|
|
Dim i As Integer = Me.BenutzerAnmeldeName.IndexOf("\")
|
|
Me.NameKurz = Me.BenutzerAnmeldeName.Substring(i + 1, Me.BenutzerAnmeldeName.Length - (i + 1))
|
|
End Function
|
|
|
|
End Class
|