Create an OU under the System OU (Active Directory)

[sn0rg]

I'm attempting to script the creation of an OU required for SMS. The OU must be created underneath the Top Level OU of System, but when I run the code, I receive the error "object not founf on the server" where the script attempts to bind to that OU.

The error doesn't occur when pointed at another Top Level OU I have manually created, so it appears that the System OU is special somehow.

Here's the sample code:

' Create OU
Set adsRootDSE = GetObject("LDAP://rootDSE")
strDomainDN = adsRootDSE.Get("defaultNamingContext")

strADsPath = "LDAP://OU=System," & strDomainDN
Set adsContainer = GetObject(strADsPath)

Set oOU=adsContainer.Create("organizationalUnit", "ou=System Management")
oOU.Put "Description", "SMS OU"
oOU.SetInfo

wscript.echo "Script Complete"

 

[sn0rg]

So it seems that the System OU is not an "Organisational Unit", it is actually a "Container". Does anyone know how to address the LDAP path for this container?

 

[sn0rg]

OK, cracked it in the end. Needed to create a Container, not an OU, thus the scrit is like this:

' Create OU

Set adsRootDSE = GetObject("LDAP://rootDSE")
strDomainDN = adsRootDSE.Get("defaultNamingContext")

strADsPath = "LDAP://CN=System," & strDomainDN

Set adsContainer = GetObject(strADsPath)

Set oOU=adsContainer.Create("Container", "CN=System Management")
oOU.Put "Description", "SMS OU"
oOU.SetInfo

wscript.echo "Script Complete"