Host e Domínio

Para obter o host e o domínio uma das formas é utilizar as variáveis de ambiente

Dim UserName As String  Dim UserDomain As String  UserName   = Environ("USERNAME")  UserDomain = Environ("USERDOMAIN")