Chat etc.

Dokumentation/Classes/cBenutzer.vb

@@ -15,7 +15,7 @@ Public Class cBenutzer
     Property msDSPrincipalName As String = ""
     Property localdistinguishedName As String = ""
     Property suchname As String = ""
-
+    Property Hostname As String = ""
 
 
 
@@ -24,6 +24,7 @@ Public Class cBenutzer
         Try
             userPrincipalName = System.DirectoryServices.AccountManagement.UserPrincipal.Current.UserPrincipalName
             Name = System.DirectoryServices.AccountManagement.UserPrincipal.Current.Name
+            Hostname = Environment.MachineName
         Catch
         End Try
         Domäne = System.DirectoryServices.ActiveDirectory.Domain.GetCurrentDomain.ToString