Adsi scruter le réseau

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 000 fois - Téléchargée 103 fois

Contenu du snippet

Executer le code directement

Source / Exemple :


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

A voir également

Ajouter un commentaire

Commentaires

taatmeru
Messages postés
5
Date d'inscription
mercredi 2 juillet 2003
Statut
Membre
Dernière intervention
2 février 2006
-
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
cs_titititi
Messages postés
11
Date d'inscription
mercredi 16 avril 2003
Statut
Membre
Dernière intervention
21 juillet 2004
-
Est ce que quelqu'un aurait l'équivalent pour vb.NET ?
Merci
tbbuim1
Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
7 -
Ca marche nikel ce truc même sous Access2000 avec W2k!
myoldvb
Messages postés
6
Date d'inscription
jeudi 5 juin 2003
Statut
Membre
Dernière intervention
10 mars 2004
-
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
etilegr
Messages postés
70
Date d'inscription
vendredi 22 février 2002
Statut
Membre
Dernière intervention
13 novembre 2003
-

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.