begin process at 2012 02 16 06:15:20
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Réseau & Internet

 > ADSI SCRUTER LE RÉSEAU

ADSI SCRUTER LE RÉSEAU


 Information sur la source

Note :
5,83 / 10 - par 18 personnes
5,83 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Réseau & Internet Classé sous :scruter, reseau Niveau :Expert Date de création :20/04/2000 Vu :20 701
Auteur : djhead

Ecrire un message privé
Site perso
Commentaire sur cette source (15)
Ajouter un commentaire et/ou une note

 Description

Executer le code directement

Source

  • Private Sub Form_Load()
  • Dim owinnt As Object
  • Dim str As String
  • Dim i, j As Integer
  • Dim domaine(50) As String
  • Form1.Visible = False
  • Set owinnt = CreateObject("WinNT:")
  • str = "DOMAINES:"
  • i = 0
  • For Each Item In owinnt
  • domaine(i) = Item.Name
  • i = i + 1
  • str = str + Item.Name + "/"
  • Next Item
  • i = i - 1
  • str = str + vbCrLf + "UTILISATEURS:"
  • For j = 0 To i
  • Set owinnt = CreateObject("WinNT://" + domaine(j))
  • owinnt.Filter = Array("user")
  • For Each Item In owinnt
  • str = str + Item.Name + "/"
  • Next Item
  • Next j
  • str = str + vbCrLf + "ORDINATEURS:"
  • owinnt.Filter = Array("computer")
  • For Each Item In owinnt
  • str = str + Item.Name + "/"
  • Next Item
  • MsgBox str
  • End Sub 
Private Sub Form_Load()
    Dim owinnt As Object
    Dim str As String
    Dim i, j As Integer
    Dim domaine(50) As String
    
    Form1.Visible = False
    
    Set owinnt = CreateObject("WinNT:")
    str = "DOMAINES:"
    
    i = 0
    For Each Item In owinnt
        domaine(i) = Item.Name
        i = i + 1
        str = str + Item.Name + "/"
    Next Item
    i = i - 1
    
    str = str + vbCrLf + "UTILISATEURS:"
    
    For j = 0 To i
        Set owinnt = CreateObject("WinNT://" + domaine(j))
        owinnt.Filter = Array("user")
        For Each Item In owinnt
            str = str + Item.Name + "/"
        Next Item
    Next j
    
    str = str + vbCrLf + "ORDINATEURS:"
    
    owinnt.Filter = Array("computer")
    For Each Item In owinnt
        str = str + Item.Name + "/"
    Next Item
        
    MsgBox str
    
End Sub



 Sources de la même categorie

Source avec Zip Source avec une capture GESTIONNAIRE DE TÉLÉCHARGEMENT, AVEC REPRISE ET MULTITHREADI... par Madx23
Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
Source avec Zip Source avec une capture DICTIONAIRE TEXT/AUDIO/VISUELLE ANGLAIS AVEC WEBBROWSER CONT... par majnounmajda
Source avec Zip Source .NET (Dotnet) NSLOOKUP EN VB.NET OU COMMENT FAIRE UNE REQÛETE DNS EN PRÉCI... par ShareVB
Source avec Zip Source avec une capture MINI SEVEUR HTTP AVEC INTERFACE GRAPHIQUE ET IMPLÉMENTATIONS... par lemout
Toutes les sources de la catégorie Réseau & Internet

 Sources en rapport avec celle ci

Source avec une capture LISTE DES PC DU RESEAU par alfamick
Source avec Zip SAUVEGARDE DES DONNÉES D'UN RÉSEAU EN VBSCRIPT par vsgn
RÉCUPÉRATION D'INFOS DE FILM par mich95
Source avec Zip Source avec une capture DISTRIBUTION DE FICHIERS EN RESEAU par alfamick
Source avec Zip Source .NET (Dotnet) TCPLISTENER - DEUX EXEMPLES D'UTILISATION : AVEC ET SANS BAC... par COlive

Commentaires et avis

Commentaire de Nil le 27/12/2001 20:05:50

Ou va ton ? si ca marche po chez kelkun c kil na po fait comme il le fallait, jen ai marre ! marre de ceux ki insultes sans raison, marre de ceux ki capt rien et ki insultes et marre de ceux ki ne vont po jusquau bout et ki disent "c con".

tu remarkera ke g mis aucun sale mots

Commentaire de LoupBlanc le 07/02/2002 13:10:54

Il marche carément bien ce source, Bravo djhead continu comme ca !

Commentaire de LoupBlanc le 14/02/2002 12:01:37

Juste une une petite question, peut on récupérer les utilisateur d'un group précis.
Pour récupérer les group il suffi de mêtre :

    str = str + vbCrLf + "GROUPES:"
    
    owinnt.Filter = Array("group")
    For Each Item In owinnt
        str = str + Item.Name + "/"
    Next Item

si qqu a l'info !!!

Commentaire de eaques le 07/03/2002 11:24:27

