Discussion :

[thomas1230]

bon jsuis nul en ligne de commande :

j'aimerais pouvoir mettre mon ip dans un fichier texte

donc en gros j'ai déjà fait :

Code :

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

ipconfig | find "Adresse IP"

mais ensuite faudrait récupérer que là ou commence un chiffre pour avoir que l'ip.
et après écrire ça dans un fichier

donc comment faire ?

[xufux]

pour afficher le resultat d'une commande quelconque ailleurs que dans la console (dans un fichier par exemple)
il faut utiliser la redirection de la sortie standard:

Code :

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

macommande > monfichier

exemple:
ipconfig | find IP > monIp.txt

[Sub0]

Salut!

Lorsqu'on est développeur, ce genre de chose demande 10 secondes...
Par exemple: http://www.developpez.net/forums/viewtopic.php?t=168893
Tu peux télécharger Delphi si tu crois en avoir besoin par la suite, ou bien je te propose de te compiler vite fait l'utilitaire... Comme tu veux...
Profites-en pour détailler ce que tu recherches exactement, si tu veux mettre directement l'ip dans le clipboard par exemple...

[Laurent Dardenne]

salut essaie ceci

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
@echo off
ipconfig|Find /I "Adresse IP">tampon.txt
For /f "tokens=1,2 delims=:" %%I in (Tampon.txt) do echo %%J>Result.txt

Type result.txt

 rem Utilise Edlin pour supprimer les espaces en début d'adresse IP
 rem 1r = supprime les espaces ! Attention espace en fin de ligne
 rem e= quitte et sauvegarde les modifs
(Echo 1r 
 Echo e)>EdLincmd.txt

  rem Attention Edlin reçoit un nom de fichier court.
Edlin result.txt<EdLincmd.txt>nul

type result.txt

A+

[thomas1230]

Sub0, je me doute bien que quelqu'un qui connait bien un langage (ou le shell windows) peut developper un truc facile en très peu de temps.

Mon problème c'est que le shell, je me mets une note de 1/20 car même avec le code de Laurent (au passge merci) j'arrive pas à faire ce que je veux

bref un bon boulet...


en fait, je voudrais tout simplement mettre l'ip dans un fichier pour que je puisse hoster sur worms !!! (si si !) il faut modifier une clef de la base de registre avec son ip actuel. J'avais donc pensé générer un .bat qui dit de modifier ça :

Code :

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

1
2
3
[HKEY_CURRENT_USER\Software\Team17SoftwareLTD\WormsWorldParty\\NetSettings]
"AddressOverride"=dword:00000001
"LocalAddress"="l'ip calculé !!!"

pi faire un programme en c par exemple, c'est beaucoup de bruit pour pas grand chose sachant en plus qu'il faut récupérer aussi l'ip !

donc voilà si quelqu'un peut m'aider ne serait ce qu'avec une fac de shell

[Sub0]

ben comme je te l'ai dis, je peux faire un petit éxé qui chargera dans la base de registre ton ip...
C'est toi qui voit si tu veux te casser la tête ou pas. Tiens moi au courant.
Autrement, lance un fichier REG dans le fichier BAT pour mettre à jour une valeur de la bdr...

[thomas1230]

ben comme je te l'ai dis, je peux faire un petit éxé qui chargera dans la base de registre ton ip...

je veux bien oui

Tu peux télécharger Delphi si tu crois en avoir besoin par la suite, ou bien je te propose de te compiler vite fait l'utilitaire... Comme tu veux...

je comprend mieux cete phrase maintenant... bah le mieux c'est que tu me file l'exe et le code source comme ça je regarderais à quoi ressemble le delphi

[Laurent Dardenne]

salut,
juste pour le fun

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
@echo off
 rem recherche et extrait la ligne contenant Adresse IP
ipconfig|Find /I "Adresse IP">Tampon.txt

 rem parse la ligne Adresse IP .... : 1.2.3.4
For /F "tokens=1,2 delims=:" %%I in (Tampon.txt) do echo %%J>Result.txt

 rem Utilise Edlin pour supprimer les espaces en début d'adresse IP
 rem 1r = remplace les espaces. Attention espace en fin de ligne
 rem e= quitte et sauvegarde les modifs
(Echo 1r 
 Echo e)>EdLincmd.txt

  rem Attention Edlin reçoit un nom de fichier court.
Edlin Result.txt<EdLincmd.txt>nul

 rem récupére la premiére ligne et place son contenu dans la variable d'environnement MyIP
 rem puis force l'arrêt de l'instruction For car la seconde ligne est le caractére de fin de fichier , chr&#40;26 &#41; 
For /F "tokens=*" %%I in &#40;Result.txt&#41; do Set MyIP=%%I& Goto suite

&#58;Suite
 rem crée un fichier de registry 
Echo Windows Registry Editor Version 5.00 >chgIP.reg
 rem un retour chariot
Echo.>>chgIP.reg
Echo &#91;HKEY_CURRENT_USER\Software\Team17SoftwareLTD\WormsWorldParty\NetSettings&#93; >>chgIP.reg
 rem construit la clé à modifier avec la valeur contenue dans la variable d'environnement MyIP
