Option Explicit
Dim objRoot, objDomain, objOU
Dim strContainer

' 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 strContainer
' Also note the use of: .SetInfo

On Error Resume next