Opret flere OU'er

Hej Alle! - jeg fatter intet af at scripte, så her må i hjælpe mig!

Jeg skal have oprettet en masse OU'er i mit AD, og har derfor fundet følgende Script som opretter en OU ved navn AGuyOU.

Er der nogen der kan hjælpe mig såldes at jeg kan oprette nogle flere OU'er i samme omgang. Mit ønske er at få oprettet følgende OU'er:

0.01
0.02
0.03
og op til 0.18

Hvem kan hjælpe? :-)


' VBSCript to create an OU (Organizational Unit)
' Note two steps to set domain
' Author Guy Thomas http://computerperformance.co.uk/
' Version 2.5 - December 12th 2004
' ----------------------------------------------------------'
Option Explicit
Dim objRoot, objDomain, objOU
Dim strOUContainer
Dim intUser

' Section to bind to YOUR Active Directory.
Set objRoot = GetObject("LDAP://rootDSE")
objDomain = objRoot.Get("defaultNamingContext")
Set objDomain = GetObject("LDAP://" & objDomain)

' Section to create the OU defined by strOUContainer
' Note .SetInfo
strOUContainer ="OU=AGuyOU"

'On Error Resume next
Set objOU = objDomain.Create("organizationalUnit", strOUContainer)
objOU.Put "Description", "Guy's OU"
objOU.SetInfo

WScript.Echo "New OU created = " & strOUContainer
WScript.quit