none
VBA Tips - GetUser - Saiba o nome do usuários do Windows RRS feed

  • Discussão Geral


  • Saiba o nome do usuário que está usando a sua aplicação.
    Podemos usar essa funcionalidade para uma conexão automática, ou solicitação de identificação para acesso. Inclui API.
      Private Declare Function GetUserName Lib "advapi32.dll" Alias _      "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long        Function GetUser() As String              Dim UserName As String ' receives name of the user                Dim slength As Long ' length of the string            Dim RetVal As Long ' return value              UserName = Space(255) ' room for 255 characters              slength = 255 ' initialize the size of the string              RetVal = GetUserName(UserName, slength) ' slength is now the length of the returned string              UserName = Left(UserName, slength - 1) ' extract the returned info from the buffer                User = UserName            End Function
    Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

    Tags: VBA, API, DLL, api32.dll,



    A&A - In Any Place http://inanyplace.blogspot.com/ - bernardess@gmail.com Twitter: @inanyplace

    quinta-feira, 21 de novembro de 2013 16:22