One more question for everyone on this and I am hopefully done with the script

At the line "objUser.AccountDisabled = False" in this script it is supposed to enable the account in Active Directory, however it always creates the accounts disabled. I've tried adding "objUser.SetInfo" after the command and get an error (30, 2) (null): The specified directory service attribute or value does not exist." 

Does anyone have any other ideas I can try to get the accounts to be created enabled?

Thanks in advance for your replies. 

```
Dim strCode,strID,StrFName,strLName,strFirm,strPwd,strIPGM,strServer,strLMS,strSql,strLMSV,strDisplay

trCode = "za"
strID = "zademo1"
strFName = "Demo"
strLName = "Tester"
strFirm = "Demo"
strPwd = "za1234"
strServer = "rkasp01"
strDisplay = strFName & strLName
strIPGM = "lms" & strCode

Set objOU = GetObject("LDAP://cn=users,dc=asp,dc=rippe,dc=com")

Set objUser = objOU.Create("User", "cn=" & strID)
objUser.Put "sAMAccountName", strID

objUser.Put "givenName", strFName
objUser.Put "sn", strLName
objUser.Put "displayName", strLName
objUser.Put "homedirectory", "\\rkpdc\" & strFirm & "\" & strID
objUser.Put "scriptpath", strFirm & ".bat"
objUser.SetInfo

objUser.SetPassword strPwd
objUser.Put "PasswordExpired", CLng(1)
objUser.AccountDisabled = False  <---------------
'objUser.SetInfo

Set objOU = GetObject("LDAP://cn=users,dc=asp,dc=rippe,dc=com")
Set objGroup = objOU.Create("Group", "cn=" & strFirm)
objGroup.Put "sAMAccountName", strFirm

objGroup.Add objUser.ADSPath

```