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

---

ScriptLogic's library is fine but the problem is - it belongs to them - not us - plus i get the impression it's not updated too often (or it's edited too vigoursly) not too sure what's going on there ...

We need our own !

-Shawn

-Shawn

[ 08 November 2001: Message edited by: Shawn ]

It is a good idea, but ....

• how prevent we a chaos? who will monitor the input of topics?
  f.e. other boards are removing unwanted topics from their forums and they let
  the member know which forum he should use for his request.
  a suggestion: one or more active members becomes moderator from this new forum
  and they will read the information and they will close a topic when necessary to
  prevent a very long discussion.

• topics code can't easily transfer to your environment. f.e. indentations are
  gone. so scripts must also put somewhere on internet in plain text format.
  a suggestion: the site http://kixscript.isorg.net will have a place for those scripts.

• sometimes a script is in development and a lot of members are reacting on.
  is this what we want in this new forum? reactions are no problem on other forums.
  a suggestion: the moderator(s) will close topics must faster to prevent such
  discussions.
  

greetings.

btw: Bryce, your scripts are very usefull.

If there's a need for a moderator, I'm open for it.

There is a moderated read only "Examples" forum which apparently contains som "Fine examples" of scripts. This is currently empty. I like to think that this is because it is moderated by "no one" rather than that we've collectively been unable to come up with a "Fine example" of a script

BTW DOC, IM is not gonna happen. Corporate firewall rules... they've got me in the penalty box for being vocal...

I played around with this udf (it already has a place of honor in my udf folder here )
you may need to tweak a little because it returns 0 allthough the user wasn't created (occurs when $rightstouse has no right to create users )

Did you already got time to code CopyUser() ???
I don't want to push you, only looking forward to it !!!

ermmm .. in the mean time I had success creating those users (with all neccessary enhancements) on all of our domains using addusers.exe ... but hey , I'd really prefer UDFs !!!

J.

ps. Ahh yes, please create an udf library PLUS a games forum

_________________________

Their are a large number of variables to handle and that will take some time to write.

When you copy a user account you really are creating a new account and filling in the new account with information from the template account. But at the same time, you will want to personalize the new account, and this is where the devil in the details is .

already, i see a need for a new UserSetpass() UDF, and i am sure others will popup. Even as i set here typing this, i am thinking that the devil of a task for all of the user properties... should be it's own UDF file as well UserProperties().

so a UserCopy() UDF will be a high end UDF that calls other UDF's to preform the required task's.

I will take a look at that bug in UserCreate(), thanks.

Bryce

Henri

thanks to you ! What about the Games forum ?

J.

_________________________

Basically, if you already have a valid security token with the computer, it appears that .OpenDSObject ignores the given userid and password to make the connection with.

this tosses a nice wrench in to my thought's for my UDF library

hopefully fixable !?!

_________________________

Cancel $rightstouse !!!
It will be anyway used exclusively (at least 99,9% I think) by admin staff !
right ?
So an avarage domain admin should know about getting applicable credentials (on a scripting point of view )

J.

_________________________

that is what i am going to have to do.

The sad thing is that $rightstouse does work for non-trusted domains and non-member workstations..... but you can do the same thing by mapping to the non-trusted domain/workstation IPC$ share (this is all that OpenDSObject does anyway).

Bryce

please note that the only reason why I even noticed that was that I was a bit tired at test time and accidentally assumed $rightstouse to be $usertocopy ...

_________________________

cj

code:

---

break on

$ie = createobject("internetexplorer.application")

$ie.navigate("about:blank")
while $ie.busy and @error=0 loop

$html = '<'+'OBJECT ID="DAControl" STYLE="position:absolute; left:0; top:0;width:800;'+
	'height:300;z-index: -1" CLASSID="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D"'+'>'+
	'<'+'/OBJECT'+'>'

$ie.document.write("$html")

$ie.visible = 1

$dacontrol = $ie.document.all("dacontrol")
$m = $dacontrol.meterlibrary

; Create an animated color

$half = $m.danumber("0.5")
$clr = $m.colorhslanim($m.mul($m.localtime, $m.danumber("0.345")),$half, $half)

; Contstruct a 12pt font and a text image

$font = $m.font("Arial", 11, $clr)  
$txtimg = $m.stringimage("KiXtart 2001 - A Scripting Odessey", $font)

; Move the text image across the page

$pos = $m.mul($m.sin($m.localtime), $m.danumber("0.02"))
$scl = $m.add($m.danumber("2"), $m.abs($m.mul($m.sin($m.localtime), $m.danumber("3"))))
$xf = $m.compose2($m.translate2anim($m.danumber("0"), $pos), $m.scale2uniformanim($scl))                       
$txtimg = $txtimg.transform($xf)

; Assign the animation back to the control and start it

$dacontrol.image = $txtimg
$dacontrol.start
gets$

exit 1

---

Code adapated from the DirectAnimation SDK

-Shawn

[ 09 November 2001: Message edited by: Shawn ]

[ 09 November 2001: Message edited by: Shawn ]

Is there someway to get this code out easily?

cj