Echo "LocalAddress"="%MyIP%">>chgIP.reg

 rem Insére le fichier créé dans la bdr en mode silencieux
Regedit /S ChgIP.REG

On ne peut pas tout faire avec les scripts NT mais avec un peu de pratique ils offrent pas mal de services.
Et on n'a pas tjrs un compilo sous la main .
A+

[Sub0]

Exact! Cette forme de programmation est tout à fait respectable!
Les possibilités sont très nombreuses tout de même...

Pour créer ce programme, je possède le code pour obtenir l'ip de la machine... ou bien je peux éxécuter ipconfig, et récupérer l'ip pour l'écrire direct dans le registre... Au niveau de la base de registre, Delphi intègre une unité de gestion, il suffit de lui fournir le chemin que l'on veut lire ou écrire. En attendant que je compile tout ça, et que je teste le bon fonctionnement, tu peux lire ces sujets qui te mettront dans le bain...

Obtenir l'ip avec Delphi
Capturer une commande DOS
Lire une clé de registre
Pour écrire, c'est pratiquement pareil...

[thomas1230]

merci Laurent

jvé encore faire le boulet : j'arrive pas à supprimer les fichiers temporaires. Il doit falloir les fermer avant de les supprimer. c'est comment ?


sub0, merci d'essayer. pê avec le code pour obtenir l'ip car la ligne "adresse ip" de ipconfig donne pas la bonne adresse quand on a un routeur... il faut l'ip vu par un site internet quand on surf qui n'est pas la même dans ce cas...

[Laurent Dardenne]

j'arrive pas à supprimer les fichiers temporaires. Il doit falloir les fermer avant de les supprimer. c'est comment ?

Tu peux préciser ?

[thomas1230]

j'arrive pas à supprimer les fichiers temporaires. Il doit falloir les fermer avant de les supprimer. c'est comment ?

Tu peux préciser ?

au temps pour moi

Code :

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

1
2
3
4
del chgIP.reg
del Tampon.txt
del RESULT.TXT
del RESULT.BAK

fonctionnent ! c'est bizarre avec ton précédent code ça amrchait aps et du coup voyant pas de changement notable, j'ai aps retester (la boulette...)

[Sub0]

Voilà ton programme compilé.
http://site.voila.fr/subut/data2/RegIP.zip (199ko)

Voici le contenu du fichier DPR (code source)...

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
58
59
60
61
62
63
64
65
{$V+,B+,X+,T+,P+,H+,J+}
PROGRAM RegIP;
USES Windows,SysUtils,Dialogs,Forms,WinSock,Registry;


{----------------------------------------------------------------}
{ GET MACHINE NAME FUNCTION                                      }
{----------------------------------------------------------------}
FUNCTION GetPCName:String;
VAR Buffer:Array[0..255]of char;
    BufferSize:DWORD;
BEGIN 
 Result:='';
 TRY
  BufferSize:=sizeOf(Buffer);
  GetComputerName(pchar(@Buffer),BufferSize);
  Result:=Buffer;
 EXCEPT END;
END;

{----------------------------------------------------------------}
{ GET IP FUNCTION                                                }
{----------------------------------------------------------------}
FUNCTION GetIP:String;
VAR WSAData:TWSAData;
    Phe:PHostEnt;
BEGIN
 Result:='';
 TRY
  WSAStartup(2,WSAData);
  Phe:=GetHostByName(PChar(GetPCName));
  WITH Phe^ DO Result:=Format('%d.%d.%d.%d',[
   Byte(h_addr^[0]),Byte(h_addr^[1]),
   Byte(h_addr^[2]),Byte(h_addr^[3])]);
 EXCEPT END;
 WSACleanup;
END;

{----------------------------------------------------------------}
{ WRITE IN REGISTER BASE                                         }
{----------------------------------------------------------------}
FUNCTION WriteReg:Boolean;
CONST cle:string='\Software\Team17SoftwareLTD\WormsWorldParty\\NetSettings';
VAR Reg:TRegistry;
BEGIN
 Result:=False;
 TRY Reg:=TRegistry.Create;
  TRY Reg.RootKey:=HKEY_CURRENT_USER;
    IF(Reg.OpenKey(cle,True))THEN BEGIN
      Reg.WriteInteger('AddressOverride',1);
      Reg.WriteString('LocalAddress',GetIP);END;
  FINALLY Reg.CloseKey;Reg.Free;END;
  Result:=True;
 EXCEPT END;
END;


{----------------------------------------------------------------}
{ MAIN                                                           }
{----------------------------------------------------------------}
BEGIN
 IF NOT(WriteReg)THEN
  ShowMessage('Erreur: L''écriture du registre n''a pas s''effectuer!')ELSE
  IF(Paramcount=0)THEN ShowMessage('IP écrite dans le registre ('+GetIP+')');
END.

