复制代码 代码如下:
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 ("******@qq.com")
原文:http://www.enun.net/?p=1199
您可能感兴趣的文章:
- C# 邮箱mail 发送类
- c#调用qq邮箱smtp发送邮件修改版代码分享
- 获取外网IP并发送到指定邮箱的vbs代码[已测]
- Java基于JavaMail实现向QQ邮箱发送邮件
- Python实现给qq邮箱发送邮件的方法
- 使用vbs获得外网ip并发送到邮箱里
- 在Laravel框架里实现发送邮件实例(邮箱验证)
- java实现163邮箱发送邮件到qq邮箱成功案例
- C#发送邮箱实现代码
- 局域网电脑获取外网IP发送到指定邮箱工具
本文由 华域联盟 原创撰写:华域联盟 » VBS获取外网IP地址并发送到指定邮箱的代码
转载请保留出处和原文链接:https://www.cnhackhy.com/16489.htm