[Resolvido]Nome do usuario e dominio ?

Pessoal, encontrei o codigo abaixo na Internet, para buscar o usuario de rede logado na maqina:
'Function que retorna o nome do usuário de rede logado

Function UsuarioRede() As String
Dim GetUserN
Dim ObjNetwork
Set ObjNetwork = CreateObject("WScript.Network")
GetUserN = ObjNetwork.UserName
UsuarioRede = GetUserN
End Function

Sub Mostra()
MsgBox UsuarioRede
End Sub

Minha duvida é a seguinte, alguem sabe como consigo buscar o dominio aonde este usuario esta cadastrado ?

Obrigada.

Juliana

Eu costumo usar a instrução Environ para pegar esses dados. Vamos supor duas textbox de nome txtUser e txtDomain:

Me.txtUser = Environ("Username")
Me.txtDomain = Environ("Computername")

Oi Criquio....

Computername retorna o nome do computador...netse caso eu preciso do dominio no qual o usuario esta logado...tem como ?

Ju

Oi Criquio,

existe a opcao de userdomain, deu certinho...super obrigada viu....

Ju

Isso. É que uso muito o computername e por isso às vezes troco as peças

obrigado, pela ajuda!

quero colocar esse nome na tabela , toda vez que abro ele inseri , quero so uma vez