Re: CreateADUSer function
- From: "Al Dunbar [MS-MVP]" <alan-no-drub-spam@xxxxxxxxxxx>
- Date: Thu, 11 Jan 2007 21:30:21 -0700
It is hard to say where the problem lies, as you have not shared the code
that conditionally calls this function or the code that sets the global
variables it uses.
To see if the problem is in the function itself, I'd suggest pasting it into
a short test script that sets reasonable values for stracctname and etc. and
then calls the function unconditionally. If that still fails and no errors
are flagged, add code to the function to display the variables to make sure
you are not, for example, spelling them differently in the main program.
As a point of style and maintainability, a function like this makes much
more sense when the values it needs are passed as parameters, rather than
through global variables.
/Al
"Ralph Karam" <RalphKaram@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:63C51000-37D3-4D18-B37B-37D02A21A6AB@xxxxxxxxxxxxxxxx
I'm unable to find out why my user accounts are not being created I'vegot
an If then statement higher that calls this function if I want the userempty
created. i know none of the users exist because I'm testing against an
domain.
'**********************************************
Function CreateUser
Set objou = GetObject("LDAP:\\OU=Users,OU=" & strstate & "," & strDCRoot)
Set objUser = objou.Create("User","CN= " & strlname & "\, " & strfname)
objuser.sAMAccountname = stracctname
objuser.SetInfo
objuser.givenName = strfname
objuser.sn = strlname
objuser.displayName = strdisplayname
objuser.mail = strmail
objuser.SetPassword strPWD
objUser.SetInfo
objUser.AcountDisabled = False
objUser.SetInfo
' WScript.Echo "Account: " & strdisplayname & " created successfully"
End Function
'*************************************
Ralph
.
- Follow-Ups:
- Re: CreateADUSer function
- From: Ralph Karam
- Re: CreateADUSer function
- Prev by Date: Re: Get element number of array
- Next by Date: Re: Start a remote process
- Previous by thread: Re: Create AD OUs issue
- Next by thread: Re: CreateADUSer function
- Index(es):
Relevant Pages
|
Loading