VBS 获取外网 IP 并发送到指定邮箱

标签: , , ,

VBS 获取外网 IP 并发送到指定邮箱。

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

随机文章:

  1. PathFindFileName函数,由文件路径获得文件名
  2. 用Tiny C Compiler编译Lua
  3. GetFileInformationByHandle函数
  4. 跨编译器的 C 语言 NaN 支持
  5. 身份证校验码算法

留下回复