TSSittzungen

Dokumentation/Classes/cTSUser.vb

@@ -0,0 +1,17 @@
+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