'*******************
'* Script BY Alex
'* Question 1
'*******************

ON Error Resume NEXT

'* Part 1: create an OU named HR

strDomain = "dc=contoso,dc=com"
set objDomain = GetObject("LDAP://" & strDomain)
set objOU = objDomain.Create("OrganizationalUnit", "ou=HR")
objOU.setInfo

'* Part 2: CREATE USER Obama, IN the HR OU

strContainer = "ou=HR,dc=contoso,dc=com"
SET objContainer = GetObject("LDAP://" & strContainer)
SET objUser = objContainer.CREATE("user", "cn=Obama")
objUser.sAMAccountName = "Obama"
objUser.SetPasword "password"
objUser.AccountDisabled = FALSE
objUser.setInfo