Liste des pc du reseau

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_alfamick)