1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

VB2008 voir les ordinateurs sur le réseau. [Résolu]

Signaler
Messages postés
9
Date d'inscription
samedi 18 août 2012
Statut
Membre
Dernière intervention
19 août 2012
 -
Messages postés
9
Date d'inscription
samedi 18 août 2012
Statut
Membre
Dernière intervention
19 août 2012
 -
Bonjour,
je voudrais savoir quel code utiliser (code sur visual basic 2008) pour que le nom des ordinateurs connecté au réseau (local) soit affiché dans une Listbox ou textbox. Faut-il utiliser une commande Shell par exemple "net view"?
Un très grand merci pour votre aide! :-).
Laurent.

2 réponses

Réponse 1 / 2
Messages postés
78
Date d'inscription
jeudi 21 avril 2005
Statut
Membre
Dernière intervention
15 novembre 2018
pour la commande shell net
il y a un exemple de code ici:
http://www.vbfrance.com/codes/LISTER-ORDINATEURS-PRESENT-SUR-VOTRE-DOMAINE-VB2005_39968.aspx

tu peut utiliser les api (WNet)
il y a un exemple de code ici:
http://www.vbfrance.com/codes/ENUMERER-MACHINES-VOTRE-RESEAU_43879.aspx

Tu peut aussi faire une boucle qui fait un test ping sur toutes les adresse ip du reseau local dans lequel tu te trouve.

A toit de voir.
Réponse 2 / 2
Messages postés
9
Date d'inscription
samedi 18 août 2012
Statut
Membre
Dernière intervention
19 août 2012
Merci merci :D
j'avais trouvé comment faire voila le code que j'utilise et il fonctionne super bien ;) 
Dim CMDprocess As New Process
                Dim StartInfo As New System.Diagnostics.ProcessStartInfo
                StartInfo.FileName = "cmd"
                StartInfo.CreateNoWindow = True
                StartInfo.RedirectStandardInput = True
                StartInfo.RedirectStandardOutput = True
                StartInfo.UseShellExecute = False
                CMDprocess.StartInfo = StartInfo
                CMDprocess.Start()
                Dim SR As System.IO.StreamReader = CMDprocess.StandardOutput
                Dim SW As System.IO.StreamWriter = CMDprocess.StandardInput
                SW.WriteLine("net view")
                SW.WriteLine("exit")
                RichTextBox2.Text = SR.ReadToEnd
                SW.Close()
                SR.Close()



Bonne journée
Répondre Posez votre question