Remonter des adresses IP

Version imprimable

08/10/2013, 11h13
mavric35830

Remonter des adresses IP
Bonjour à tous,

Je suis a la recherche d'un batch qui me mettrais de mettre à jour BGINFO pour seulement avoir mon adresse IP ainsi que l'adresse IP VPN quand je doit me connecter à mon entreprise à distance.
J'ai déjà fait un petit script mais cela ne me remonte pas se que je veux
voici se que j'ai déja écris
Code:

1 2 3 4 setlocal for /f "delims=: tokens=1-2" %%c in ('ipconfig /all ^| find "IPv4"') do set GetIP=%%d endlocal & set GetIP=%GetIP:~1% echo %GetIP% > "IP.txt"

Salut,

Tu peux utiliser un script mixte [BAT/VBS] qui va récuperer ton IP externe directement sur un site spécialisé :

Code écrit par mon ami Delmar Grande.

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
@echo off
mode con:cols=90 lines=12
::Script criado no masbat v2.0
::Autor Delmar Grande
::fórum DBatchScript  http://dbatchscript.forumeiros.com/
::Data  Qua 3 Jul 2013
title -==*==- ip da rede externa -==*==-
(
echo Dim objHttp,sText
echo     Set objHttp = CreateObject("Msxml2.ServerXMLHTTP"^)
echo     objHttp.Open "GET", "http://www.whatsmyip.us/showipsimple.php", False
echo.
echo     objHttp.Send
echo     sText = objHttp.ResponseText
echo     path = sText
echo     posA = InStrRev(path, "document.write("^)+16
echo     posB = InStrRev(path, ");"^)-1
echo     WScript.Echo Mid(path, posA, posB - posA^)
echo     Set objHttp = Nothing
)>"%tmp%\IpExterno.vbs"
::inicio
echo.
echo Iniciando Aguarde...
for /f "tokens=* delims=*" %%a in ('Cscript "%tmp%\IpExterno.vbs" //nologo') do (set "a=%%a")
cls
echo Votre IP externe est : "%a%"
Del "%tmp%\IpExterno.vbs"
::fim
pause>nul

:ccool:

09/10/2013, 09h30
mavric35830

Effectivement récupérer l'adresse du net est pas mal mais cela ne me donne pas les adresse IP de mes cartes réseau.
09/10/2013, 12h31
sachadee
Ça tu dois pouvoir les récuperer avec un :
Code:

1 2 Ipconfig /all
comme dans ton premier exemple.
10/10/2013, 08h30
mavric35830

Effectivement c'est bien dans l'Ipconfig /all sauf que quand je lance le script de mon premier exemple, il ne me remonte que la dernière adresse rechercher.
10/10/2013, 12h38
sachadee

Procède de la même manière, avec un find sur chaque élément dont tu veux récuperer la valeur.

Envoie un un exemple de la sortie de IPconfig et des valeurs que tu veux récuperer.

:salut:
Copier et coller ce code dans votre notepad et enregistrer-le sous le nom : MonIpConfig.bat avec Unicode et non pas ANSI sinon le script ne marche pas :mouarf:

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
@echo off
echo Set fso=createobject(^"Scripting.FileSystemObject^") > outip.vbs
echo Set Fichier = fso.OpenTextFile(^"out.txt^",1) >> outip.vbs
echo Ip_Publique() >> outip.vbs
echo MsgBox Formater(^"out.txt^"),64,^"Adresse IP^"  >> outip.vbs

echo Function Formater(LogFile) >> outip.vbs
echo	Dim fso,fRead,fWrite,Text >> outip.vbs
echo	Set fso = CreateObject(^"Scripting.FileSystemObject^") >> outip.vbs
echo	Set fRead = fso.OpenTextFile(LogFile,1) >> outip.vbs
echo	Text = fRead.ReadAll >> outip.vbs
echo	fRead.Close >> outip.vbs
echo	Set fWrite = fso.OpenTextFile(LogFile,2,True) >> outip.vbs
echo	Text = Replace(Text,^"‚^",^"é^") >> outip.vbs
echo	Text = Replace(Text,^"ÿ^",^" ^") >> outip.vbs
echo	Text = Replace(Text,^"ˆ^",^"ê^") >> outip.vbs
echo	Text = Replace(Text,^"‡^",^"ç^") >> outip.vbs
echo	Text = Replace(Text,^"“^",^"ô^") >> outip.vbs
echo	Text = Replace(Text,^"…^",^"à^") >> outip.vbs
echo	Text = Replace(Text,^"Š^",^"è^") >> outip.vbs
echo	Text = Replace(Text,^"ƒ^",^"â^") >> outip.vbs
echo	Text = Replace(Text,^"?^",^" ^") >> outip.vbs
echo	fWrite.WriteLine Text >> outip.vbs
echo	Formater = Text >> outip.vbs
echo End Function >> outip.vbs

