CLASS USER
 
CATEGORY !!SGB_Bespoke
 
	CATEGORY !!SGB_Explorer
		KEYNAME "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
 
		POLICY !!SGB_Explorer_NoDrives 
			PART !!SGB_Explorer_NoDrivesDropdown	DROPDOWNLIST NOSORT REQUIRED
				VALUENAME "NoDrives"
				ITEMLIST
		    		NAME !!SGB_DriveList_C					VALUE NUMERIC	4
		    		NAME !!SGB_DriveList_CNO				VALUE NUMERIC	24580	DEFAULT
		    		NAME !!SGB_DriveList_MNOP				VALUE NUMERIC	61440
		    		NAME !!SGB_DriveList_RestAllDrives		VALUE NUMERIC	67108863
		    		NAME !!SGB_DriveList_RestNoDrives		VALUE NUMERIC	0
				END ITEMLIST
			END PART			
		END POLICY
 
		POLICY !!SGB_Explorer_NoViewOnDrive
			PART !!SGB_Explorer_NoDrivesDropdown	DROPDOWNLIST NOSORT REQUIRED
				VALUENAME "NoViewOnDrive"
				ITEMLIST
		    		NAME !!SGB_DriveList_C					VALUE NUMERIC	4
		    		NAME !!SGB_DriveList_CNO				VALUE NUMERIC	24580	DEFAULT
		    		NAME !!SGB_DriveList_MNOP				VALUE NUMERIC	61440
		    		NAME !!SGB_DriveList_RestAllDrives		VALUE NUMERIC	67108863
		    		NAME !!SGB_DriveList_RestNoDrives		VALUE NUMERIC	0
				END ITEMLIST
			END PART			
		END POLICY
	END CATEGORY ; SGB_Explorer
 
END CATEGORY    ; SGB_Bespoke
 
[strings]
SGB_Bespoke="SGB Custom Settings"
SGB_Explorer="Windows Explorer"
SGB_Explorer_NoViewOnDrive="Prevent access to drives from My Computer"
SGB_Explorer_NoDrives="Hide these specified drives in My Computer"
SGB_Explorer_NoDrivesDropdown="Pick one of the following combinations"
SGB_DriveList_C="Restrict C drive"
SGB_DriveList_CNO="New Metaframe Restrictions (C,N and O drives)"
SGB_DriveList_MNOP="Old Metaframe Restrictions (M,N,O and P drives)"
SGB_DriveList_RestNoDrives="No restriction"
SGB_DriveList_RestAllDrives="All restricted"
 
; vim600: ai ts=4 sw=4 filetype=conf

Break ON
; Calculate drive letters for registry
$sDrives="foo"
While $sDrives
	"Enter drive letters: " GetS $sDrives
	$sDrives=UCase($sDrives)
	$iRegValue=0
	While $sDrives
		$iDriveVal=Exp(2,ASC($sDrives)-ASC("A"))
		$iRegValue=$iRegValue+$iDriveVal
		Left($sDrives,1)+": "+$iDriveVal ?
		$sDrives=SubStr($sDrives,2)
	Loop
	If $iRegValue "Total: "+$iRegValue ? ? $sDrives="foo" EndIf
Loop

Function Exp($x,$y)
	$Exp=1
	While $y>0 $Exp=$Exp*$x $y=$y-1 Loop
EndFunction

Exit 0