Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 04 15:09:50

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

[VISUAL STUDIO 2010] LES TESTS CASES C'EST BIEN, MAIS JE VAIS DEVOIR TOUT RééCRIRE ? par Etienne Margraff

MVP[GRIBOUILLON].ADDYEAR par Gribouillon

RE : SOS REMPLISSAGE DE LISTVIEW ET TEXTBOX par yabross

ENVOIE D'UNE IMAGE SANS PASSER PAR LE DISQUE DUR par hippo92210b

RE : SOS REMPLISSAGE DE LISTVIEW ET TEXTBOX par yabross

RE : FORMAT PERSONNEL DANS UN TEXTBOX. par PCPT

RE : EMPêCHER UN PROGRAMME D'ACCEDé à INTERNET [VB2008] par Mayzz

+ de logiciels à télécharger

1 464 255 membres
159 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 302 815 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

ADSI SCRUTER LE RÉSEAU

Information sur la source

Catégorie :Réseau & Internet Classé sous : scruter, reseau Niveau : Expert Date de création : 20/04/2000 Vu : 19 894

Auteur : djhead

Site perso

Ecrire un message privé

Note :

5,83 / 10

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

LIGHT CODES-SOURCES par thebigboss3

STORMDATACENTER - DÉMO DE WEBBROWSER MULTIFONCTION VB9 par LightningStrike

TRADUCTEUR GOOGLE : INTERFACE WINFORM POUR LE SERVICE DE TRA... par Patrice99

COMMENT CONTRÔLER TOTALEMENT LES PROCESSUS D'UN PC DISTANT (... par violent_ken

MINI CACHE DNS par XelectroX

Toutes les sources de la catégorie Réseau & Internet

Sources en rapport avec celle ci

SAUVEGARDE DES DONNÉES D'UN RÉSEAU EN VBSCRIPT par vsgn

RÉCUPÉRATION D'INFOS DE FILM par mich95

DISTRIBUTION DE FICHIERS EN RESEAU par alfamick

TCPLISTENER - DEUX EXEMPLES D'UTILISATION : AVEC ET SANS BAC... par COlive

LE MOT LE PLUS LONG EN RESEAU par fabienenvac

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