Addextender("WWWNT34I.DLL")
Time=TimeDate ( )
H="C:\users1.txt"
I="C:\users2.txt"
usernm = FileOpen(H, "READ")
userid = FileOpen(I, "READ")
while @TRUE
		x = FileRead(userid)
		y = FileRead(usernm)
		Errormode(@off)
			dir="60"
			cmt= "Affymetrix Berkley"
			ProxyUse="9"	
			wntUserAddDat("","")
			wntUserAddDat("Name","%x%")
			wntUserAddDat("Full_name","%y%")
			wntUserAddDat("Password","password")
			wntUserAddDat("Comment","%cmt%")
			wntUserAddDat("Script_path","%dir%")
			wntUserAddDat("Flags","512")
			wntUserAddDat("Flags","65536")
			wntUserAddDat("acct_expires","0000:00:00:00:00:00")
				If Dir==50 
					wntUserAdd("\\NTDC50")	
				else
					wntUserAdd("\\NTDC01")
				endif
			GoSub WRITE
		If ProxyUse==9 then wntMemberSet("\\NTDC01","Proxy Users","%name%",@GlobalGroup)
		If x == "*EOF*" Then Break
endwhile
ErrorMOde(@ON)

:WRITE
handle=FileOpen("\\NTCIS02\IS\New Users\NewUser.txt","APPEND")
Filewrite(handle,"%first% %last%")
Filewrite(handle,"User ID:	%name%")
Filewrite(handle,"SMTP Mail:	%first%_%last%@affymetrix.com")
Filewrite(handle,"Exchge ID:	%last%,%first%")
Filewrite(handle,"Location:	%cmt2%%cmt%")
Filewrite(handle,"Time/Date:	%time%")
Filewrite(handle,"_____________________________________")
FileClose(handle)
return