Here is an attempt with Vbscript using RegEx to check both IPv4 or IPv6
RegEx Demo Here
Vbscript
Option Explicit
Dim  Title,IP,Array_IP
Title = "Test the validity of an IP address IPv4 Or IPv6"
ForceCScriptExecution(Title)
Array_IP = Array(_
    "1200:0000:AB00:1234:0000:2552:7777:1313",_
    "192.168.1.1",_
    "255.255.0.0",_
    "172.16.18.21",_
    "172.16.18.500",_
    "1600:0000:AB30:1234:0000:2552:7777:1313",_
    "172.16.300.21",_
    "172.16.18.23",_
    "172.256.18.21",_
    "255.255.255.0",_
    "255.255.255.255"_
)
For Each IP in Array_IP
    If Is_Valid(IP) = True Then
        Wscript.echo IP & " is a Valid IP Address"
    Else
        Wscript.echo IP & " is Not a Valid IP Address"
    End if
Next
Wscript.sleep 20000
'------------------------------------------------------------------------------------
Function Is_Valid(ip)
    Dim RegularExpressionObject
    Set RegularExpressionObject = New RegExp
    With RegularExpressionObject
        .Pattern = "(^((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)$)|(([0-9a-fA-F]{1,4}:){7,7}[0-9a-fA-F]{1,4}|([0-9a-fA-F]{1,4}:){1,7}:|([0-9a-fA-F]{1,4}:){1,6}:[0-9a-fA-F]{1,4}|([0-9a-fA-F]{1,4}:){1,5}(:[0-9a-fA-F]{1,4}){1,2}|([0-9a-fA-F]{1,4}:){1,4}(:[0-9a-fA-F]{1,4}){1,3}|([0-9a-fA-F]{1,4}:){1,3}(:[0-9a-fA-F]{1,4}){1,4}|([0-9a-fA-F]{1,4}:){1,2}(:[0-9a-fA-F]{1,4}){1,5}|[0-9a-fA-F]{1,4}:((:[0-9a-fA-F]{1,4}){1,6})|:((:[0-9a-fA-F]{1,4}){1,7}|:)|fe80:(:[0-9a-fA-F]{0,4}){0,4}%[0-9a-zA-Z]{1,}|::(ffff(:0{1,4}){0,1}:){0,1}((25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])\.){3,3}(25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])|([0-9a-fA-F]{1,4}:){1,4}:((25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])\.){3,3}(25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9]))"
        .IgnoreCase = False
        If .Test(ip)= True then
            Is_Valid = True
        end if
    End With
End Function
'------------------------------------------------------------------------------------
Sub ForceCScriptExecution(Title)
    Dim Arg, Str, cmd
    cmd = "CMD /C Title " & Title &" & color 0A & Mode 80,30 & "
    If Not LCase( Right( WScript.FullName, 12 ) ) = "\cscript.exe" Then
        For Each Arg In WScript.Arguments
            If InStr( Arg, " " ) Then Arg = """" & Arg & """"
            Str = Str & " " & Arg
        Next
        CreateObject( "WScript.Shell" ).Run _
           cmd & "cscript //nologo """ & _
            WScript.ScriptFullName & _
            """ " & Str
        WScript.Quit
    End If
End Sub
'-------------------------------------------------------------------------------------
Batch File :
@echo off
Title Test the validity of an IP address IPv4 Or IPv6
set "_IP=1200:0000:AB00:1234:0000:2552:7777:1313"
Call :CheckIp "%_IP%" Validity
if [%Validity%] equ [0] ( 
    color 0A
    echo "%_IP%" is a valid ip
) else (
    Color 0C
    echo "%_IP%" is not a valid ip
)
Pause
set "_IP=192.168.500.300"
Cls
Call :CheckIp "%_IP%" Validity
if [%Validity%] equ [0] ( 
    color 0A
    echo "%_IP%" is a valid ip
) else (
    Color 0C
    echo "%_IP%" is not a valid ip
)
Pause
Exit
::--------------------------------------------------------------------------------------------------
:CheckIP <IP> <Validity>
Set "VbsFile=%Temp%\%~n0.vbs"
(
    echo WScript.Echo(Is_Valid("%~1"^)^)
    echo Function Is_Valid(ip^)
    echo    Dim RegularExpressionObject
    echo    Set RegularExpressionObject = New RegExp
    echo    With RegularExpressionObject
    echo        .Pattern = "(^((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)$)|(([0-9a-fA-F]{1,4}:){7,7}[0-9a-fA-F]{1,4}|([0-9a-fA-F]{1,4}:){1,7}:|([0-9a-fA-F]{1,4}:){1,6}:[0-9a-fA-F]{1,4}|([0-9a-fA-F]{1,4}:){1,5}(:[0-9a-fA-F]{1,4}){1,2}|([0-9a-fA-F]{1,4}:){1,4}(:[0-9a-fA-F]{1,4}){1,3}|([0-9a-fA-F]{1,4}:){1,3}(:[0-9a-fA-F]{1,4}){1,4}|([0-9a-fA-F]{1,4}:){1,2}(:[0-9a-fA-F]{1,4}){1,5}|[0-9a-fA-F]{1,4}:((:[0-9a-fA-F]{1,4}){1,6})|:((:[0-9a-fA-F]{1,4}){1,7}|:)|fe80:(:[0-9a-fA-F]{0,4}){0,4}%[0-9a-zA-Z]{1,}|::(ffff(:0{1,4}){0,1}:){0,1}((25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])\.){3,3}(25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])|([0-9a-fA-F]{1,4}:){1,4}:((25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])\.){3,3}(25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9]))"
    echo        .IgnoreCase = False
    echo        If .Test(ip^)= True then
    echo            Is_Valid = 0
    echo        Else
    echo            Is_Valid = 1
    echo        End if
    echo    End With
    echo End Function
)>"%VbsFile%"
@for /f "delims=" %%a in ('cscript //nologo "%VbsFile%"') do set "%2=%%a"
Exit /B
::--------------------------------------------------------------------------------------------------