Indirizzo IP

[kwon64]

Un saluto a tutti, mi sono appena registrato al forum e comincio subito con una richiesta.
Qualcuno conosce un utility che può scrivere su un file l'indirizzo Ip durante la connessione ad Internet?
IPCONFIG funziona bene con W2K/WXP ma non con W98, e il risutato di WINIPCFG non so come farlo scrivere in un file (a parte che mi sembra che se sono collegato con l'ADSL non funziona).
In pratica vorrei che la persona che si collega ad internet eseguendo l'utility memorizzi sul file l'indirrizzo IP e con un'altra procedura mi venga inviato l'indirizzo.
Con W2K/WXP il tutto funziona ma non con W98.

Mi potete dare un aiuto?

Grazie a tutti

[fabio309]

ciao e ben arrivato/a nel forum
prova con
WINIPCFG > nome_file

[kwon64]

Non funziona, apre la maschera di WinIpCfg e crea un file vuoto.
Ho fatto una prova con "netstat" ma mi restituisce degli indirizzi che non coincidono con quello dei siti che indicano l'ip della connessione.

[fabio309]

hai provato mettendo il comando
WINIPCFG > nome_file.txt
dentro un file batch?

[kwon64]

Prima ho provato da riga di comando, adesso ho creato un file test.bat
con la sola riga: WINIPCFG>INDIP.TXT
Ma il risultato è lo stesso, si apre la finestra di WINIPCFG mi mostra l'indirizzo, ma crea sempre un file vuoto.

[fabio309]

il fatto è che non ho w98 su cui provare le soluzioni che ti propongo, prova con questo file

Public Function IP()
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set IPConfigSet = objWMIService.ExecQuery _
        ("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    For Each IPConfig In IPConfigSet
        If Not IsNull(IPConfig.IPAddress) Then
            For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
                IP = IPConfig.IPAddress(i)
            Next
        End If
    Next
End Function

Set objMail = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "nome_server_smtp "
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With

Set objMail.Configuration = objConfig
objMail.From = "mittente@indirizzo.it"
objMail.To = "tuo_indirizzo_posta "
objMail.Subject = "ip"
objMail.Fields("urn:schemas:httpmail:importance").Value = 2
objMail.Fields.update()
objMail.TextBody = ip()
objMail.HTMLBody = ip()
objMail.Send()
Set objMail = Nothing

lo salvi come .vbs e lo fai eseguire una volta aperta la connessione a internet

[kwon64]

Prima di tutto ti ringrazio per la disponibilità.
Speravo fossimo arrivati ad una conclusione ma il codice una volta eseguito genera gli errori che vedi di seguito:

Windows 98
Script : C:\Windows\Desktop\indirizzo.vbs
Numero riga :14 Colonna 0
Categoria:Errore di run-time di Microsoft VBScript
Descrizione Il componente ActiveX non può creare l'oggetto: 'CDO.Message'

Windows XP
Script : C:\indirizzo.vbs
Riga :32
Carattere: 1
Errore: Il trasporto non è riuscito a connettersi al server.
Codice: 80040213
Origine:CDO.Message.1

Puoi dedicarmi ancora qualche minuto?
Grazie

[fabio309]

scusami ti ho passato uno script complesso, procediamo per passi, salva il codice seguente in un file .vbs

    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set IPConfigSet = objWMIService.ExecQuery _
        ("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    For Each IPConfig In IPConfigSet
        If Not IsNull(IPConfig.IPAddress) Then
            For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
                wscript.echo IPConfig.IPAddress(i)
            Next
        End If
    Next

e provalo su w98, dovrebbe restituire a video una messagebox con l'indirizzo ip della macchina

[kwon64]

Ho utilizzato la tua funzione, ma mi restituisce l'indirizzo Ip della scheda di rete e non quello su internet.
In ogni caso l'ho utilizzato su WXP, su W98 mi da sempre un messaggio di errore:
Riga : 1 Colonna : 0
Categoria : Errore di run-time di Microsoft VBScript
Descrizione: Impossibile trovare nome di file o nome di classe durante un'operazione di automazione: 'GetObject'

[abnamro]

mi sono appena iscritto e mi sono confuso tra risposta e nuovo argomento. la mia curiosità e sapere se e possibile conoscere l'ip ricevendo posta su hotmail. e se si come devo fare. scusare ma sono nuovo qui.