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")
VBS에 대한 더 많은 코드 관련 기사를 보려면 외부 IP 주소를 가져와 지정된 사서함으로 보내는 방법을 알아보려면 PHP 중국어 웹사이트를 주목하세요!