Discussion :

[anaganon]

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.

[hackoofr]

Testez ce Vbscript IP-MAC.vbs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
'***********************************************************************************************************

[hackoofr]

Vous pouvez essayer ce script batch

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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