Option Explicit
Dim objou, objUser
Set objOU = GetObject('LDAP://ou=Marketing,dc=mydomain,dc=com')
Set objUser = objOU.Create('User', 'cn=EOsterman')
objUser.Put 'sAMAccountName', 'Eosterman'
objUser.SetInfo


This adds a user to AD. The account is created with a blank password and disabled.