Newsgroup: it.comp.aiuto
Titolo: IP

Se possibile, vorrei lanciare il programma C:\Windows\System32\cmd.exe e poi 
dare il comando "ipconfig" tutto in una volta in un file .bat
Per vedere rapidamente l'IP che il router assegna in rete al mio pc. O 
magari se conoscete un programmino che lo fa.
Grazie per l'aiuto
 
-- Sprea
http://sprea.altervista.org
 
 

Sprea scriveva il 05/10/2012 :

Crea un file di testo con notepad, scrivi queste due righe:
 
ipconfig
pause
 
salva e rinomina il file .TXT in .BAT.
 
-- 
     Ciao
                    DOC
                    ~~~
God's in His Heaven.All's Right with the World.
                    ~~~
 
 

salva e rinomina il file .TXT in .BAT.
 
Grande sig. Doc : )  funziona , si potr� scoprire il IP usato per
internet? 
ciao : )

 ciao : )
 
Con ipconfig puoi identificare solo l'IP locale.
Se ti interessa l'IP pubblico potrai solo vederlo dal router oppure, 
più semplicemente, aprendo un sito come questo:
http://whatismyipaddress.com/
 


pause
 
Grazie mille
ï¿œ perfetto
 
 
 
 
 

[Skipped]
 
 > si potrà scoprire il IP usato per internet?
 
Con XP he uso il metodo sottoscritto.
Crei un file di testo sul Desktop che salverai alla fine
con un nome a piacere e con estensione .vbs
Nel file copi e incolli :
 
'INIZIO
Option Explicit
Dim http : Set http = CreateObject( "MSXML2.ServerXmlHttp" )
http.Open "GET", "
http://icanhazip.com
", False
http.Send
Wscript.Echo http.responseText   'or do whatever you want with it
Set http = Nothing
'url alternativo : 
http://automation.whatismyip.com/n09230945.asp
 
'FINE
 
Clikki e apparirà un messagebox col tuo IP.
 
Isaac
 

Isaac
 
questo � tosto : ) non riesco a farlo andare o mi d� errore o si apre
una finestra dos di una frazione di secondo : ) poi pi� nulla e
sbaglio qualcosa ma non so cosa : ) 
ciao 

 sbaglio qualcosa ma non so cosa : )
 
La procedura � semplice e non saprei cosaltro aggiungere.
Se non sbagli e XP � a posto non dovresti avere alcun
peoblema e ti dovrebbe apparire questo.
http://i46.tinypic.com/muj1x2.gif
 
 
Isaac
 

 Clikki e apparirą un messagebox col tuo IP.
 
rilancio:
 
#include <windows.h>
#include <wininet.h>
 
int WINAPI WinMain (HINSTANCE hThisInstance, HINSTANCE hPrevInstance,
                    LPSTR nCmdLine, int nCmdShow)
 
{
 
    HINTERNET hOpen, hOpenUrl;
    LONG Bytes;
    char sBuffer[15];
    LPSTR sUserAgent = "xxx's IP Viewer 1.0";
    LPSTR sURL = "
http://www.indirizzo-ip.com/ip.php
";
    // errori
    LPSTR sInetOpenErr = "Errore InternetOpen";
    LPSTR sInetOpenUrlErr = "Errore InternetOpenUrl";
    LPSTR sInetReadFileErr = "Errore InternetReadFile";
 
    hOpen = InternetOpen(sUserAgent, INTERNET_OPEN_TYPE_DIRECT, NULL, 
NULL, 0);
 
    if (! hOpen )
    {
        MessageBox(NULL, sInetOpenErr, "Errore", 16+262144);
        return 1;
    }
 
    hOpenUrl = InternetOpenUrl(hOpen, sURL, NULL, 0, 
INTERNET_FLAG_RELOAD, 0);
 
    if (! hOpenUrl )
    {
        InternetCloseHandle(hOpen);
        MessageBox(NULL, sInetOpenUrlErr, "Errore", 16+262144);
        return 1;
    }
 
    if (! InternetReadFile(hOpenUrl, sBuffer, 15, &Bytes) )
    {
        InternetCloseHandle(hOpenUrl);
        InternetCloseHandle(hOpen);
        MessageBox(NULL, sInetReadFileErr, "Errore", 16+262144);
        return 1;
    }
 
    InternetCloseHandle(hOpenUrl);
    InternetCloseHandle(hOpen);
 
    MessageBox(NULL, sBuffer, "IP pubblico", 64+262144);
 
    return 0;
 
}
 
-- 
http://niubbi.net
 
 
 

Isaac
 
Grande : ) ci sono riuscito : ) IP come da Tua immagine, 
tutti sti comandi erano famosi ai tempi Win98 : ) copiavo e tentavo di
eseguirli e mi facevan sentire un guru : )) 
adesso con quelle minchiate delle mattonelle... si � perso il
pionerismo del informatica : ) 
ciao e grazie 

> Clikki e apparir� un messagebox col tuo IP.

Stesso errore, mi d� errore criptico oppure finestra dos di frazione
di secondo : ) 
ciao ma comunque riprovo : ) 

   pionerismo del informatica : )
 
OK. E dato che c'ero ho controllato e ho aggiunto un altro url alternativo
a quello di default se ci fossero problemi con i server. Basta fare
una sostituzione nel caso servisse...
 
'INIZIO
Option Explicit
Dim http : Set http = CreateObject( "MSXML2.ServerXmlHttp" )
http.Open "GET", "
http://icanhazip.com
", False
http.Send
Wscript.Echo http.responseText   'or do whatever you want with it
Set http = Nothing
'Url alternativi con pagine web pulite :
'
http://automation.whatismyip.com/n09230945.asp
 
'
http://myip.dnsomatic.com
 
'FINE
 
-- 
by Isaac
Fidolook 2007 (HV) 6.0.6000.96 - 23/12/2007 21:15:48
Windows HE Service Pack 3 Dual attivo da gg 0:7:11:36 
 

 di secondo : ) 
 
Quello � C. Prova ad inserirlo in un nuovo progetto applicazione 
Windows  C di Dev-C++ :P
 
-- 
http://niubbi.net
 
 
 


Burlamacco wrote:
: )) ehm gli� un p� per me : ) uso la baracca per divertimento : ) comunque grazie : )

'FINE
 
Grazie molte : ) riprover� a smanettare con st� roba : ) ma mi tengo
quello funzionante : ) 
ciao