Anyone ?

tia
Jochen

[ 07 November 2001: Message edited by: jpols ]

_________________________

But you can easly create a new user, and use a template user to fill in the information..... give me a little bit to write the code

Shawn was actually crawling through the ADSI SDK , but right now have to take his kidz to school (we had a chat as usual)

Big thanx in advance goes out to Houston and Toronto !

I love this board !

J.

_________________________

It can also be non WinNT: interface ...
If there's no (easy) way, I can use also my W2K Notebook.

J.

_________________________

here was what i was planning to write.

New UDF called UserCreate
New UDF called UserCopy

UserCopy UDF will need GroupAdd, GroupMembers and UserCreate UDF's to get all of the correct information in place. Plus copy the things like "password never expires", "user can not change password", profile path, logon script, ..... into the new account.

Bryce

pure NT Domain environment (ALL trusts us )

J.

_________________________

What's the delay my friend ? Jochen and I are on on ICQ chat and we're anxiously awaiting another masterpeice ! You usually whip these things off in half-an-hour !

-Shawn

I got to work, and they are wanting me to do some work! of all things!!!

Bryce

You got ICQ @ work ?

-Shawn

Important stuff first !

J.

_________________________

ok,

here is the UserCreate() UDF

code:

---

Function UserCreate($target,$user,OPTIONAL $rightstouse)
;UserCreate Function
;
;Syntax:
;	UserRename(<Domain/computer>,<userid>,[rights to use])
;	<domain/computer>	= the domain or computer you want to create a new account in
;	<userid>		= the name of the account to create
;	[rights to use]		= optional user name and password used to make the account
;
;Examples:
;	;This will create a user account called "thing1" in the local domain
;	UserCreate(@domain,"Thing1")
;
;	;This will create a user account called thing2 on the workstation 
;	;beanbag in the kixtart domain
;	usercreate("kixtart/beanbag","thing2")
;
;	;This will create a user account called thing3 on the workstation 
;	;beanbag in the kixtart domain, using the local Administrator account
;	usercreate("kixtart/beanbag","thing2","beanbag\administrator|password")
	if $rightstouse
		$rightstouse = split($rightsToUse,"|")
		if ubound($rightstouse) <> 1 exit(1) endif
		? $rightstouse[0]
		? $rightstouse[1]
			
		if instr($target,"/") <> 0 
			$target = getobject("WinNT:").OpenDSObject("WinNT://$target,computer",$rightstouse[0],$rightstouse[1], 2)
			if @error <> 0  and vartype($target) <> 9 exit(@error) endif
		else
			$target = getobject("WinNT:").OpenDSObject("WinNT://$target",$rightstouse[0],$rightstouse[1],2)
			if @error <> 0  and vartype($target) <> 9 exit(@error) endif
		endif
	else
		if instr($target,"/") <> 0 
			$target = getobject("WinNT://$target,computer")
			if @error <> 0  and vartype($target) <> 9 exit(@error) endif
		else
			$target = getobject("WinNT://$target")
			if @error <> 0  and vartype($target) <> 9 exit(@error) endif
		endif
	endif
	$user = $target.create("user","$user")
	if @error <> 0  and vartype($user) <> 9 exit(@error) endif
	$user.setinfo
	exit(@error)
endfunction

---