24 lines
784 B
VB.net
24 lines
784 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
|
|
|
|
Public Shared Function genNameKurz(langername As String)
|
|
Dim i As Integer = langername.IndexOf("\")
|
|
Dim kn As String = langername.Substring(i + 1, langername.Length - (i + 1))
|
|
Return kn
|
|
End Function
|
|
|
|
End Class
|