Access VBA - Nome do Computador (Estação de Trabalho)

Termo de Responsabilidade 

Muitas vezes queremos deixar registrados os nomes do computadores que acessaram a nossa

aplicação. Isso é possível através do uso da função 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.

Function ComputerN() As String

On Error GoTo Err_Handler

Dim strName As String

Dim lngLen As Long

Let lngLen = 16&

Let strName = String$(lngLen, vbNullChar)

If apiGetComputerName(strName, lngLen) = 0& Then

Let ComputerName = "Desconhecido"

Else

Let ComputerName = Left$(strName, lngLen)

End If

Exit_Handler:

Exit Function

Err_Handler:

Call LogError(Err.Number, Err.Description, conMod & ".fOSMachineName")

Resume Exit_Handler

End Function

Referências: 

Tags: VBA, Excel, Access, Word, Powerpoint, office, computer name, workstation