AddExtender("WWPST32I.DLL")
Addextender("WWWNT32I.DLL")
Time=TimeDate ( )
T1=DiskExist("q")
T2=DiskExist("r")
if T1 ==@True then wntCancelCon("q:",@FALSE,@TRUE)
if T2 ==@True then wntCancelCon("r:",@FALSE,@TRUE)

H="C:\UserMove.txt"
old = FileOpen(H, "READ")
while old != "*EOF*"
	name = FileRead(old)
	Gosub 3380	
	Gosub SHARES
	If name == "*EOF*" Then Break
endwhile
FileClose(old)
:SHARES
If wntGetCon("q:")=="" then Message("Drive is not mapped","q: Cannot set read only permissions on home.")
If wntGetCon("r:")=="" Then Message("Drive is not mapped","r: Cannot set read only permissions on data.")
BoxTitle("Shares")
BoxText("setting read only permissions.")
	wntAccessAdd("","q:\%name%\Personal","AFFYMETRIX\%name%",300,"DirNT:Read")
	wntAccessAdd("","q:\%name%\Public","AFFYMETRIX\%name%",300,"DirNT:Read")
	wntAccessAdd("","r:\%name%\Public","AFFYMETRIX\%name%",300,"DirNT:Read")
	wntAccessAdd("","r:\%name%\Transfer","everyone",300,"DirNT:Read")
	wntAccessAdd("","r:\%name%\Transfer","domain users",300,"DirNT:Read")
	wntCancelCon("q:",@TRUE,@TRUE)
	wntCancelCon("r:",@TRUE,@TRUE)
	handle=FileOpen("c:\UserSharePer.txt","APPEND")
   Filewrite(handle,"User:	%name%  ****Set read only permissions****	%time%")
	FileClose(handle)
	BoxText("User permissions changed successfully!")
	Delay("1")
	BoxShut()
return	

:3450
wntAddDrive(@default,@default,"\\NTFS02\home","q:",@False)
wntAddDrive(@default,@default,"\\NTIS02\data","r:",@False)
Return

:3380
wntAddDrive(@default,@default,"\\NTFS01\home","q:",@False)
wntAddDrive(@default,@default,"\\NTIS01\data","r:",@False)
Return

:1145
wntAddDrive(@default,@default,"\\NTFS03\home","q:",@False)
wntAddDrive(@default,@default,"\\NTIS03\data","r:",@False)
Return

:428
wntAddDrive(@default,@default,"\\NTFS04\home","q:",@False)
wntAddDrive(@default,@default,"\\NTIS04\data","r:",@False)
Return