http://dieseyer.de • all rights reserved • © 2011 v11.4

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

http://dieseyer.de • all rights reserved • © 2011 v11.4