Trimite IP-ul extern(public) unei adrese mail

Am gasit un script care in momentul in care il rulez i-mi trimite de pe calculatorul respectiv pe o adresa de mail IP-ul . Am incercat scriptul pe un pc cu ISP de la RDS  iar pe mail am primit doar IP-ul din retea al RDS gen 169.254.244.XXX nu si pe cel public gen 89.13.xxx.xxx. Mai jos am sa pun scriptul....
Ce trebuie sa modific in script ca sa primesc pe mail  cele doua ip-uri sau macar pe cel public????????????

'
' send the IP address via gmail
'
Sub SendIPInfo()

  On Error Resume Next

  Dim iMsg, iConf, Flds

  Set iMsg = CreateObject("CDO.Message")
  Set iConf = CreateObject("CDO.Configuration")
  Set Flds = iConf.Fields

  schema = "http://schemas.micro...configuration/"

  Flds.Item(schema & "sendusing") = 2
  Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
  Flds.Item(schema & "smtpserverport") = 465
  Flds.Item(schema & "smtpauthenticate") = 1
  Flds.Item(schema & "sendusername") = "[email protected]"
  Flds.Item(schema & "sendpassword") = "your-gmail-password"
  Flds.Item(schema & "smtpusessl") = 1
  Flds.Update

  ' message body
  strDate = CStr(Date()) & " " & CStr(Time())
  strBody = "---===---<br/>IP info YOURCOMPUTER " & strDate & " <br/><br/>"

  ' read adapters info
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  Set colNicConfigs = objWMIService.ExecQuery _
   ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
  For Each objNicConfig In colNicConfigs
    strDescription = objNicConfig.Description
    IPAddress = objNicConfig.IPAddress
    strIP = ""
    For Each s in IPAddress
      if strIP = "" then
        strIP = s
      else
        strIP = strIP & ";" & s
      end if
    Next
    strBody = strBody & "<br/>" & _
      "Description:" & strDescription & "<br/>" & _
      "IP: " & strIP & "<br/>"
  Next
  strBody = strBody & "---===---"

  With iMsg
    .To = "Sender Name <[email protected]>"
    .From = "Receiver Name <[email protected]>"
    .Subject = "IP info YOURCOMPUTER on: " & strDate
    .HTMLBody = strBody
    .Sender = "Sender Name"
    .Organization = "Your Organisation"
    .ReplyTo = "[email protected]"

    Set .Configuration = iConf

    .Send
  End With

  ' release interfaces
  Set iMsg = nothing
  Set iConf = nothing
  Set Flds = nothing
End Sub  

SendIPInfo

am si eu nevoie de un asemenea script, chiar daca e la 3 ani dupa postarea ta. ai mai rezolvat cu el atunci?

daca tot ati reinviat topicul..... va dau eu raspunsul ........... By me


Aveti nevoie de un label care il setati pe invizibil....
si 2 de codul asta:



Imports System.Net
Imports System.Net.Mail
Public Class Form1
    Dim MyMailMessage As New MailMessage
    Dim SMTPServer As New SmtpClient("smtp.gmail.com")
    Dim GetIP As String = New WebClient().DownloadString("http://automation.wh.../n09230945.asp")

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = (GetIP)

        MyMailMessage.From = New MailAddress("E-mail-ul [email protected]")
        MyMailMessage.To.Add("Cel care va primi [email protected]/com")
        MyMailMessage.Subject = ("Subiect")
        MyMailMessage.Body = ("IP-ul lui " & My.Computer.Name & " Este " & Label1.Text)
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential("E-mail-ul tau de G-mail", "Parola Ta")
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)
    End Sub
End Class


eu lam facut scriptu mi-a luat cv


la cont si parola de gmail tre sa completati cu contul vostru daca nu credeti faceti un cont nou si verificati


!!!ATENTIE!!!  Contul tre sa fie de G-mail

ups scuze mam incurcat cu asta........

codu e de Visual Studio nu Visual Basic.... mda Srry





dar cred ca e tot ceva de genu


P.S: Scuze din nou ca am facut inca un mesaj dar nu mergea Edit

razvanflorin, on 5th May 2012, 20:10, said:

Daca taceai ... filosof ramaneai