Missing home dir when account created by vbscript

Hi,

I don't see the problem, but it's hard to say with "On Error Resume Next"
used throughout. There seems to be no need to use the Schema method to
enumerate all properties, since you address them explicitly when you assign
values. I would suggest:

Set objUser = GetObject("LDAP://" & DN)
objUser.Put "homeDrive", HomeDrive
objUser.Put "homeDirectory", HomeDir
On Error Resume Next
objUser.SetInfo
If (Err.Number <> 0) Then
On Error GoTo 0
sMsg = sMsg & Err.Number & vbCrLf
sMsg = sMsg & Err.Description & vbCrLf
sMsg = sMsg & "ERROR: SetInfo failed" & vbCrLf
bError = True
End If
On Error GoTo 0

Only one SetInfo is needed. The disadvantage is that if there is an error,
you don't know which attribute raised the error. You can invoke SetInfo
after every value is assigned, but it seems wasteful, although that could
help isolate a problem. I turn off normal error handling only for statements
I expect could raise an error, then restore normal error handling. In the
above, for example, if the "Set objUser" statement raises an error,
execution will halt, but you will get an error message with a line number,
so you know what happened. And, if that Set objUser failed, there's little
point continueing.

From what you say, the attributes are assigned values (since you see them in
ADUC), they just don't seem to be used until you re-assign them in ADUC. By
testing, I find that if you assign "K" for homeDrive, no error is raised and
ADUC shows the value "K:". If you retrieve the value for homeDrive in code,
however, it is "K". I remember testing in the past and finding that this
does not work, it should be "K:" with the trailing colon. My best guess is
that your variable HomeDrive lacks the trailing colon.

Richard
Microsoft MVP Scripting and ADSI
Hilltop Lab - http://www.rlmueller.net