Test de connexion réseau

Question

Salut,

Je cherche à tester une liste de machines connectées ou non sur le réseau.

Le test se fait sur une machine, et vérifie une liste de machines présentes dans le voisinage réseau.

L'applicatif indique la connexion (On/Off) afin de pouvoir procéder à une mise à jour sur les machines connectées.

Merci pour toute aide ou indice me permettant d'ajouter cette option dans mon prog.

acive · Answer

Salut
si tu connais le nom des ordis tu peux créer un filebox
Private Sub Form_Load()
Call test_1
Call test_2
'....
End Sub
Private Sub test_1()
On Error GoTo 10
File1.Path = "\nom_de_l'ordi_1\disque_c"
Exit Sub
10
a = MsgBox("Le PC 1 n'est pas diponible!...", vbOKOnly, "Erreur...")
End Sub
Private Sub test_2()
On Error GoTo 10
File1.Path = "\nom_de_l'ordi_2\disque_c"
Exit Sub
10
a = MsgBox("Le PC 2 n'est pas diponible!...", vbOKOnly, "Erreur...")
End Sub
.....

Blasfem · Answer

Je te remercie pour cette info je testerai ça en réel.

je dois également tester mes premiers pas en Winsock.
Private Sub Verifconnect()

'parcours du réseau pour connaitre les machines connectées

chemin.MoveFirst

Do While chemin.EOF = False
    ' Définir le port à écouter
    Winsock1.LocalPort = 1002
    strRemoteHost = chemin!ip
    Winsock1.RemoteHost = strRemoteHost
    'spécifier un numéro de port sur l'Hote distant
    Winsock1.RemotePort = 1002
    DoEvents
    Winsock1.Connect
    If Winsock1.State = sckConnected Then
    chemin!selection = True
    chemin.Update
    Else
        chemin!selection = True
        chemin.Update
    End If
    Winsock1.Close
chemin.MoveNext
Loop

End Sub

Test de connexion réseau

2 réponses

Discussions similaires