The following return the the current user.

Dim PPSUser As String = System.Security.Principal.WindowsIdentity.GetCurrent().Name.ToString()

How can you get the Groups the current user is a member of?

I would like to add:

How do you get the First Name, Last Name, Display Name which are all properties of the User?