Liste des pc du reseau

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 663 fois - Téléchargée 17 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

Messages postés
2
Date d'inscription
jeudi 1 mars 2007
Statut
Membre
Dernière intervention
31 juillet 2014

merci
Messages postés
20
Date d'inscription
mercredi 29 décembre 2004
Statut
Membre
Dernière intervention
23 mai 2011

tojo1989,
quel est le sens de ta phrase "fait des effort merci!" ??
Messages postés
3
Date d'inscription
mercredi 10 février 2010
Statut
Membre
Dernière intervention
7 juin 2012

fait des effort merci!
Messages postés
20
Date d'inscription
mercredi 29 décembre 2004
Statut
Membre
Dernière intervention
23 mai 2011

pas de prob BOUV c'est bien comme ça que je l'avais compris
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
Ce n'étais pas une attaque... juste pour dire qu'on utilise la même méthode.
J'ai depuis toutes ces années laissé tomber la méthode qui montre trop de limites.
Utilises les WPI, c'est beaucoup plus fiable.
Afficher les 11 commentaires

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.