VBS gets the IP address of the extranet and sends the code to the specified mailbox

This article is different to get the website, the implementation code is also good, like friends can test

Copy code code as follows:


Function getipaddress ()


Dim Flag, Source


Set getipobj = Wscript.getobject ("http://ipseeker.cn//")


Flag = 0


for I=1 to 10


If getipobj.readystate = "complete" Then


flag=1


Exit for


End If


Wscript.Sleep 500


Next

 if Flag = 0 Then
  getipaddress = "Get IP address Time out ..."
 else
  sour CE = GetIPObj.documentElement.innerText
  set Rep = New RegExp
  rep.pattern= (d+). ( d+). (d+). (d+) "
  for each result in Rep.execute (Source)
    getipaddress = result
 & nbsp;  Exit for
  next
 end If
End Function

Function MailTo (mailaddress)
    Dim NameSpace, mailobject

    NameSpace = "http://schemas.microsoft.com/cdo/configuration/"

    Set mailobject = CreateObject ("CDO.") Message ")
    mailobject.from =" *****@21cn.com "
    mailobject.to = mailaddress
    Mailobject.subject = "IP address information"

    mailobject.textbody = N OW & ":" & Getipaddress ()

    MailObject.Configuration.Fields.Item (NameSpace &) SendUsing ") = 2
    MailObject.Configuration.Fields.Item (NameSpace &" smtpserver ") =" Smtp.21cn.com "
    MailObject.Configuration.Fields.Item (NameSpace &" smtpserverport ") = 25
    MailObject.Configuration.Fields.Item (NameSpace & "smtpauthenticate") = 1
     MailObject.Configuration.Fields.Item (NameSpace & Senduserna)Me ") =" * * * "
    MailObject.Configuration.Fields.Item (NameSpace &" Sendpassword ") =" * * * "

    MailObject.Configuration.Fields.Update
    mailobject.send
End Function

MailTo ("Hu Jintao @qq. com")

Original: http://www.enun.net/?p=1199