로그인 유저 가져오기

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)