Si tu veux éviter l'affichage de la fenêtre de message, il suffit d'ajouter un paramètre au prog...
Par exemple: "RegIP.exe ok".
Maintenant, tu peux éviter l'affichage de toutes les fenêtres avec ce qui suit:
http://site.voila.fr/subut/gobat.zip (188 ko)

Ce programme lance le fichier go.bat sans afficher aucune fenêtre...
Voici la source Delphi

Code :

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

1
2
3
4
5
PROGRAM gobat;
USES Forms,ShellApi;
BEGIN
 ShellExecute(Application.Handle,NIL,'go.bat','','',0);
END.

Peut-être que ça donnera envie de vous essayer à Delphi...
Télécharger Delphi en version gratuite!

Autrement, si tu as besoin de le modifier, tu peux me demander, à+

[thomas1230]

bon jvé mettre le résolu car c'est quasi bon

jvé essayer de me mettre un peu à delphi (j'ai le temps jsuis comme 55.000 informaticiens : au chomage)

l'ip que j'obtiens avec le programme delphi est pas la bonne. j'obtiens la ligne autoconfiguration d'adresse ip par le ipconfig et pas mon adresse ip. c'est pê mon pc qui est mal configuré ?

c'est compliqué on dirait ces histoire d'adresse ip...

[Sub0]

oué, je vois le problème, mais je ne sais pas comment le réoudre pour le moment...
Comment sais-tu que ce n'est pas la bonne IP?
Quelle est la configuration de ton réseau? (adsl, routeur, hub, proxy, etc).
Je vais voir si je trouve quelques infos sur ce problème...

[Sub0]

J'ai trouvé le code pour lister toutes les IP d'un pc...

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
USES SysUtils,WinSock,... ; 
.... 
PROCEDURE GetIPList(ToList:TStrings); 
TYPE TaPInAddr=Array[0..255]of PInAddr; 
     PaPInAddr=^TaPInAddr; 
VAR  pptr:PaPInAddr; 
     WSAData:TWSAData;
     HostEnt:PHostEnt; 
     I:Integer; 
     Name:String; 
 
BEGIN I:=0;
 WSAStartup(2,WSAData); 
 SetLength(Name,255); 
 Gethostname(PChar(Name),255); 
 SetLength(Name,StrLen(PChar(Name))); 
 HostEnt:=GetHostByName(PChar(Name)); 
 IF&#40;HostEnt<>NIL&#41;THEN BEGIN 
  pptr&#58;=PaPInAddr&#40;HostEnt^.h_addr_list&#41;; 
  WHILE&#40;pptr^&#91;I&#93;<>NIL&#41;DO BEGIN 
    ToList.Add&#40;StrPas&#40;inet_ntoa&#40;pptr^&#91;I&#93;^&#41;&#41;&#41;; 
    I&#58;=I+1; 
  END; 
 END; 
 WSACleanup; 
END;

Si tu veux tester de suite cette fonction, j'ai fait un programme:
http://site.voila.fr/subut/data2/ListIP.zip (198 ko)

Combien d'IP a-t-il trouvé? Quelle est celle que tu voudrais utiliser?

[Sub0]

Obtenir la liste des IP, mais avec une autre méthode, au cas où...
http://site.voila.fr/subut/data2/ListIP2.zip (196 ko)

Normalement, tu ne trouves qu'une seule IP avec ton nom de pc:
http://delphi.about.com/library/weekly/aa103100a.htm
http://site.voila.fr/subut/data2/GetIP.zip (204 ko)

Si tu peux me dire si les programmes ont bien fonctionné... à+

[thomas1230]

merci pour ton aide

donc pour résumer

getip ne donne pas la bonne ip
Listip donne 2 ip dont la 2nd est la bonne (la 1ere est celle de getip)
Listip2 donne une ip qui est la bonne (dans mon cas*)

* : je dis dans mon cas car je suis connecté direct à internet par un modem usb adsl et d'après ce qu'on m'a dit, si quelqu'est est conecté par un routeur, ce n'est pas la bonne ip (il faut l'ip du routeur si j'ai bien compris)

donc est-ce possible ? en gros l'ip du routeur si j'ai bien compris, c'est l'ip qui est vu par qqun d'extérieur. c'est la même ip quel que soit le pc du reseau local (j'ai bon c'est ça ?)

[thomas1230]

j'arrive pas à supprimer les fichiers temporaires. Il doit falloir les fermer avant de les supprimer. c'est comment ?

Tu peux préciser ?

au temps pour moi

Code :

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

1
2
3
4
del chgIP.reg
del Tampon.txt
del RESULT.TXT
del RESULT.BAK

fonctionnent ! c'est bizarre avec ton précédent code ça amrchait aps et du coup voyant pas de changement notable, j'ai aps retester (la boulette...)

en fait pour revenir à se script en ligne de commande, y'a bien un fichier que je n'arrive pas à supprimer car il me dit qu'un processus a déjà la main dessus : EdLincmd.txt

[Laurent Dardenne]

Le pb :
le handle du fichier de redirection n'est pas libéré.

Pour corriger exécuter avec :
Start /wait CMD /C MonFichier.cmd

un petit bug de XP ou d'Edlin ?