Discussion :

[mavric35830]

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 :

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

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"

[sachadee]

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 :

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
@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

[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.

[sachadee]

Ça tu dois pouvoir les récuperer avec un :

Code :

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

1
2
Ipconfig /all

comme dans ton premier exemple.

[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.

[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.

[hackoofr]

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

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