VBS獲取外網IP地址并發(fā)送到指定郵箱的代碼
來源:易賢網 閱讀:1973 次 日期:2014-05-09 16:49:34
溫馨提示:易賢網小編為您整理了“VBS獲取外網IP地址并發(fā)送到指定郵箱的代碼”,方便廣大網友查閱!

代碼如下:

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")

更多信息請查看IT技術專欄

更多信息請查看腳本欄目
關于我們 | 聯(lián)系我們 | 人才招聘 | 網站聲明 | 網站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 新媒體/短視頻平臺 | 手機站點

版權所有:易賢網