[Resolvido]Duvida sobre Usuarios Logados no Banco de Dados

Pessoal
Bom Dia

Gostaria de saber se alguem sabe como posso fazer para visualizar todos os usuarios que estao utilizando o banco de dados e como faço para expulsar alguns usuarios do sistema..

por favor me enviem os exemplo que vocês possuem para mim testar..

muito obrigado!

Uma forma simples de saber quem está logado é usando uma rotina para pegar nome do usuário ao iniciar o bd e gravar na tabela. Esse código pode ser o environ("UserName"). Para fechar o banco de dados, você pode usar um arquivo qualquer na pasta do bd. Programa o bd para checar se esse arquivo está na pasta. Se estiver, fecha a aplicação.

Veja se este exemplo atende às suas necessidades:

http://dl.dropbox.com/u/8157744/Usemrede.mdb

Criquio
eu utilizo exatamente este processo atualmente, porem alguns usuarios de rede ficam alterando a conexao de wireless para cabeada toda hora, e com isso quando eu tento expulsar os usuarios alguns nao saem pelo motivo especificado acima..

por isso queria uma maneira de expulsar um a um...ou de alguma outra maneira

vieira
obrigado, porem o link nao esta funcionando..


acredito que o exemplo enviado seja exatamente o que o criquio informou, correto?
caso seja, eu utilizo exatamente este..queria saber se possui outro exemplo..

vou ver o que se passa com o link e já retorno. ùltimamente a drop está a dar problemas(rsrsrs).

Ora veja agora por favor

http://dl.dropbox.com/u/8157744/Usemrede.rar

ainda esta dando problema..hehe

testei e funcionou. Mas consegui colocar aqui

Agora Funcionou sim! Muito obrigado..


Consegui testar aqui, porem só apareceu um usuario conectado..que é o meu..e verifiquei que possuem mais alguns conectados..
devo fazer alguma alteração?

Não, explore só o funcionamento disso. Obrigado pelo retorno.

Sucesso

teria como vc me passar entao..quais sao as bibliotecas que voce usa?

O exemplo está em aberto Adriano. Tudo o que foi necessário para o construir está aí e nada foi omitido. Não existe segredo.

esta dando erro na linha:

Set rst = cnn.OpenSchema(Schema:=adSchemaProviderSpecific, SchemaId:=adhcUsers)



erro:
Erro tempo de execução 3251:
O objeto ou provedor nao é capaz de executar a operação solicitada.



sabe me dizer uq pode ser?

estive a testar aqui e não dá erro nenhum. Isso capta os usuários em rede, autoriza adicionar novos usuários ou desabilita-los. Tudo simples. Não está dando erro nenhum e vários colegas aqui do fórum e do portal dos programadores estão usando-o. Verifique se existe alguma referência em falta na sua máquina???, mas não apresenta erro.

visual Basic for aplicattions
Microsoft Access 11.0 Object Library.........no seu caso pode ser 12.0
Microsoft ActiveX dataobjecs 2.1 library
OLE Automation

descobri o problema já...

primeiramente eu havia colocado no meu FE entao estava aparecendo que apenas eu estava acessando, pois utilizo uma copia do FE do servidor ao inves do atalho.
em seguida coloquei no meu banco, porem nao deu certo...entao passei todas as minhas tabelas para o arquivo que voce me enviou e o fiz de Banco principal...


a minha duvida agora é se é possivel que eu acesse este formulario de usuarios pelo meu FE...

Adriano

Acredite que nunca experimentei esse exemplo na real. De qualquer forma ele está criado para isso mesmo e eu estou convicto que pode sim, mas experimente, pois não quero estar a induzi-lo em erro. O propósito dessa aplicação é funcionar em rede e gerir os usuários. Experimente então.

No Exemplo enviar é mostrado os campos: Computer;UserName;Connected

como posso colocar outros campos e valores? não consegui entender como ele pega esses valores..
pois as unicas linhas do codigos que vao preenchendo a tabela são:

