This code will popup a message box with the current user on a local machine.
Here is the simple code:
Dim current_user As Security.Principal.WindowsIdentity = Security.Principal.WindowsIdentity.GetCurrent()
MsgBox(current_user.Name)
Hope you find it useful!




