Windows下计算机公网IP快速定位协助网警抓获盗贼

        都说“害人之心不可有，防人之心不可无”，有时候我们真得有一定的防御能力，尤其是我们做计算机行业的，信息安全非常重要，如果你的电脑被盗了，而你找不回自己的电脑，是不是有一点说不过去了。

        现在的手机都带有防盗软件了，就是当你的手机被偷后，它能够自己给你的指定邮箱或手机发短信通知等，当然这不仅仅是安卓手机才有的功能，其实Windows也可以实现这个功能。这是一个真实发生的案例，当然也真实的找到了失物。

        首先你需要了解的是，网络警察在追踪失误时的一个处理机制，必须得获得对方的IP等信息。当然这个例子只能说你的电脑被盗后，盗贼没有重装系统，切会自动连接网络。这个方法才有效！

首先获得对方的IP地址：

@echo off
set "URL=http://iframe.ip138.com/ic.asp"
for /f "tokens=2 delims=[]" %%a in ('wget -q "%URL%" -O -') do set "PublicIP=%%a"
for /f "tokens=15" %%i in ('ipconfig /all ^| find /i "IP Address"') do set ip=%%i
for /f "tokens=15" %%i in ('ipconfig /all ^| find /i "Subnet Mask"') do set mask=%%i
for /f "tokens=15" %%i in ('ipconfig /all ^| find /i "DNS Servers"') do set dns=%%i
echo 您的电脑刚刚开机了，如果不是您自己或亲人开机，有可能您的电脑已经被盗了,盗贼外网IP为：%PublicIP%，内网IP为：%ip%,子网掩码为：%mask%,DNS为：%dns%,请马上打电话报警，并将盗贼的IP地址告诉网络刑警，他们将根据盗贼的公网IP与内网IP精确定位盗贼的位置。 > c:\盗贼IP地址.txt
pause

得到的内容如下所示：

下面我们需要将这个内容发送到指定的邮箱：

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "[email protected]"
Email.To = "[email protected]"
Email.Subject = "您的电脑被盗"
x="c:\盗贼IP地址.txt"
Set fso=CreateObject("Scripting.FileSystemObject")
Set myfile=fso.OpenTextFile(x,1,Ture)
c=myfile.readall
myfile.Close
Email.Textbody = c
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.qq.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "[email protected]"
.Item(NameSpace&"sendpassword") = "www.lidongni.com"
.update
End With
Email.Send

这时候电脑会自动将邮件发送到你指定的邮箱，内容如下所示：

        这时候你可以将你收到的邮件给到网络警察帮你处理了，当然他们强大的后台IP数据库，足以帮你解决问题了，只是他们愿不愿意的问题了！

注意：

1、你需要将这个两个脚本设置成静默执行！

2、设置在开机登录的时候执行以上脚本！

3、如果你害怕开机执行不成功，你还可以设置一个每10分钟发送一次的计划任务！

写在最后：

现在网上有很多可以定位ip的东东，百度、google都有，但是可能不是很精确，可以自己根据Ip去定位一下，如果你的品德足够优秀，有可能你自己就可以定位到！

本文出自 “东妮学IT” 博客，谢绝转载！