Adresse IP dans un fichier texte

Version imprimable

23/06/2014, 23h26
anaganon

Adresse IP dans un fichier texte

Bonsoir,

je débute dans le domaine et je cherche un script au format VBS qui me permet d'inscrire dans un fichier texte (.txt) l'adresse IP. A présent je n'ai trouvé aucune aide adaptée à ma situation, c'est pour cela que je me tourne vers votre communauté.

Je tiens à vous remercier d'avance pour votre aide,
Cordialement.

IP-MAC.vbs

:salut:
Testez ce Vbscript IP-MAC.vbs

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
Dim MyFile,MaCommande,MaCommande1,MaCommande2,MaCommande3
MyFile = "IP-MAC.txt"
MaCommande = "if exist "& MyFile &" (del "& MyFile &")"
MaCommande1 = "Arp -a > Tmpout.txt"
MaCommande2 = "Cmd /U /C Type Tmpout.txt > "& MyFile &" & Del Tmpout.txt"
MaCommande3 = "Start "& MyFile &""
Call Executer(MaCommande,0,True)
Call Executer(MaCommande1,0,True)
Call Executer(MaCommande2,0,True)
Call Executer(MaCommande3,0,False)
'**************************************************************************************************************
Function Executer(StrCmd,Console,bWaitOnReturn)
   Dim ws,MyCmd,Resultat
   Set ws = CreateObject("wscript.Shell")
'La valeur 0 pour cacher la console MS-DOS
   If Console = 0 Then
      MyCmd = "CMD /C " & StrCmd & ""
      Resultat = ws.run(MyCmd,Console,bWaitOnReturn)
      If Resultat = 0 Then
      Else
         MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
      End If
   End If
'La valeur 1 pour montrer la console MS-DOS
   If Console = 1 Then
      MyCmd = "CMD /K " & StrCmd & ""
      Resultat = ws.run(MyCmd,Console,bWaitOnReturn)
      If Resultat = 0 Then
      Else
         MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
      End If
   End If
   Executer = Resultat
End Function
'***********************************************************************************************************

Scan for IP and MAC Adress on LAN by Hackoo

:salut:
Vous pouvez essayer ce script batch ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
@echo off
Title Scan for IP and MAC Adress on LAN by Hackoo
mode con cols=60 lines=20
Color A
set ip=192.168.12.1
set debut=1
set fin=5
if exist ping.txt  (del  ping.txt)
if exist ping2.txt (del  ping2.txt)
if exist ping3.txt (del  ping3.txt)
if exist ping4.txt (del  ping4.txt)
for /L %%i in (%debut%,1,%fin%) do (echo Recherche de la machine : %ip:~0,9%.%%i
	for /f "tokens=5 delims= " %%f in ('ping -4 -n 1 %ip:~0,9%.%%i ^|find /i "32"') do (echo %%f >> ping.txt
	)
		for /f "tokens=1 delims= " %%k in ('Type ping.txt ^|findstr /i "19"') do echo %%k > ping2.txt
			for /f %%l in (ping2.txt) do (arp -a %%l >> ping3.txt
		)
			)
Cmd /U /C Type ping3.txt > ping4.txt
Del ping.txt
Del ping2.txt
Del ping3.txt
Start ping4.txt