VB.NET-Informações sobre o usuário logado no Windows

  Public Enum TipoInformacao
    NomeUsuario
    Dominio
    Hostname
  End Enum

  Public Function InformacoesUsuario(Informacao As TipoInformacao) As String
    Select Case Informacao
      Case TipoInformacao.Dominio
        Return System.Environment.UserDomainName.ToString
      Case TipoInformacao.Hostname
        Return System.Environment.MachineName.ToString
      Case TipoInformacao.NomeUsuario
        Return System.Environment.UserName.ToString
      Case Else
        Return "Erro"
    End Select
  End Function