• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

cristpate

FUNCAO EM VBA OU VB

3 mensagens neste tópico

ola a todos,

eu gostava de saber se existe uma funcao em vba ou vb que me da informaçao do user de uma determinada maquina ( as propriedades do utilizaor nessa maquina)?

cristpate

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Seria isso?

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()
Dim a1 As String

  a1 = Format(CDate(Now), "dd/mm/yyyy hh:mm:ss")

   '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 "Data/Time  :  " & a1 & Chr(10) & "Logon         :  " & UCase(UserName) & Chr(10) & "Estação      :  " & Comp_Name, vbInformation, "Controle de Acesso "

End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora