VBA CAPTURA DO NOME DA MAQUINA

USUARIO.EXCLUIDOS 19/12/2006 10:19:55
#190817
Galera, alguem sabe me dizer se via VBA no excel tem como eu pegar o nome da maquina que está acessando o arquivo....tenho um arquivo de excel na rede que necessita desta informação para processar alguns dados.

Obrigado
LUIS.FLAVIO 19/12/2006 10:43:39
#190823 Resposta escolhida
Option Explicit
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long
Sub Get_Computer_Name()
 
'determina a máquina que está acessando
Dim Comp_Name_B As String * 255
Dim Comp_Name As String
GetComputerName Comp_Name_B, Len(Comp_Name_B)
    
Comp_Name = Left(Comp_Name_B, InStr(Comp_Name_B, Chr(0)))
        
'determina  quem está logando
Dim lpBuff As String * 25
Dim ret As Long, UserName As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
    
MsgBox UCase(UserName)
MsgBox Comp_Name

End Sub


Brodher basta apenas colocar essa rotina em um módulo e chamar as funções:
JABA 19/12/2006 12:44:02
#190859
de uma olhada neste site http://www.macoratti.net/d200801.htm
Tópico encerrado , respostas não são mais permitidas
Voltar