手机
当前位置:查字典教程网 >脚本专栏 >vbs >VBS获取外网IP地址并发送到指定邮箱的代码
VBS获取外网IP地址并发送到指定邮箱的代码
摘要:复制代码代码如下:FunctionGetIPAddress()DimFlag,SourceSetGetIPObj=WScript.GetOb...

复制代码 代码如下:

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

【VBS获取外网IP地址并发送到指定邮箱的代码】相关文章:

用vbs分割与合并文本文件的代码

VBS读网页的代码

VBS 强制关闭Symantec Endpoint Protection的代码

vbs获取当前路径的代码

vbs获取当前时间日期的代码

vbs后台运行bat删除自身的代码

VBS 数字转英文代码

vbs定时发送邮件的方法与代码

用vbs读取index.dat内容的实现代码

用VBS实现监视进程创建与删除的代码

精品推荐
分类导航