Const adhcUsers = "{947bb102-5d43-11d1-bdbf-00c04fb92675}"
Const adhcAllowUsers = "Permitir Novos Usuarios"
Const adhcDisallowUsers = "Negar Novos Usuarios"
Sub BuildUserList()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim fld As ADODB.Field
Dim intUser As Integer
Dim strUser As String
Dim varVal As Variant

' Headings
strUser = "Computer;UserName;Connected?"

Set cnn = CurrentProject.Connection
Set rst = cnn.OpenSchema(Schema:=adSchemaProviderSpecific, SchemaId:=adhcUsers)
With rst
Do Until .EOF
intUser = intUser + 1
For Each fld In .Fields
varVal = fld.Value
If InStr(varVal, vbNullChar) > 0 Then
varVal = Left(varVal, _
InStr(varVal, vbNullChar) - 1)
End If
strUser = strUser & ";" & varVal
Next
.MoveNext
Loop
End With
txtUsers = intUser
lboUsers.RowSource = strUser

rst.Close
Set rst = Nothing
Set fld = Nothing
Set cnn = Nothing
End Sub



se puder me ajudar...

Repare

Const adhcUsers = "{947bb102-5d43-11d1-bdbf-00c04fb92675}"
Const adhcAllowUsers = "Permitir Novos Usuarios"
Const adhcDisallowUsers = "Negar Novos Usuarios"
vai dar início à construçaõ da lista
Sub BuildUserList()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim fld As ADODB.Field
Dim intUser As Integer
Dim strUser As String
Dim varVal As Variant

' Headings
strUser = "Computer;UserName;Connected?" 'saca o username do computador conectado
Set cnn = CurrentProject.Connection
Faz a conexão
Set rst = cnn.OpenSchema(Schema:=adSchemaProviderSpecific, SchemaId:=adhcUsers)
With rst
Do Until .EOF
intUser = intUser + 1 'utiliza o loop para procurar no recordset os usuários conectados e acrescenta-los à lista
vai buscar os usuários logados
For Each fld In .Fields
varVal = fld.Value
If InStr(varVal, vbNullChar) > 0 Then
varVal = Left(varVal, _
InStr(varVal, vbNullChar) - 1)
End If
strUser = strUser & ";" & varVal
Next
.MoveNext
Loop
End With
txtUsers = intUser
lboUsers.RowSource = strUser

rst.Close ' fecha a conexão
Set rst = Nothing
Set fld = Nothing
Set cnn = Nothing
End Sub

Para inserir outros campos tem que declarar as variáveis

Por exemplo:

Para acrescentar à lista o IP devenos declarar a variável:

Const adhcipusers = "ipusers"

Certo

Seguinte...

sei que você é um expert em access já, porem infelizmente nao tenho tamanho conhecimento e procuro um dia talvez ter..

gostaria de inserir na minha tabela gostaria de inserir na lista o nome do usuario, o ip e o usuario de rede também...
se puder me ajudar nisto..desde ja agradeço.

peço desculpas pela minha ignorancia..porem estou ainda em fase de aprendizado

