Dim myComName As String = Environment.MachineName 

'컴퓨터이름\로그인이름 <- System.Security.Principal.WindowsIdentity.GetCurrent().Name

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

  Dim __UserName2 As String = Mid(__UserName, myComName.Length + 2)