Home > Article > Web Front-end > Get the external network IP and send the vbs code to the specified mailbox
''getIP set http=createobject("Microsoft.XMLHTTP") ipp="http://www.ip138.com/ip2city.asp" http.open "get",ipp,false http.send ss=bytes2BSTR(Http.responsebody) intStrA = InStr(1,ss,"[",1)+1 sss=mid(ss,intStrA) intStrB = InStr(1,sss,"]",1)-1 ss=mid(ss,intStrA,intStrB) 'wscript.echo ss Function bytes2BSTR(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function ''SendEmail NameSpace = "http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From = "发送邮箱" Email.To = "接收邮箱" Email.Subject = "主题" Email.Textbody = ss&date() 'ss为获取到的ip 'Email.AddAttachment "附件的路径例如:C:\foo.zip" With Email.Configuration.Fields .Item(NameSpace&"sendusing") = 2 .Item(NameSpace&"smtpserver") = "smtp.163.com" 'smtp服务器地址 .Item(NameSpace&"smtpserverport") = 25 .Item(NameSpace&"smtpauthenticate") = 1 .Item(NameSpace&"sendusername") = "账户名,发送邮箱的" .Item(NameSpace&"sendpassword") = "密码" .Update End With Email.Send
Pay attention to the parameter settings in the code.
For more articles related to vbs code that obtains the external network IP and sends it to the specified mailbox, please pay attention to the PHP Chinese website!