Aviso: É proibido modificar e usar para fins ilegais. Se houver algo errado, entre em contato para corrigi-lo.
Ambiente: versão doméstica do windows10 + rede
Descrição:
1. arquivo ip:
1. um endereço IP válido por linha;
2. salvar como texto;
2. analisar o arquivo:
1. vbs + processamento em lote, transformação vbs da Internet, processamento em lote é completado por si mesmo;
2 .Salve como um arquivo
com o sufixo bat; 3. Coloque um diretório com o arquivo ip, e digite o nome do arquivo apenas o nome do arquivo + sufixo;
4. Não coloque um diretório com o arquivo ip, insira o caminho + nome do arquivo + o sufixo;
5. A interface de um site externo é chamada. Não analise muitos
ips de uma vez. Se você desligar a interface, não terá que jogar (ênfase); 6 . O resultado da análise está em ipInfo.txt;
7. Durante o processo de análise, os arquivos vbs e txt serão gerados e a análise será concluída. Serão excluídos automaticamente
8. Se houver um alarme falso do software antivírus, você pode adicione uma lista branca
9. Se houver um erro, tente o administrador para executar
@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
)
)
(Fim do texto completo)