code:

---

;old name,new name
;you may use ; to comment out lines in this file.

mroot2,Mroot
james2,james
testuser2,testuser

---

code:

---

$usersfile = "users.txt"

$nul = open(1,$usersfile,2)

$userdata = readline(1)
do 
	select
		case substr($userdata,1,1) = ";" or instr($userdata,",") = 0
			;ignore this line
		case 1
		$userdata = split($userdata,",")

		if ubound($userdata) <> 1 ? "Please check the $userfile for bad data" exit(1) endif
		
		$error = userrename(@domain,$userdata[0],$userdata[1])

		if @error = 0 
			? "User " + $userdata[0] + " Renamed to " + $userdata[1] color g+/n " OK" color w/n
		else
			? color r+/n "ERROR RENAMING " + $userdata[0] + " TO " + $userdata[1] + " @error:@serror" color w/n
		endif
		 

	endselect
	$userdata = readline(1)
until @error <> 0

---

code:

---

$userdata = split("mroot,Mroot",",")
$profile = "new profile"
$homedirectory = "new home directory"

$UserOBJ = GetObject("WinNT://@domain/"+$userdata[1]+",user")
if vartype($UserOBJ) = 9 and @error = 0

	;here is the profile	
	$userobj.put("Profile","$profile")
	if @error = 0
		$userobj.SetInfo
	else
		? "Error setting profile"
	endif

	;here is the HomeDirectory
	$userobj.put("HomeDirectory","$homedirectory")
	if @error = 0
		$userobj.SetInfo
	else
		? "Error setting homedirectory"
	endif

endif

---