NOME DO COMPUTADOR DO ACESSO REMOTO
BOA NOITE CAROS AMIGOS, ESTOU COM UM GRANDE PROBLEMA, TENHO UM SISTEMA EM VB6.0 QUE FUNCIONA NUM SERVIDOR E TENHO UNS 15 CLIENTES QUE ACESSAM O MEU SERVIDOR REMOTAMENTE, NO SISTEMA JA IDENTIFICO O NOME DO USUARIO DE TODOS ELES, EU QUERIA MAIS, QUERIA VER SE TEM UMA API QUE POSSO IDENTIFICAR O NOME DO COMPUTADOR EM QUE ELES CLIENTE ESTA ACESSANDO O MEU SERVIDOR REMOTAMENTE, TEM ALGUEM QUE POSSA ME AJUDAR?
Citação:Pegando o nome da Máquina
Private Declare Function GetComputerName Lib [Ô]kernel32[Ô] Alias [Ô]GetComputerNameA[Ô] (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command1_Click()
Dim strBuffer As String
Dim lngBufSize As Long
Dim lngStatus As Long
lngBufSize = 255
strBuffer = String$(lngBufSize, [Ô] [Ô])
lngStatus = GetComputerName(strBuffer, lngBufSize)
If lngStatus <> 0 Then
MsgBox ([Ô]O nome do computador é: [Ô] & Left(strBuffer, lngBufSize))
End If
End Sub
_________________________________________________________________________________________________________________________________
Citação:Pegando o IP
Private Declare Function GetIpAddrTable_API Lib [Ô]IpHlpApi[Ô] Alias [Ô]GetIpAddrTable[Ô] (pIPAddrTable As Any, pdwSize As Long, ByVal bOrder As Long) As Long
Public Function GetIpAddrTable() As String
Dim Buf(0 To 511) As Byte
Dim BufSize As Long: BufSize = UBound(Buf) + 1
Dim rc As Long
rc = GetIpAddrTable_API(Buf(0), BufSize, 1)
If rc <> 0 Then Err.Raise vbObjectError, , [Ô]GetIpAddrTable failed with return value [Ô] & rc
Dim NrOfEntries As Integer: NrOfEntries = Buf(1) * 256 + Buf(0)
If NrOfEntries = 0 Then GetIpAddrTable = Array(): Exit Function
ReDim IpAddrs(0 To NrOfEntries - 1) As String
Dim i As Integer
For i = 0 To NrOfEntries - 1
Dim j As Integer, s As String: s = [Ô][Ô]
For j = 0 To 3: s = s & IIf(j > 0, [Ô].[Ô], [Ô][Ô]) & Buf(4 + i * 24 + j): Next
IpAddrs(i) = s
Next
GetIpAddrTable = IpAddrs(2)
End Function
[ô]para chamar a função
Dim IpLocal as String
IpLocal = GetIpAddrTable
msgbox [Ô]O endereço IP é.: [Ô] & IpLocal
[]'s
Citação::
BOA NOITE CAROS AMIGOS, ESTOU COM UM GRANDE PROBLEMA, TENHO UM SISTEMA EM VB6.0 QUE FUNCIONA NUM SERVIDOR E TENHO UNS 15 CLIENTES QUE ACESSAM O MEU SERVIDOR REMOTAMENTE, NO SISTEMA JA IDENTIFICO O NOME DO USUARIO DE TODOS ELES, EU QUERIA MAIS, QUERIA VER SE TEM UMA API QUE POSSO IDENTIFICAR O NOME DO COMPUTADOR EM QUE ELES CLIENTE ESTA ACESSANDO O MEU SERVIDOR REMOTAMENTE, TEM ALGUEM QUE POSSA ME AJUDAR?
MEU CARO AMIGO NLSOLUCOES, COM O GetComputerName EU PEGO O NOME DO COMPUTADOR SERVIDOR VOU TE DA COMO EU ESTOU PRECISANDO:
O NOME DO SERVIDOR E: server2003 O NOME DO MEU COMPUATOR QUE ACESSAR O SERVIDOR E dms0910, ENTAM O QUE EU QUERO O SEGUINTE, QUANDO EU ACESSAR REMOTAMENTE DO COMPUTADOR dms0910 O SERVIDOR server2003 REMOTAMENTE APARECER NO SISTEMA O NOME DO MEU COMPUTADOR QUE E dms0910, ENTENDEU.
Olá DIONISIO,
Cara vc fala GRITANDO, bom mas vamos lá.
Pelo que entendi é simples, tenho aplicações que funcionam assim, pelo servidor sei quem(usuário e terminal) está acessando o banco de dados.
Vc tem o servidor de bando de dados.
Com as funções acima gravo as informações no DB e assim na aplicação servidor sei quem (NomeMicro/IP) está logado e ainda tem funções que vc pode colocar o usuário da máquina e o usuário do sistema que ambos podem ser diferentes.
[]'s
Cara vc fala GRITANDO, bom mas vamos lá.
Pelo que entendi é simples, tenho aplicações que funcionam assim, pelo servidor sei quem(usuário e terminal) está acessando o banco de dados.
Vc tem o servidor de bando de dados.
Com as funções acima gravo as informações no DB e assim na aplicação servidor sei quem (NomeMicro/IP) está logado e ainda tem funções que vc pode colocar o usuário da máquina e o usuário do sistema que ambos podem ser diferentes.
[]'s
Tópico encerrado , respostas não são mais permitidas