Discussion :

[chardon54]

Bonjour,

j'aimerais savoir s'il est possible de créer un fichier batch (ou autre) me permettant d'afficher l'adresse ip local du poste.Plus précisément,voir le résultat apparaitre dans une fenêtre de type "windows" (et non pas un fichier txt)
message du style "l'adresse ip de votre carte ethernet est la 192.XXX..."
idem si l'utilisateur est connecté en wifi (ou les 2 IP s'il est connecté en wifi et ethernet)

Merci à tous

[hackoofr]

http://www.developpez.net/forums/d13...p/#post7214788

[chardon54]

ok merci
mais je pensais à un fichier batch moins compliqué juste pour afficher l'IP local:
du style:

@echo off
ipconfig /all
pause
exit

mais je n'arrive pas à faire afficher le résultat dans une fenêtre windows + classique (et non pas dans un fichier texte)

en tout cas merci

[hackoofr]

Copier et coller ce code écrit en Vbscript par exemple : IpConfig.vbs

Code vb :

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
Call IpConfig()
Call LireResultat()
 
Sub IpConfig()
	Set Ws = CreateObject("wscript.Shell")
	Command = "Cmd /c ipconfig /all > %tmp%\ipconfig.txt"
	Resultat = Ws.Run(Command,0,True)
End Sub
 
Sub LireResultat()
	Dim File,Fichier,tempFolder
	Set fso = createobject("Scripting.FileSystemObject")
	Set Ws = CreateObject("wscript.Shell")
	Set tempFolder = fso.GetSpecialFolder(2)
	File = tempFolder &"\ipconfig.txt"
	Set Fichier = fso.OpenTextFile(File,1)
	LireTout = Fichier.ReadAll
	MsgBox " Résultat de Ipconfig "&vbcr& LireTout,64,"Adresse IP"
End Sub

[Isnala]

Bonjour chardon54

je suis nouveau et tu peu dire merci a Hackoo, c'est lui qui est venu me chercher.

je ne viens pas en sauveur, mais t'apporter quelque astuce pour pouvoir faire ce que tu veus.

donc voici une solution pour avoir le resultat de IpConfig dans un fichier hta

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
@Title ipconfig HTA
@echo off
::CHCP 1252> nul
::
mode con cols=25 lines=1

set sortie=%~dp0ipconfig all.hta
cd.>"%sortie%"
(
echo.
echo.^<pre^>
echo.
IpConfig /all
echo.
echo.^</pre^>
echo.
)>>"%sortie%"
Start "" /W "%sortie%"
Del "%sortie%"
::pause
exit

explication:
pour ecrir un texte, pas de probleme, mais quand celui ci comptient des caractéres spéciaux comme les < ou >, il ai necessaire de les echappers avec le simbole ^

ici, c'est le resultat de la commande IpConfig /all encadré des balise html Pre si tu connais, tu sais que c'est pour le texte preformaté.

voilà, dans l'exemple,
la variable sortie est definit par set sortie=%Chemin%\%fichier%
le %~dp0 c'est le chemin de sortie (la racine du bat qui est lancé, donc le dossier actif où est ton bat. il se termine par un \ donc entre le chemin et le nom de ton fichier, tu n'en rajoute pas.)
le fichier hta est créé vide avec la commande cd.>"%sortie%"
la premiere accolade ouvre ton fichier de sortie,
echo. pour une ligne vide (retour chariot)
la balise pre html
ta commande IpConfig /all
on ferme la balise pre
deuxieme accolade pour fermer et le resltat, dirigé vers sortie.

un start pour ouvrir le hta avec le commutateur /w tant que la fenetre hta n'ai pas fermé, le batch est en pause,
quand tu ferme le fichier.hta, le batch reprend où il en était, et efface le hta precedement créé avec la commande Del.

et il quitte

si tu ne sais pas decouper une variable en batch, et qu'il te faut vraiment que l'Ip, demande et j'essairais de t'aider.



@+

[sachadee]

Bienvenue Isna !

+1 pour te motivé

Et voici une petite solution toute simple dont tu peux également t'inspirer :
Apparement problématique pour XP (selon Hackoo )
Et dépendante du langage du windows ici pour un windows en français.

Code :

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

1
2
3
4
5
6
7
8
9
10
:::Par Sachadee 01-06-2013

@echo off

ipconfig | find "Adresse IPv4" > out.txt
set /p $val=<out.txt
set $val=%$val:. =%
echo msgbox "%$val%">ip.vbs
call ip.vbs&del ip.vbs

Ou une autre version avec arp -a ou ipconfig
(Seulement testé sous Vista et 7)

En fait j'ai fait une petite fonction qui récupère un fichier texte et l'affiche en
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
@echo off

 setlocal enabledelayedexpansion enableextensions
set $liste=
arp -a >out.txt
::::Peut être remplacer par n'importe quel fonction
rem ipconfig >out.txt
for /f "skip=1 delims=" %%a in (out.txt) do (set $liste=!$liste! "%%a" # vbcr # )
set $liste=!$liste:~1,-10!
set $liste=!$liste:#=^&!
set $liste=!$liste:‚=e!
set $liste=!$liste:ÿ=!
echo MsgBox !$liste!>ip.vbs
call ip.vbs

Amicalement

[hackoofr]

et Bienvenue Isnala sur DVP et un +1 de ma part aussi pour bien démarrer en beauté
pour les explications

[hackoofr]

Sacha
Ce code aussi est à tester

Code :

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

1
2
3
4
5
6
7
8
9
@echo off
arp -a >out.txt
echo set fso=createobject(^"Scripting.FileSystemObject^") > ip.vbs
echo Set Fichier = fso.OpenTextFile(^"out.txt^",1) >> ip.vbs
echo LireTout = Fichier.ReadAll >> ip.vbs
echo LireTout = Replace(LireTout,"ÿ"," ") >> ip.vbs
echo LireTout = Replace(LireTout,"‚","é") >> ip.vbs
echo MsgBox LireTout,64,"Adresse IP" >> ip.vbs
call ip.vbs