Boa noite Fernando

Não sei se entendi, bem, mas não seria isso:

http://www.tomasvasquez.com.br/blog/mic ... rio-logado

[]s

Não sei se entendi, bem

Boa noite Patropi. Não, não é isso.
Eu quero um código que devolva meu nome, ao invés do username logado da rede.

Obrigado mesmo assim.

FF

Tenho o code abaixo. Na época procurei para todos os lados e achei no link abaixo:

http://www.mrexcel.com/forum/excel-questions/2252-get-windows-user-name.html

Option Explicit
  
Sub Users_Fullname()
'originally coded as VB script by A.Vials, converted to VBA by Sly
Dim objInfo
Dim strLDAP
Dim strFullName
  
Set objInfo = CreateObject("ADSystemInfo")
strLDAP = objInfo.UserName
Set objInfo = Nothing
strFullName = GetUserName(strLDAP)
  
MsgBox "Full name of User is " & strFullName  'step to test
  
End Sub

Function GetUserName(strLDAP)
  Dim objUser
  Dim strName
  Dim arrLDAP
  Dim intIdx
  
  On Error Resume Next
  strName = ""
  Set objUser = GetObject("LDAP://" & strLDAP)
  If Err.Number = 0 Then
    strName = objUser.Get("givenName") & Chr(32) & objUser.Get("sn")
  End If
  If Err.Number <> 0 Then
    arrLDAP = Split(strLDAP, ",")
    For intIdx = 0 To UBound(arrLDAP)
      If UCase(Left(arrLDAP(intIdx), 3)) = "CN=" Then
        strName = Trim(Mid(arrLDAP(intIdx), 4))
      End If
    Next
  End If
  Set objUser = Nothing
  
  GetUserName = strName
  
End Function

Mas o seu nome esta gravado onde no PC?

Tenho o code abaixo. Na época procurei para todos os lados e achei no link abaixo:
http://www.mrexcel.com/forum/excel-questions/2252-get-windows-user-name.html

Animal, este eu não tinha visto ainda.... Acredito que vai dar certo pq vai buscar no AD... sei lá... aqui em casa não funcionou, talvez pq não estou numa rede corporativa?
Enfim, vou testar amanhã !

Mas o seu nome esta gravado onde no PC?

Eu não sei. No meu PC, eu acredito que nenhum lugar, mas no trabalho, quando clico no botão Windows , meu nome aparece ali no topo à direita...
Para transformar o meu programa em VBA mais amigável, quero pegar o nome do cara direto do windows, ou do active directory, sei lá... o windows sabe meu nome. Eu tb quero saber o nome do usuário.
Não quero ver jmsilva, quero ver João Maria Silva...

Entendeu ?

Ate hoje só testei na rede corporativa. Utilizo esse code para puxar o nome dos usuários. Nunca parei para entender a fundo. Mas até hoje deu super certo.

Utilizando a rotina que o Pfarias indicou mostra o meu nome completo igual ao que aparece ao pressionar o icone do Windows:

[]s

Tentei utilizar o código indicado nosso amigo pfarias, mas apresentou o seguinte erro:

Onde estou errando?
Preciso referenciar algum biblioteca?

Eu não precisei habilitar nada, copiei, colei e executei, qual versão do seu Office e windows ?
De uma olhada em Referências se tem alguma como AUSENTE.

Na net tem alguns tópicos sobre este erro, de uma olhada nestes dois :
O dominio especificado nao existe ou nao pode ser contactado - Terminais de Virtualização
https://social.technet.microsoft.com/Fo ... w8serverpt

Você recebe uma mensagem de erro "o domínio especificado não existe ou não pôde ser contatado"
https://support.microsoft.com/pt-br/kb/902336

[]s

Eu não precisei habilitar nada, copiei, colei e executei, qual versão do seu Office e windows ?

Office Versão 16.0.6965.2092
RuWindows 8.1 Pro 64bits

De uma olhada em Referências se tem alguma como AUSENTE.

Não tem nada aparecendo como ausente.

Vou dar uma olhada nos links e procurar algo na internet, obrigado Mauro Coutinho.

Eu não precisei habilitar nada, copiei, colei e executei, qual versão do seu Office e windows ?

Office Versão 16.0.6965.2092
RuWindows 8.1 Pro 64bits

talvez possa haver diferença por ser 64bits. =/ Alguém com 64 bits tentou e funcionou?

Eu simplifiquei o code. Para mim achei melhor assim:

Option Explicit
  
Function GetUserName() As String

Dim objInfo As Object
Dim objUser As Object

Dim strLDAP As String
Dim strName As String
Dim arrLDAP
Dim intIdx  As Long
  
    Set objInfo = CreateObject("ADSystemInfo")
    strLDAP = objInfo.UserName
    Set objInfo = Nothing

On Error Resume Next
    Set objUser = GetObject("LDAP://" & strLDAP)
        
    If Err.Number = 0 Then
        strName = objUser.Get("givenName") & Chr(32) & objUser.Get("sn")
    End If
        
    If Err.Number <> 0 Then
      arrLDAP = Split(strLDAP, ",")
      For intIdx = 0 To UBound(arrLDAP)
        If UCase(Left(arrLDAP(intIdx), 3)) = "CN=" Then
          strName = Trim(Mid(arrLDAP(intIdx), 4))
        End If
      Next
    End If
    
    Set objUser = Nothing
        
    GetUserName = strName
  

''########################################
            'MsgBox GetUserName
''########################################


End Function

Eu simplifiquei o code. Para mim achei melhor assim:

Tanto o código extenso como o código simplificado funcionou pfarias no ruWindows 8.1 Pro 64 bits, mas só funcionou por que estou conectado na rede da empresa onde trabalho, pois quando tentei utilizar em casa o código extenso não quis funfar.