Utilitaire pour la gestion de reseaux

Télécharger le projet
Commenter

Description

Un ensemble de petit utilitaires pour des verifications sur 1 reseaux LAN.
On a des : Ping sur des adresses predefinis dans une base de donnees MSACCESS, Ping sur un intervalle d'adresse, recuperation les process d'un ordinateur a distance, TRACERT et PING, un soins tout particuler a la presentation des resultats et la possibiliter de l'enregistrement de sertain resultat dans des fichiers TXT.

Code present pour TRACERT et PING

Source / Exemple : 


Public st As Integer
Public sd As String
Private Sub Command1_Click()
' Resoudre le Nom -> Adresse
Text2 = fGetHostName(Text1)
If Text2 = "" Then Text2 = "Not Found"
End Sub

Private Sub Command2_Click()
' Resoudre l'Adresse -> Nom
Text1 = GetIPFromHostName(Text2)
End Sub

Private Sub Command3_Click()
'Ping
st = 0
b = fGetHostName(Text1)
a = GetIPFromHostName(b)
List1.Clear
List1.AddItem "Pinging l'adresse    " & b & "    [" & a & "]"
List1.AddItem " "
For i = 1 To Text3
List1.AddItem "Reponse de " & a & " : " & EasyPing(Text1)
DoEvents
Me.Refresh
DoEvents
If st = 1 Then Exit For
Next
List1.AddItem " "
List1.AddItem "-----------------------------"
List1.AddItem "Test Terminé" & sd
End Sub

Private Sub Command4_Click()
' TRACERT
Dim TraceChaine As String
Dim OutPchaine As String
Dim RTTofSaut As Long
Dim RTTstr As String
Dim i As Long
st = 0
If SocketsInitialize() Then
b = fGetHostName(Text1)
a = GetIPFromHostName(b)
List1.Clear
List1.AddItem "Tracage de l'adresse        [" & a & "]"
 List1.AddItem " "
   
    For i = 1 To Text4
        Me.Refresh
        OutPchaine = IncrTracert(a, i, RTTofSaut)
        
        Select Case RTTofSaut   'formatage en string de la durée de l'echo
        Case -3
            RTTstr = "SZErr"
        Case -2
            RTTstr = "Err!"
        Case -1
            RTTstr = "Timeout"
        Case Else
            RTTstr = RTTofSaut & " ms"
        End Select
        
        'formatage de la chaine de sortie du traçage. La fonction String() permet de générer des caractères
        ' espace (" ") pour simuler des colonnes dans la liste.
        TraceChaine = i & String$(4 - Len(CStr(i)), " ") & RTTstr & String$(8 - Len(RTTstr), " ") & OutPchaine & String$(16 - Len(OutPchaine), " ") & AlwaysGetDNS(OutPchaine)
        List1.AddItem TraceChaine
        List1.ListIndex = i - 1  'avance du curseur
        DoEvents    'laisse windows afficher le contenu de la liste
        
        If GetIPbinaryVal(OutPchaine) = GetIPofCible(Text1) Then Exit For 'permet de savoir si on a atteint la cible
  DoEvents
If st = 1 Then Exit For
Next
Else
   ' GROS probleme système!
   MsgBox "Windows Sockets for 32 bit Windows ne répond pas.", vbCritical
End If
List1.AddItem " "
List1.AddItem "-----------------------------"
List1.AddItem "Test Terminé" & sd
End Sub

Private Sub Command5_Click()
st = 1
End Sub

Private Sub Command6_Click()

Load enrg
End Sub

Private Sub Form_Load()
If SocketsInitialize() Then
    Text1.Enabled = True
    Text2.Enabled = True
    Command1.Enabled = True
    Command2.Enabled = True
Else
    Text1.Enabled = False
    Text2.Enabled = False
    Command1.Enabled = False
    Command2.Enabled = False
   ' GROS probleme système!
   MsgBox "Windows Sockets for 32 bit Windows ne répond pas.", vbCritical
End If
fic = 2
End Sub

Private Sub Form_Unload(Cancel As Integer)
st = 1
fic = 0
Unload Me
End Sub

Private Sub Text1_Change()
Command3.Enabled = True
Command4.Enabled = True
End Sub
Télécharger le projet

Codes Sources

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 (raef1234)