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
Source = GetIPObj.documentElement.innerText
Set Rep = New RegExp
Rep.pattern= "(\d+) \. (\d+) \. (\d+) \. (\d+) "
For each result in Rep.execute (Source)
Getipaddress = result
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 = Now & ":" & 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 & "sendusername") = "* * *"
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