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.
6 mai 2011 à 13:16
IP Helper :
www.vbrad.com/article.aspx?id=32
6 mai 2011 à 14:05
9 mai 2011 à 07:56
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 :-)
9 mai 2011 à 19:43
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.