Descargo de responsabilidad: Está prohibido modificarlo y utilizarlo con fines ilegales. Si hay algún problema, comuníquese con para corregirlo.
Entorno: versión para el hogar de windows10 +
descripción de redes :
1. archivo ip:
1. una dirección IP válida por línea;
2. guardar como texto;
2. analizar el archivo:
1. vbs + procesamiento por lotes, transformación vbs desde Internet, procesamiento por lotes se completa por sí mismo;
2 .Guarde como un archivo
con el sufijo bat; 3. Ponga un directorio con el archivo ip, e ingrese el nombre del archivo solo el nombre del archivo + sufijo;
4. No ponga un directorio con el archivo ip, ingrese la ruta + el nombre del archivo + el sufijo;
5. Se llama a la interfaz de un sitio web externo. No analice demasiados
ips a la vez. Si cuelga la interfaz, no tendrá que jugar (énfasis); 6 .El resultado del análisis está en ipInfo.txt;
7. Durante el proceso de análisis, se generarán archivos vbs y txt y el análisis se completará. Se eliminarán automáticamente
8. Si hay una falsa alarma por parte del software antivirus, puede agregar una lista blanca
9. Si hay un error, intente con el administrador ejecutar
@echo off
setlocal enabledelayedexpansion
cd /d %~dp0
set /p fileName=请输入文件名如c:\addr.txt :
for /f "tokens=* delims=" %%i in (!fileName!) do (
if not "%%i" equ "" (
call :ipGPS %%i
del /q ipFind.vbs
del /q ipFind.txt
)
)
pause
exit
:ipGps
set addr=%1
echo Set objXML = CreateObject("MSXML2.ServerXMLHTTP")>ipFind.vbs
echo Set objFSO = CreateObject("Scripting.FileSystemObject")>>ipFind.vbs
echo objXML.open "GET","http://www.cip.cc/!addr!",false>>ipFind.vbs
echo objXML.send()>>ipFind.vbs
echo Set objFile = objFSO.CreateTextFile("ipFind.txt",true)>>ipFind.vbs
echo objFile.close>>ipFind.vbs
echo Set objTextFile = objFSO.OpenTextFile ("ipFind.txt", 8, True)>>ipFind.vbs
echo objTextFile.WriteLine(objXML.responseText)>>ipFind.vbs
echo objTextFile.Close>>ipFind.vbs
start /wait wscript /t:300 ipFind.vbs
set rownumber=0
FOR /F "tokens=1,2* delims=:" %%i in (ipFind.txt) do (
if !rownumber! equ 39 (
echo IP地址:!addr! 位置:%%j
echo.
echo.
echo IP地址:!addr! 位置:%%j>>ipInfo.txt
set /A rownumber=rownumber+1
) else (
set /A rownumber=rownumber+1
)
)
(Fin del texto completo)