VBA Access - Registrando o nome das máquinas (Workstation) - VBA Access: How to Record Workstation Names (Machine Names)

Muitas vezes queremos deixar registrados os nomes do computadores qeu acessaram a nossa aplicação. Isso é possível através do uso de uma fnução como a demonstrada abaixo: Com poucas alterações esse código poderá ser utilizado também no Word, Excel, Powerpoint e quaisquer aplicações que utilizem o VBA. 

 15.01.2025 

' Função que obtém o nome do computador (nome da máquina)

Function ComputerN() As String

    ' Tratamento de erros

    On Error GoTo Err_Handler

    ' Declaração das variáveis

    Dim strName As String ' Variável para armazenar o nome do computador

    Dim lngLen As Long ' Variável para armazenar o comprimento da string do nome do computador

    ' Definindo o comprimento do nome do computador

    lngLen = 16&

    ' Inicializando a string strName com caracteres nulos (vbNullChar)

    strName = String$(lngLen, vbNullChar)

    ' Chamando a API para obter o nome do computador

    If apiGetComputerName(strName, lngLen) = 0& Then

        ' Se a função apiGetComputerName falhar, atribui "Desconhecido"

        ComputerN = "Desconhecido"

    Else

        ' Caso contrário, retorna o nome do computador (removendo caracteres nulos adicionais)

        ComputerN = Left$(strName, lngLen)

    End If

    ' Saída sem erros

    Exit_Handler:

        Exit Function

    ' Tratamento de erros

    Err_Handler:

        ' Em caso de erro, loga o erro com número e descrição

        Call LogError(Err.Number, Err.Description, "ComputerN")

        Resume Exit_Handler

End Function

 Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série de Livros nut Project 

  

 PUDIM PROJECT