VBA Tips - Nome do computador - Computer Name

Termo de Responsabilidade 

Talvez vc deseje ligar a execução de uma aplicação

'A função abaixo mostra qual o nome do computador atual 

Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long 

' Para usá-la use a função abaixo 

Function GetComputerName() As String 

Dim UserName As String * 255 

Call GetComputerNameA (UserName, 255) 

Let GetComputerName = Left$(UserName, InStr (UserName, Chr$(0)) - 1) 

End Function 

References:

Tags: VBA, Tips, Computer, name