'*** v9.7 *** www.dieseyer.de ******************************
'
' Datei:  syntax-ipadr.vbs
' Autor:  dieseyer@gmx.de
'         (xxx.dexter.xxx@googlemail.com)
' Auf:    www.dieseyer.de
'
' Vergl.  ad-pcliste.vbs
' Vergl.  http://www.regular-expressions.info/examples.html
'
' 	prüft auf richtige IP-Adr:
'	\b(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b
'
'***********************************************************

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

Dim Txt, Tst

Txt = "IP-Adr. beginnt mit 192.168." & vbCRLF & vbCRLF

Tst = "192.168.1.-1"	: Txt = Txt & Tst & vbTab & " => " & GueltigeIPAdr( Tst ) & vbCRLF
Tst = "192.168.1.0"	: Txt = Txt & Tst & vbTab & " => " & GueltigeIPAdr( Tst ) & vbCRLF
Tst = "192.168.1.1"	: Txt = Txt & Tst & vbTab & " => " & GueltigeIPAdr( Tst ) & vbCRLF
Tst = "192.168.1.255"	: Txt = Txt & Tst & vbTab & " => " & GueltigeIPAdr( Tst ) & vbCRLF
Tst = "192.168.1.256"	: Txt = Txt & Tst & vbTab & " => " & GueltigeIPAdr( Tst ) & vbCRLF

Tst = "192.168.2.-1"	: Txt = Txt & Tst & vbTab & " => " & GueltigeIPAdr( Tst ) & vbCRLF
Tst = "192.168.3.0"	: Txt = Txt & Tst & vbTab & " => " & GueltigeIPAdr( Tst ) & vbCRLF
Tst = "192.168.255.1"	: Txt = Txt & Tst & vbTab & " => " & GueltigeIPAdr( Tst ) & vbCRLF
Tst = "192.168.256.255"	: Txt = Txt & Tst & vbTab & " => " & GueltigeIPAdr( Tst ) & vbCRLF
Tst = "192.168.255.256"	: Txt = Txt & Tst & vbTab & " => " & GueltigeIPAdr( Tst ) & vbCRLF

Tst = "127.0.0.1"	: Txt = Txt & Tst & vbTab & " => " & GueltigeIPAdr( Tst ) & vbCRLF
Tst = "10.11.2.1"	: Txt = Txt & Tst & vbTab & " => " & GueltigeIPAdr( Tst ) & vbCRLF

MsgBox Txt, , "46 :: " & Wscript.ScriptName

WScript.Quit


'*** v9.7 *** www.dieseyer.de ******************************
Function GueltigeIPAdr( IP ) 
'***********************************************************
  Dim	RegAusdr, IPSyntax

  IPSyntax = "\b\b192\.\b168\.1\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b"	' IP-Adr. beginnt mit 192.168.1
  IPSyntax = "\b\b192\.\b168\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b"	' IP-Adr. beginnt mit 192.168.

  Set	RegAusdr = New RegExp
	RegAusdr.Pattern = IPSyntax
  If	RegAusdr.Test( IP ) Then
	GueltigeIPAdr = TRUE	' : MsgBox GueltigeIPAdr & ": " & IP, , "63 :: " & Titel
  Else
	GueltigeIPAdr = FALSE	' : MsgBox GueltigeIPAdr & ": " & IP, , "65 :: " & Titel
  End If
  Set	RegAusdr = nothing
End Function ' GueltigeIPAdr( IP )