Scan ip réseau local sous winxp
Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 581 fois - Téléchargée 36 fois
Contenu du snippet
Ce code permet de scanner les ip d'un réseau local. Il met le résultat dans deux fixhiers. Le premier fichier (valide.txt) est utilisé pour stocké les ip qui ne sont pas encore utilisées. Le second fichier stocke les ip dèja utilisées sur le réseau local. La partie de base de se programme a été trouvée dans le forum de se site, elle n'est pas de moi.
voila ++ et enjoy yourself :-)
Source / Exemple :
Dim AdIP As String
Dim i As Integer
Dim nb As Integer
i% = 1
Open "c:\ip_valide.txt" For Output As #1
Open "c:\ip_non_valide.txt" For Output As #2
nb = 0
While i% <> 253
i% = i% + 1
AdIP$ = "192.168.1." & i%
'**************************
'Open "c:\windows\protect.org" For Output As #NumFich
Dim Commande As String
Dim Resultat As Long
Dim Ad_a_tester As String
Dim Handle As Long
Dim Fichier As String
Dim Ligne As String
Dim EstOK As Boolean
Dim t As Long
EstOK = True
Fichier = App.Path & "\" & AdIP$
Ad_a_tester = AdIP
Commande = "c:\windows\system32\cmd.exe /cping " & Ad_a_tester & " -n 1 >" & Fichier 'fait un ping d'une trame sur le réseau a l'@ ad_a_tester
Resultat = Shell(Commande, vbMinimizedNoFocus)
t = Timer
Do
If Timer - t > 5 Then Exit Do
DoEvents
Loop
Do
DoEvents
Err = 0
On Error Resume Next
If FileLen(Fichier) <> 0 And Err = 0 Then Exit Do
Loop
EstOK = True
Handle = FreeFile
Open Fichier For Input As #Handle
While Not EOF(Handle)
Input #Handle, Ligne
If InStr(Ligne, "d'attente de la demande") <> 0 Or InStr(Ligne, "Impossible de joindre") <> 0 Then
EstOK = False
GoTo sort_bouc
End If
If InStr(Ligne, "ponse de") <> 0 Or InStr(Ligne, "Statistiques Ping") <> 0 Then
EstOK = True
End If
Wend
sort_bouc:
Close #Handle
Kill Fichier
If EstOK = True Then
' mettre l'ip dans un fichier nommé no valide
nb% = nb% + 1
Print #2, AdIP$
Else
' mettre l'ip dans un fichier nommé valide
Print #1, AdIP$
End If
On Error Resume Next
ProgressBar1.Value = Int((100 * i) / 253)
'****************************
Label1.Caption = " ~~ Traitement en cours ... ~~ Nombre de pc trouvés : " & nb%
Wend
Label1.Caption = "Vous pouvez maintenant éditer les fichiers c:\ip_valide et c:\ip_non_valide. Nb pc trouvés : " & nb%
Conclusion :
voila ++ et enjoy yourself :-)
A voir également
- Net scan
- Net scan ip - Meilleures réponses
- Visual Basic / VB.NET : Ip finder réseau local - CodeS SourceS - Guide
- Variable de session et win xp / win 2000 en local - Codes sources - ASP / ASP.NET (Astuces)
- PHP : Scan de ftp en réseau local - CodeS SourceS - Guide
- Visual Basic / VB.NET : Scanner d'adresses ip dans un réseau local - CodeS SourceS - Guide
- Messagerie instantanée en xp et vista sur réseau local - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
25 août 2005 à 15:46
6 nov. 2004 à 18:53
2 mars 2004 à 12:51
quelqu'un a une idee?
9 juin 2003 à 13:44
9 juin 2003 à 13:43
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.