VB.NET Vollen Usernamen aus AD auslesen

Dies ist eigentlich viel Einfacher als man denkt.

Imports System.DirectoryServices.AccountManagement

Dim VollenUserNamen As String = UserPrincipal.Current.DisplayName

Und somit hat man die Variable VollenUserNamen mit dem im Vor und Nachnamen befüllt. Einfacher könnte es nicht sein, ein hoch auf VB.NET.