''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
注意代码中的参数设置。
更多获取外网ip并发送到指定邮箱的vbs代码。