Re: CreateADUSer function
- From: Ralph Karam <RalphKaram@xxxxxxxxxxxxxxxxxxxxxxxxx>
- Date: Fri, 12 Jan 2007 08:23:00 -0800
Thanks Al,
I tried the method you suggeted as I understood it and the process still
fails. I'll pos the whole script if you still think its necessary.
regarding the code that sets the variable I'm confident they work properly
because I have functions that check to see if the Displayname, mail, and
samaccountname already exist and they work very well
*****************
code snip
response1 = MsgBox ("Do you want to run in Create Users
mode?",vbyesno,"Create users?")
If response1 = vbyes then
Call CreateUser
End If
Function CreateUser
Set objou = GetObject("LDAP:\\OU=Users,OU=NJ,DC=testdomain,DC=local" )
Set objUser = objou.Create("User","CN=Lastname,\ Firstname" )
objuser.sAMAccountname = "FLastname"
objuser.SetInfo
objuser.givenName = "Firstname"
objuser.sn = "Lastname"
objuser.displayName = "LastName, FirstName"
objuser.mail = "Firstname.Lastname@xxxxxxxxxxxxxx"
objuser.SetPassword "P@55word"
objUser.SetInfo
objUser.AcountDisabled = False
objUser.SetInfo
End Function
"Al Dunbar [MS-MVP]" wrote:
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: Al Dunbar [MS-MVP]
- Re: CreateADUSer function
- From: Richard Mueller [MVP]
- Re: CreateADUSer function
- References:
- Re: CreateADUSer function
- From: Al Dunbar [MS-MVP]
- Re: CreateADUSer function
- Prev by Date: Re: Batch printing
- Next by Date: Re: VBScript analog to Enum (from VB6)...
- Previous by thread: Re: CreateADUSer function
- Next by thread: Re: CreateADUSer function
- Index(es):
Relevant Pages
|