Você pode obter o IP, o computername (este é o username-nome do computador.

Amigo a variável já está definida por natureza e o username já lá está

fiz da seguinte maneira:

Const adhcUsers = "{947bb102-5d43-11d1-bdbf-00c04fb92675}"
Const adhcAllowUsers = "Permitir Novos Usuarios"
Const adhcDisallowUsers = "Negar Novos Usuarios"
Sub BuildUserList()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim fld As ADODB.Field
Dim intUser As Integer
Dim strUser As String
Dim strpc As String
Dim varVal As Variant
Dim ipusers As String
Dim UserName As String

' Headings
strUser = "Computer;Usuario;IP?"

Set cnn = CurrentProject.Connection
Set rst = cnn.OpenSchema(Schema:=adSchemaProviderSpecific, SchemaId:=adhcUsers)
With rst
Do Until .EOF
intUser = intUser + 1

For Each fld In .Fields
ipusers = DameIpMaquina
UserName = GetUserName_TSB

varVal = fld.Value
If InStr(varVal, vbNullChar) > 0 Then
varVal = Left(varVal, _
InStr(varVal, vbNullChar) - 1)
strpc = varVal
Exit For
End If
Next

strUser = strUser & ";" & strpc & ";" & UserName & ";" & ipusers
.MoveNext
Loop
End With


txtUsers = intUser
lboUsers.RowSource = strUser

rst.Close
Set rst = Nothing
Set fld = Nothing
Set cnn = Nothing
End Sub




porem ao inves de pegar o usuario da maquina que esta conectada..esta pegando o meu usuario..
sabe me dizer como resolver?

por favor me envie como ficaria..pois nao estou conseguindo entender direito...

mais uma vez peço desculpas pela minha ignorancia.

Amigo não estrague o original


Option Compare Database
Option Explicit
Const adhcUsers = "{947bb102-5d43-11d1-bdbf-00c04fb92675}"
Const adhcAllowUsers = "Allow New Users"
Const adhcDisallowUsers = "Disallow New Users"

Sub BuildUserList()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim fld As ADODB.Field
Dim intUser As Integer
Dim strUser As String
Dim varVal As Variant

' Headings
strUser = "Computer;UserName;Connected?;Suspect?"

Set cnn = CurrentProject.Connection
Set rst = cnn.OpenSchema(Schema:=adSchemaProviderSpecific, SchemaId:=adhcUsers)
With rst
Do Until .EOF
intUser = intUser + 1
For Each fld In .Fields
varVal = fld.Value
If InStr(varVal, vbNullChar) > 0 Then
varVal = Left(varVal, _
InStr(varVal, vbNullChar) - 1)
End If
strUser = strUser & ";" & varVal
Next
.MoveNext
Loop
End With
txtUsers = intUser
lboUsers.RowSource = strUser

rst.Close
Set rst = Nothing
Set fld = Nothing
Set cnn = Nothing
End Sub


Private Sub cmdFechar_Click()
DoCmd.Close acForm, Me.Name
End Sub

Private Sub cmdRefreshNow_Click()
Call BuildUserList
End Sub

Private Sub cmdShutdown_Click()
If cmdShutdown.Caption = adhcDisallowUsers Then
CurrentProject.Connection. _
Properties("Jet OLEDB:Connection Control") = 1
cmdShutdown.Caption = adhcAllowUsers
Else
CurrentProject.Connection. _
Properties("Jet OLEDB:Connection Control") = 2
cmdShutdown.Caption = adhcDisallowUsers
End If
End Sub

Private Sub Form_Load()
Me.TimerInterval = Me!txtRefresh * 1000
Call BuildUserList

If CurrentProject.Connection.Properties("Jet OLEDB:Connection Control") = 2 Then
cmdShutdown.Caption = adhcDisallowUsers
Else
cmdShutdown.Caption = adhcAllowUsers
End If
End Sub

Private Sub Form_Timer()
Call BuildUserList
End Sub

Private Sub txtRefresh_AfterUpdate()
Me.TimerInterval = Me!txtRefresh * 1000
End Sub


Faça várias cópias e vá pelos seus dedos, por tentativas e vai ver que vai conseguir.

Abs

Voltando ao assunto principal..

Como posso cortar a conexao de um usuario que eu selecionar?

Peço desculpa estar a reabrir o topico mas ha uma coisa que me esta a acontecer com esse exemplo e não entendo porque....so queria saber se acontece o mesmo convosco.
eu testei o exemplo e parece muito bom, mas o nome do User em todas as maquinas aparece como "Admin"
deveria aparecer por exemplo "sardao", "Tiago", "ana", etc...mas so aparece "Admin"..vejam:



Obrigado

Esta é a mesma dúvida que abri no tópico:

Mostrar todos os usuários logados no banco com o username do windows