echo Sub Ip_Publique >> outip.vbs
echo Dim Titre,URL,ie,objFSO,Data,OutPut,objRegex,Match,Matches >> outip.vbs
echo Titre = ^"Adresse Ip Publique !^" >> outip.vbs
echo URL = ^"http://monip.org^" >> outip.vbs
echo Set ie = CreateObject(^"InternetExplorer.Application^") >> outip.vbs
echo Set objFSO = CreateObject(^"Scripting.FileSystemObject^")  >> outip.vbs
echo ie.Navigate (URL) >> outip.vbs
echo ie.Visible=false >> outip.vbs
echo DO WHILE ie.busy >> outip.vbs
echo wscript.sleep 100 >> outip.vbs
echo LOOP >> outip.vbs
echo Data = ie.document.documentElement.innertext >> outip.vbs
echo Set OutPut = objfso.OpenTextFile(^"out.txt^",8,True,-2) >> outip.vbs
echo ie.Quit >> outip.vbs
echo Set ie = Nothing >> outip.vbs
echo Set objRegex = new RegExp  >> outip.vbs
echo objRegex.Pattern = ^"\b([0-9]{1,3}\.){3}[0-9]{1,3}\b^" >> outip.vbs
echo objRegex.Global = False >> outip.vbs
echo objRegex.IgnoreCase = True >> outip.vbs
echo Set Matches = objRegex.Execute(Data) >> outip.vbs
echo For Each Match in Matches >> outip.vbs 
echo MsgBox ^"Mon IP Publique est : ^" ^& vbCrLF ^& Match.Value ,64,Titre >> outip.vbs
echo OutPut.WriteLine string(40,^"-^") ^& vbcrLF ^&^"  Nous sommes le ^"^& Now ^& vbcrLF ^& string(40,^"-^") ^& vbcrLF ^& ^"  Mon IP Publique est : ^"^& Match.Value ^& vbcrLF ^& string(40,^"*^") >> outip.vbs
echo Next >> outip.vbs
echo End Sub >> outip.vbs
arp -a > out.txt
echo *******************************************************>> out.txt
ipconfig /all >> out.txt
echo. >> out.txt
call outip.vbs
Start out.txt

10/10/2013, 13h51
mavric35830

Salut hackoofr et merci

J'aurais une petite précision à faire, il faut bien enregistrer en ANSI et non en enicode.

Toutefois, enfin si je peux me permettre, je ne suis pas intéresser par mon adresse public. Les seules que je souhaite, c'est pouvoir récupéré mon adresse IP privé (genre 192.168.1.55) ainsi que mon adresse IP VPN une fois connecter dessus.

et donc quand je lance BGINFO, il me donne toute les adresse IP privés de toute les carte réseaux active ou non d’ailleurs.

Moi se que je souhaiterais avoir c'est seulement l'adresse IP privé de ma carte réseau active et l'adresse IP de mon VPN.

Bon bien sur si il y a aussi le masque, la passerelle, le serveur sur lequel je suis connecter se serais un plus mais bon sa encore je peux me débrouiller.

Donc pour résumé voici le résultat que j'aimerais avoir dans BGINFO

Hostname: Mon-PC

Adresse IP: 192.168.1.55
10.10.10.1

Masque: 255.255.0.0
255.255.255.255

passerelle: 192.168.1.1

Serveur AD: MonServeurActiveDirectory

Je t'ai fait un petit exemple de récuperation avec Wmic.
tu peux regarder dans le fichier "Reseau.txt" si il y a s'autres info pertinente pour toi et les récuperer de la même manière.
Code:

1 2 3 4 5 6 7 8 9 10 11 @echo off wmic nicconfig where ipenabled=true list full >reseau.txt for /f "delims=" %%a in ('type reseau.txt ^| find /i "DHCPServer"') do (set %%a) for /f "delims=" %%a in ('type reseau.txt ^| find /i "IPAddress"') do (set %%a) for /f "delims=" %%a in ('type reseau.txt ^| find /i "IPSubnet"') do (set %%a) echo DHCP SERVER : %dhcpServer% echo IPAdress : %IPAddress:~2,13% echo IPsubnet : %ipsubnet:~1,-6%
Que tu peux ensuite simplifier en une petite routine :
Code:

1 2 3 4 5 6 7 8 9 10 11 @echo off wmic nicconfig where ipenabled=true list full >reseau.txt for %%a in ("Dhcpserver" "Ipaddress" "IPsubnet" "MacAddress") do ( for /f "delims=" %%b in ('type reseau.txt ^| find /i %%a') do (set %%b)) echo DHCP SERVER : %dhcpServer% echo IPAdress : %IPAddress:~2,13% echo IPsubnet : %ipsubnet:~1,-6% echo MacAddress : %Macaddress%
de la même manière tu peux récupèrer des infos sur tes adaptateurs réseau avec la commande :

Code:

wmic nic list full

que tu pourrais redirectionner à la suite du "Reseau.txt" existant et faire un traitement complet de tes éléments réseau.

:ccool:

11/10/2013, 14h50
mavric35830

Salut et merci pour les 2 scripts.

Si je comprend bien le premier script la ligne

Citation:

for /f "delims=" %%a in ('type reseau.txt ^| find /i "DHCPServer"') do (set %%a)

veux dire:

tu va recherche dans le fichier reseau.txt le mot DHCPServer et tu rajoute en variable le résultat

