Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
250
Assunto : Visual Basic
Titulo: Listar as sessões de rede abertas em um servidor

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Existe um conjunto de objetos chamado ADSI : Active Directory Service Interfaces. Esse conjunto de objetos pode gerenciar diversos softwares da Microsoft que utilizam a mesma interface interna para guardar suas informações. São eles :

- Windows NT/Windows 2000 Server : gerenciamento de segurança, usuários, objetos do AD, etc.

- Internet Information Server

- Exchange Server

entre outros.

Veja abaixo um exemplo para listar as sessões de rede abertas em um determinado servidor :

(É necessário fazer o references - early binding - para a ActiveDS Type Library)

Dim adsFSOps As IADsFileServiceOperations
Dim adsSession As IADsSession
Dim adsSessions As IADsCollection

' Substitua o nome do domínio e do servidor adequadamente aqui
' O ADSI utiliza Providers que determinam o que será acessado. No exemplo abaixo
' O provider utilizado é WinNT
Set adsFSOps = GetObject("WinNT://DOMAIN/SERVER/lanmanserver")

' Lista as sessões
' As sessões serão listadas na janela immediate, mas você pode mudar esse trecho
Set adsSessions = adsFSOps.Sessions
For Each adsSession In adsSessions
Debug.Print "User: " & adsSession.User & " Computer: " & adsSession.Computer
Next adsSession



Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 3/27/2012 10:14:00 PM
nome: jão
email: bhjnj@fggh.com
comentário:
muito bom

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br