[文本处理] 批处理如何写一个IP段生成器？

@echo off
for /l %%a in (1,1,255) do (
    echo 192.168.0.%%a
)
复制代码

@shift
@shift
@echo off
MODE con: COLS=40 lines=20
color 5f
title 自定义生成小段Ip
echo.
echo 使用说明:
echo.
echo   输入Ip头,生成段数,并用空格隔开.
echo   Ip段规则:某项最大数值为255
echo   将生成后的Ip段写入AllIp.txt
echo.
echo   正确方法 :) 例:113 0 2       √
echo   生成后小段Ip:
echo           113.0.0.0 113.0.255.255
echo           113.1.0.0 113.1.255.255
echo           113.2.0.0 113.2.255.255
echo.
echo   错误方法 :( 例:113 0 256     ×
echo   生成后某一段:
echo           113.256.0.0 113.256.255.255
echo.
echo.
echo  请认真阅读使用说明,按任意键开始生成.
pause >nul
cls
del /a /f /q 自定义生成小段Ip.txt >nul 2>nul
set a=
set /p a=请输入:
for /f "tokens=1-3" %%i in ("%a%") do (
for /l %%a in (%%j,1,%%k) do (echo %%i.%%a.0.0 %%i.%%a.255.255>>Ip.txt)
)
Ip.txt


复制代码

Option Explicit
Dim strBegin_ip,strEnd_ip,FSO

strBegin_ip=InputBox("请输入起始IP地址：")
If Not IsIP(strBegin_ip) Then 
    MsgBox "非法IP！",0,"错误"
    WScript.Quit
End If
strEnd_ip=InputBox("请输入结束IP地址")
If Not IsIP(strEnd_ip) Then 
    MsgBox "非法IP！",0,"错误"
    WScript.Quit
End If
Set FSO=CreateObject("scripting.filesystemobject")
FSO.CreateTextFile("IP地址.txt",True).Write(GenerateIP(strBegin_ip,strEnd_ip))
CreateObject("wscript.shell").run "IP地址.txt"

Function GenerateIP(strBegin,strEnd)
	Dim arrBegin,arrEnd,intSum_begin,intSum_end
	Dim intSeg1,intMod1,intSeg2,intMod2,intSeg3,intMod3,intSeg4
	Dim i
	arrBegin=Split(strBegin,".",-1)
	arrEnd=Split(strEnd,".",-1)
	intSum_begin=arrBegin(0)*256^3+arrBegin(1)*256^2+arrBegin(2)*256+arrBegin(3)
	intSum_end=arrEnd(0)*256^3+arrEnd(1)*256^2+arrEnd(2)*256+arrEnd(3)
	If intSum_end-intSum_begin<0 Then 
	    MsgBox "结束IP大于起始IP",0,"错误"
	    WScript.Quit
	End If
	For i = intSum_begin To intSum_end
	    intSeg1=int(i/256^3):intMod1=i-intSeg1*256^3
	    intSeg2=Int(intMod1/256^2):intMod2=intMod1-intSeg2*256^2
	    intSeg3=Int(intMod2/256):intMod3=intMod2-intSeg3*256
	    intSeg4=intMod3
	    GenerateIP=GenerateIP&intSeg1&"."&intSeg2&"."&intSeg3&"."&intSeg4&vbCrLf
	Next
End Function

Function IsIP(strIPAddress)
    Dim oRegex
    Set oRegex=CreateObject("VBscript.Regexp")
    oRegex.Global=True
    oRegex.Pattern="((?:(?:25[0-5]|2[0-4]\d|((1\d{2})|([1-9]?\d)))\.){3}(?:25[0-5]|2[0-4]\d|((1\d{2})|([1-9]?\d))))"
    IsIP=oRegex.Test(strIPAddress)
End Function
复制代码