Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_IPRange
Wandelt einen IP-Bereich in verschiedene Formen um.
Der Rückgabewert ist eine Liste mit dem unteren und oberen Werten in verschiedenen Schreibweisen.
Es können IPv4- und IPv6-Adressen verwendet werde.
Dim range1 As Variant
Dim range2 As Variant
Dim range3 As Variant
range1 = CNCL_IPRange("192.168.0.0/24")
range2 = CNCL_IPRange("192.168.0.0-192.168.1.127")
range3 = CNCL_IPRange("2001:0db8:1234::/48")
Print "a) IPv4 Beispiel"
Print range1("typ")
Print range1("binl")
Print range1("binu")
Print range1("hexl")
Print range1("hexu")
Print range1("IPv4l")
Print range1("IPv4u")
Print
Print "b) IPv4 Beispiel"
Print range2("typ")
Print range2("binl")
Print range2("binu")
Print range2("hexl")
Print range2("hexu")
Print range2("IPv4l")
Print range2("IPv4u")
Print
Print "c) IPv6 Beispiel"
Print range3("typ")
Print range3("binl")
Print range3("binu")
Print range3("hexl")
Print range3("hexu")
Print range3("IPv6l")
Print range3("IPv6u")
Ausgabe:
a) IPv4 Beispiel
IPv4
11000000101010000000000000000000
11000000101010000000000011111111
C0A80000
C0A800FF
192.168.0.0
192.168.0.255
b) IPv4 Beispiel
IPv4
11000000101010000000000000000000
11000000101010000000000101111111
C0A80000
C0A8017F
192.168.0.0
192.168.1.127
c) IPv6 Beispiel
IPv6
00100000000000010000110110111000000100100011010000000000000000000000000000000000000000000000000000000000000000000000000000000000
00100000000000010000110110111000000100100011010011111111111111111111111111111111111111111111111111111111111111111111111111111111
20010DB8123400000000000000000000
20010DB81234FFFFFFFFFFFFFFFFFFFF
2001:0DB8:1234:0000:0000:0000:0000:0000
2001:0DB8:1234:FFFF:FFFF:FFFF:FFFF:FFFF