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
'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