donc si je fait une petite modification et je met sa

Citation:

for /f "delims=" %%a in ('type reseau.txt ^| find /i "Description" ^| find /i "Intel" ^|find /i "DHCPServer"') do (set %%a)

il devrait normalement faire

maintenant je ne suis pas sur que mon code soit correct mais je tester

rechercher dans le fichier reseau.txt le mot Description puis Intel et enfin DHCPServer, tu prend le résultat de cette recherche dans une variable

Pour le "Find" en cascade ça ne va pas fonctionner dans un "FOR".

Apparemment tu as plusieurs adaptateur reseau et tu veux recuperer les élement individuellement pour chaque adapteur.

Dans ce cas il faut s'orienter sur un traitement ligne par ligne avec des tests pour récuperer le bon élement :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 @echo off wmic nicconfig where ipenabled=true list full >reseau.txt SetLocal EnableDelayedExpansion ::: Ici la marque de la carte a rechercher : set $Cherche="Realtek" ::::: set $switch=0 for /f "delims=" %%a in ('type reseau.txt') do (echo %%a | find /i "description" && echo "%%a" | find /i %$cherche% && set "$switch=1" && set %%a if !$switch! equ 1 echo %%a | find /i "DHCPServer" && set %%a && set $switch=0) cls echo Carte Reseau : %Description% echo DhCPServer : %dhcpserver% endlocal
:ccool:

Merci à tous le monde pour votre aide.

Avec tous les exemple je vais pouvoir tous compilé et faire un joli script pour que je puisse récupérer les informations demander.

et donc pour ceux que cela intéresse je vous met le script que j'ai compiler

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
37
38
39
40
41
42
43
44
45
46
47
48
49
@echo off
wmic nicconfig where ipenabled=true list full >reseau.txt
SetLocal EnableDelayedExpansion

::: Ici la marque de la carte a rechercher :

set $Cherche="Intel"

:::::

set $switch=0
for /f "delims=" %%a in ('type reseau.txt') do (echo %%a | find /i "description" && echo "%%a" | find /i %$cherche% && set "$switch=1" && set %%a
                                                if !$switch! equ 1 echo %%a | find /i "DHCPServer" && set %%a && set $switch=0)

for /f "delims=" %%a in ('type reseau.txt') do (echo %%a | find /i "Description" && echo "%%a" | find /i %$cherche% && set "$switch=1" && set %%a
                                                if !$switch! equ 1 echo %%a | find /i "IPAddress" && set %%a && set $switch=0)                                                

for /f "delims=" %%a in ('type reseau.txt') do (echo %%a | find /i "Description" && echo "%%a" | find /i %$cherche% && set "$switch=1" && set %%a
                                                if !$switch! equ 1 echo %%a | find /i "IPSubnet" && set %%a && set $switch=0)

for /f "delims=" %%a in ('type reseau.txt') do (echo %%a | find /i "Description" && echo "%%a" | find /i %$cherche% && set "$switch=1" && set %%a
                                                if !$switch! equ 1 echo %%a | find /i "MACAddress" && set %%a && set $switch=0)
                                                
echo Carte Reseau     : %Description% >rso.txt
echo IPAddress        : %IPAddress:~2,12%>>rso.txt
echo IPSubnet         : %IPSubnet:~2,-19%>>rso.txt
echo MACAddress       : %MACAddress%>>rso.txt
echo DhCPServer       : %dhcpserver%  >>rso.txt

set $Cherche2="Shrew"
set $switch=0
for /f "delims=" %%a in ('type reseau.txt') do (echo %%a | find /i "Shrew" && echo "%%a" | find /i %$cherche2% && set "$switch=1" && set %%a
                                                if !$switch! equ 1 echo %%a | find /i "DHCPServer" && set %%a && set $switch=0)

for /f "delims=" %%a in ('type reseau.txt') do (echo %%a | find /i "Shrew" && echo "%%a" | find /i %$cherche2% && set "$switch=1" && set %%a
                                                if !$switch! equ 1 echo %%a | find /i "IPAddress" && set %%a && set $switch=0)                                                

for /f "delims=" %%a in ('type reseau.txt') do (echo %%a | find /i "Shrew" && echo "%%a" | find /i %$cherche2% && set "$switch=1" && set %%a
                                                if !$switch! equ 1 echo %%a | find /i "IPSubnet" && set %%a && set $switch=0)

for /f "delims=" %%a in ('type reseau.txt') do (echo %%a | find /i "Shrew" && echo "%%a" | find /i %$cherche2% && set "$switch=1" && set %%a
                                                if !$switch! equ 1 echo %%a | find /i "MACAddress" && set %%a && set $switch=0)
 
echo Carte Reseau     : %Description%>>rso.txt
echo IPAddress        : %IPAddress:~2,14%>>rso.txt
echo IPSubnet         : %IPSubnet:~2,-8%>>rso.txt
echo MACAddress       : %MACAddress%>>rso.txt
echo DhCPServer       : %dhcpserver%>>rso.txt
endlocal

Encore mille merci à tous:ccool:

Je clos cette discution :mrgreen: :ccool: