Liste des pc du reseau

0/5 (11 avis)

Snippet vu 12 833 fois - Téléchargée 19 fois

Contenu du snippet

lister simplement les pc connectés à votre réseau. Bien que pas trés academique comme façon, ça fonctionne. Sur un form placez un bouton et un listview. On peut trés bien récupérer la liste dans un tableau pour usage ultérieur, le listview c'est pour l'exemple...

Source / Exemple :


public tmp As String

Private Sub Command1_Click()
'
Shell ("cmd /c " & Chr(34) & "net view >" & App.Path & "\test.txt" & Chr(34)) 'recup par cde dos net view liste pc

Open App.Path & "\test.txt" For Input As #21 'ouverture fichier txt
    Do Until EOF(21)                         'lecture du fichier jusqu'à la fin
         Line Input #21, tmp                 'stockage dans variable
        If Left$(tmp, 2) = "\\" Then         'si nom de pc car commence par \\
            tmp = Trim(Mid$(tmp, 3, 16))     'on recupere les 16 caracteres apres les \\
            ListView1.ListItems.Add , , tmp  'on ajoute à listview1
        End If
    Loop
Close #21                                    'on ferme le fichier
Kill App.Path & "\test.txt"                  'on supprime le fichier
End Sub

Conclusion :


on utilise une commande Dos, comme précisé plus haut ce n'est pas trés académique mais c'est court et ça fonctionne. bonne prog à tous et merci vbfrance.

A voir également

Ajouter un commentaire Commentaires
Philippe734 Messages postés 308 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 15 juin 2015 1
6 mai 2011 à 13:16
Oui, ça fonctionne à partir de la commande net view. Peut-être que tu serais interessé d'en apprendre plus sur les fonctions réseaux par VB ? Alors, je t'invite à consulter le code du lien suivant. C'est un modèle exploitant une très grande quantité de fonctions réseaux. Il y a, entre autres, une fonction pour lister les PC du réseaux. Bonne prog'

IP Helper :
www.vbrad.com/article.aspx?id=32
alfamick Messages postés 20 Date d'inscription mercredi 29 décembre 2004 Statut Membre Dernière intervention 23 mai 2011
6 mai 2011 à 14:05
je cherchais un truc simple,c'est pour ça que j'ai utilisé net view. mais là, je dis merci pour le lien c'est une mine d'informations.
cs_glad Messages postés 97 Date d'inscription lundi 26 novembre 2001 Statut Membre Dernière intervention 24 février 2012
9 mai 2011 à 07:56
Hum ça fonctionne sur un petit réseau.
Je suis en entreprise avec des VLAN multiples et je ne vois que les serveurs de prod et les PC sur le même VLAN :-)
alfamick Messages postés 20 Date d'inscription mercredi 29 décembre 2004 Statut Membre Dernière intervention 23 mai 2011
9 mai 2011 à 19:43
Effectivement Glad, mais pour l'utilisation que j'avais prévu d'en faire ces quelques lignes ont été suffisantes et peu être dépanneront elles d'autres. Vois le lien que donne Philippe734 c'est top. Bonne prog à tous
bouv Messages postés 1411 Date d'inscription mercredi 6 août 2003 Statut Membre Dernière intervention 3 mars 2019 1
18 mai 2011 à 08:40

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.