[NikLok]

DImaN!, Я не уверен что это именно 5 пункт. Я в свое время напмсал скрипт задания кол-ва программ левой колонке старт меню. К сожалению это AutoIt

Код:

 $i=1
Do
	$var = RegEnumKey("HKU", $i)
    If @error <> 0 Then ExitLoop
    $RegExp = "S-1-5-21-.*\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Start_MinMFU"
	$vResult = StringRegExp($var,$RegExp)
	Select
	Case @Error = 1 
	; Error.  Flag is bad.  $vResult = ""
	Case @Error = 2 
    ; Error.  The pattern was invalid.  $vResult = position in $sPattern where error occurred.
	Case @Error = 0
		if @Extended  Then
			$rez = RegWrite("HKEY_USERS\" & $var & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\","Start_MinMFU","REG_DWORD","20")
		Else
      	; Failure.  Pattern not matched.  $vResult = "" or false (0), depending on flag.
		EndIf
	EndSelect
    $i+=1
Until NOT $var