'*** 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 )