Imports System.Security.Principal
Module Computer_Data
   Public Function GetUserName() As String
        Dim a As String
        Dim b As String
        Const seek As String = "\"
        Dim oUser As New WindowsPrincipal(WindowsIdentity.GetCurrent)
        With oUser.Identity.Name()
            Dim sKey As String = (.ToString)
            Dim sPath As String = sKey.Substring(0, sKey.Length - StrReverse( _
              sKey).IndexOf(seek) - seek.Length)
            a = (sPath) 'Computername
            b = (.Substring(.IndexOf("\") + 1)) ' angemeldeter user
        End With
    End Function
End Module