Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
La Digi de la Vodafone

Creveti

Sare siguranta cand pornesc masin...

Verificare structura de rezistent...
 Masina nr 2 - 90% oras, benzina, ...

Tratament ortodontic

Passat B5 2000, fum

navigația auto nu porneș...
 Demontare plastic hayon Seat Ateca

Placa de baza Samsung Galaxy M21

Casca scuter electric + suport pi...

Inmatriculare temporara Suedia
 Abonament sala

CSS - E posibil sa ignori opacita...

Intrebare Facebook

RMN pentru claustrofobi
 

Trimite IP-ul extern(public) unei adrese mail

- - - - -
  • Please log in to reply
4 replies to this topic

#1
i18diverse

i18diverse

    Junior Member

  • Grup: Members
  • Posts: 139
  • Înscris: 11.11.2007
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

#2
alin_4u

alin_4u

    Junior Member

  • Grup: Members
  • Posts: 108
  • Înscris: 07.11.2008
am si eu nevoie de un asemenea script, chiar daca e la 3 ani dupa postarea ta. ai mai rezolvat cu el atunci?

#3
razvanflorin

razvanflorin

    Junior Member

  • Grup: Members
  • Posts: 27
  • Înscris: 12.01.2012
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 :D scriptu :D 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

#4
razvanflorin

razvanflorin

    Junior Member

  • Grup: Members
  • Posts: 27
  • Înscris: 12.01.2012
ups :D 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

#5
dani.user

dani.user

    Guru Member

  • Grup: Senior Members
  • Posts: 29,385
  • Înscris: 24.02.2007

View Postrazvanflorin, on 5th May 2012, 20:10, said:

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

Daca taceai ... filosof ramaneai

Anunturi

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate