Imports System

imports system.collections.generic

Public Module Module1

    friend class Domain

        public Mask as string

        public DC as string

        public Domain as string

        public sub New(byval sDomain as string)

            dim sPairs as keyvaluepair(of string, string)

​

        end sub

​

    end class

    friend class Domains

        inherits list(of Domain)

        public sub New(byval sKey as string)

            mybase.new

​

            dim sDomains as string() = skey.split(";")

            for i as integer = 0 to sdomains.length-1

                me.Add( new domain(sdomains(i)))

            next i

        end sub

    end class

    Public Sub Main()

        dim sKey as string = "loginMask=^(?:maxwellpaper\\)\w+;domainController=roma;domain=maxwellpaper.ca;DC=maxwellpaper,DC=ca;|loginMask=^((?:normax)(international)?\\)\w+;domainController=smith;domain=normaxinternational.com;DC=normaxinterational,DC=com;"

        dim oDomains as new domains(sKey)

    End Sub

End Module

​

​