获取外网IP并发送到指定邮箱的vbs代码[已测].doc

如名称所见，获取外网IP并发送到指定邮箱，这个脚本比较短小，但不如脚本之家提供的au3脚本功能强大，不过每次电脑开机记录一下还是不错的 代码如下: getIP set http=createobject(Microsoft.XMLHTTP) ipp=/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 = /cdo/configuration/ Set Email = CreateObject(CDO.Message) Email.From = 发送邮箱 Email.To = 接收邮箱 Email.Subject = 主题 Email.Textbody = ssdate() ss为获取到的ip Email.AddAttachment 附件的路径例如：C:\foo.zip With Email.Configuration.Fields .Item(NameSpacesendusing) = 2 .Item(NameSpacesmtpserver) = smtp服务器地址 .Item(NameSpacesmtpserverport) = 25 .Item(NameSpacesmtpauthenticate) = 1 .Item(NameSpacesendusername) = 账户名，发送邮箱的 .Item(NameSpacesendpassword) = 密码 .Update End With Email.Send 复制代码 代码如下: getIP set http=createobject(Microsoft.XMLHTTP) ipp=/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 = /cdo/configuration/ Set Email = CreateObject(CDO.Message) Email.From = 发送邮箱 Email.To = 接收邮箱 Email.Subject = 主题 Email.Textbody = ssdate() ss为获取到的ip Email.Ad