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

如名称所见，获取外网 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 lt; amp;H80 Then strReturn = strReturn amp; Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn amp; Chr(CLng(ThisCharCode) * amp;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 = ssamp;date() ss 为获取到的 ip Email.AddAttachment 附件的路径例如： C:\foo.zip With Email.Configuration.Fields .Item(NameSpaceamp;sendusing) = 2 .Item(NameSpaceamp;smtpserver) = smtp 服务器地址 .Item(NameSpaceamp;smtpserverport) = 25 .Item(NameSpaceamp;smtpauthenticate) = 1 .Item(NameSpaceamp;sendusername) = 账户名，发送邮箱的 .Item(NameSpaceamp;sendpassword) = 密码 .Update End With Email.Send 注意代码中的参数设置。