This Visual Basic Script creates a Basic Organisational Domain Structure. #VBScript

CreateDomainStructure.vbs

Option Explicit 
Dim objDomain,objStudentOu,objCreativeMOU,objGamesOU,objMusicOU,objComputingOU
dim strStudents,strCreativeM,strMusic,strComputing,strGames

strStudents = "ou=Students"
strComputing = "ou=Computing"
strMusic = "ou=Music"
strGames = "ou=Games"
strCreativeM = "ou=CreativeMedia"

'Create a connection to LDAP Domain Object. 

set objDomain = getobject("LDAP://DC=YOURDOMAIN,DC=COM")

'Build Student OU 

set objStudentOu = objDomain.create("organizationalUnit",strStudents)
objStudentOu.setinfo

'Build Child OUs 

set objCreativeMOU = objStudentOu.create("organizationalUnit",strCreativeM)
objCreativeMOU.setinfo

set objGamesOU = objStudentOu.create("organizationalUnit",strGames)
objGamesOU.setinfo

set objMusicOU = objStudentOu.create("organizationalUnit",strMusic)
objMusicOU.setinfo

set objComputingOU = objStudentOu.create("organizationalUnit",strComputing)
objComputingOU.setinfo

wscript.quit