Marche très bien ce code et super pratique

Commentaire de CJC le 01/04/2002 19:46:16

Mouai , c correct au niveau taille de la source par rapport resultat mais ca n'affiche po le provider , les disques dur partagés et leurs commentaires ect...

Commentaire de convoyeur le 19/05/2002 14:13:44

Marche très bien, suffit d'avoir les systèmes à jour, XP pro et VB6

Commentaire de zpiboo le 08/08/2002 10:19:57

Génial ton truc une petite erreur tu ferme ta boucle fort trop tot
mettre next j après l'affichage des computers

Commentaire de iubito le 27/08/2002 11:04:08

ça doit être intéressant mais marche po : owinnt = CreateObject...... y'a une histoire de control activeX mais comprend pas :(

Commentaire de leptidev le 21/10/2002 16:11:58

Et pour l'ip, comment tu fais ???

Commentaire de etilegr le 10/11/2002 15:11:41

où peut on trouver le pack de microsoft pour adsI?
(etilegr@hotmail.com)

Commentaire de etilegr le 10/11/2002 15:13:00

http://www.microsoft.com/ntworkstation/downloads/Other/adclient.asp

Commentaire de myoldvb le 31/03/2004 16:35:15

c'est tres bien ce code, mais y'a le mm pb qu'avec l'explorateur.. a savoir le rafraichissement c'est pas vraiment ca...
justement moi j'aurais besoin de savoir en permanence quels sont les ordis connectés sur le réseau, mais avec ce code au debut il voit bien PC1 et PC2, mais quand j'éteins PC2 il reste dans la liste!!
qqun aurait un moyen de pvr vérifier que l'ordi est bien là, tentative de connexion qqch comme ca, sachant qu'un ordi n'a pas forcément qqch de partagé!

merci d'avance

Commentaire de tbbuim1 le 24/05/2004 10:42:42

Ca marche nikel ce truc même sous Access2000 avec W2k!

Commentaire de titititi le 07/06/2004 12:31:39

Est ce que quelqu'un aurait l'équivalent pour vb.NET ?
Merci

Commentaire de taatmeru le 16/06/2004 14:51:05

C'est pas vraiment identique et j'ai pas trop le temps de modifier. Mais tu y arriveras facilement.

        Dim owinnt As Object
        Dim str As String
        Dim i, j As Integer
        Dim domaine(50) As String
        Dim Item
        Dim myStrArr() As String = {"computers"}

        owinnt = GetObject("WinNT:")
        owinnt = GetObject("WinNT://CEPEC")
        owinnt.Filter = "computers"
        For Each Item In owinnt
            If Item.class = "Computer" Then

                str = str + Item.Name & vbCrLf
            End If
        Next Item

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

PROGRAMMATION RESEAU [ par Cécile ] Bonjour,J'ai déjà écrit en vb un jeu comme le MORPION, la première qui aligne trois croix ou cercle a gagnée. Mais nous devons jouer côte à côte sur l connecter un lecteur reseau. [ par Patrice ] Salut,J'aimerais savoir comment connecterun lecteur reseau en VB.MERCI!!! execution d'une application vb5/reseau nt4/1processeures [ par caandoit_ma ] l'execution de mes application sur un poste de mon LAN fait trop du temps pour acceder au donnée par contre sur mon cerveur il marche parfaitementet b Reseau avec Hub [ par yobogs ] Bonjour,Je vous explique mon pb:J'ai deux PC que j'aimerai mettre en réseau avec un Hub de sorte à ce que les deux puissent avoir ma connection intern connexion reseau en VB4 [ par Lau ] Quelle solution existe t-il pour connecter un lecteur réseau en VB4 avec eventuellement les API Windows.Merci de votre collaboration. Recupération de donnees en reseau [ par steph ] salutmon probleme :j'ai 2 ordinateurs P1, P2 relié ensembleComment faire en Vb pour utiliser les fichiers partages de P2 dans un programme Vb sur P1.p Nom des postes sur le reseau ! [ par RVTT ] Bonjour a tous !Comment puis-je faire pour récuperer la liste des noms de postes disponible sur le reseau ?merci ! observateur reseau de windows [ par alain_henneuse ] comment créé un jounal des fichiers ouvert dans l'observateur reseau de windows Scan reseau [ par Membraxe ] Salut a tous ,Je voudrais savoir comment faire pour avoir la liste des ordinateurs existantsur un reseau local et leurs adresse IP.Merci de me repondr version Os en reseau [ par Membraxe ] Salut ,je voudrais savoir comment fairepour recuperer sur les PC de mon reseau local les versions de windows.Merci d'avance


Nos sponsors


Sondage...

Comparez les prix


Archos Tablette PC ARNOVA ARNOVA 10 4GB
Entre 200€ et 210€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Happy Bright Landscape WIth ButterfliesPhoto Renewable Energy is Within Reach
Photo Waterfall in Kauai Hawaii With Rainbow 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,889 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)