Addextender("WWWNT32I.DLL")
Time=TimeDate ( )

T1=DiskExist("q")
If T1==@FALSE then wntAddDrive(@default,@default,"\\NTFS60\home","q:",@False)

H="C:\Busers.txt"
old = FileOpen(H, "READ")
while old != "*EOF*"
	name = FileRead(old)
	DirMake("q:\%name%")
	DirMake("q:\%name%\Personal")
	DirMake("q:\%name%\Personal\Exchange")
	DirMake("q:\%name%\Public")
	DirMake("q:\%name%\Transfer")
	wntAccessDel("","q:\%name%\Personal","domain users",300)
	wntAccessDel("","q:\%name%\Personal","everyone",300)
	wntAccessAdd("","q:\%name%\Personal","AFFYMETRIX\%name%",300,"DirNT:Change")
	wntAccessAdd("","q:\%name%\Personal\Exchange","AFFYMETRIX\%name%",300,"DirNT:Change")
	wntAccessAdd("","q:\%name%\Public","AFFYMETRIX\%name%",300,"DirNT:Change")
	wntAccessAdd("","q:\%name%\Public","domain users",300,"DirNT:Read")
	wntAccessAdd("","q:\%name%\Transfer","everyone",300,"DirNT:Change")
	wntAccessAdd("","q:\%name%\Transfer","domain users",300,"DirNT:Change")
	Gosub LOG
	If name == "*EOF*" Then Break
endwhile
FileClose(old)

:LOG
handle=FileOpen("c:\NewUserShare.txt","APPEND")
Filewrite(handle,"User Share:	%name%  Created:%time% ")
FileClose(handle)
return