GPO Nur folgende Programme ausführen - Aero Oberfläche wird bei neuen Profilen nicht geladen

Bitte zuerst mal diesen Artikel lesen: http://technet.microsoft.com/en-us/library/bb457006.aspx
Danke.

Grüße Uwe

Standardmäßig bekommen die User wenn ich mich nicht irre, auf einem Terminal-Server ein Windows-Basis Design zugeteilt. Versuch mal dies mit Desktop>Anpassen auf ein Aero-Design umzustellen.

Mach daraus eine Ordnerausnahme mit folgendem Pfad C:\Windows\ -> "Nicht eingeschränkt" und C:\Windows\system32 -> "Nicht eingeschränkt" . Und den Server neu starten nicht vergessen WICHTIG!!, sonst wirken die Änderungen nicht.

Moin allerseits.

Fanello nutzt Benutzerkonfig - Administrative Vorlagen - System - Nur zugelassenen Windows-Anwendungen auführen
colinardo spricht also von einer anderen GPO.

Fanello, Du solltest nachdenken, die von colinardo zu nutzen, da Deine nicht als Ausführungsschutz gedacht ist und mühelos übergangen werden kann, wie auch aus der Erläuterung zur Policy hervorgeht.

Das sollte die passende GPO für dich sein, um ein Theme festzulegen:
Dort folgenden Pfad eintragen:

Befass Dich mit applocker (ich sehe gerade, es geht um 2008 R2, da gibt es schon applocker, das ist die Weiterentwicklung von Colinardos). Deine Policy gar nicht mehr benutzen.

Applocker gibt es nur in der Computerkonfig.

Genau so.

Hast Du den in jeder Anleitung genannten Dienst aktiviert? Ohne den läuft nichts.

Arbeite mit einer Whitelist und nicht mit Sperren.
Erlaube den Admins alles bzw. nutze die Gruppe applockeradmins (hieß die, wenn ich mich nicht täusche). Den Nutzergruppen nur das Nötige, wie Du schon angesagt hattest. Per se ist alles in program files und unterhalb von c:\windows für alle offen, da Windows davon ausgeht, dass dort nur vom Admin gewollte Programme liegen (denn nur der Admin darf dorthin schreiben/dorthin installieren).
Willst Du die dortigen Programme jedoch nicht generell freigeben, musst Du die Defaultregeln ändern.

PS: die genannten "Server Manager, die Powershell und die ganzen Verwaltungsprogramme" können in den Händen von Usern eh keinen Schaden anrichten, ihnen fehlen die Rechte.

Hi

Sollten dich die an der startleiste gepinten Servermanager & powershell icons stören kannst du diese mit einem einfachen VBS script automatisch entfernen lassen.
Einfach über eine GPO für die entsprechenden User ausführen lassen.

Option Explicit

Const CSIDL_COMMON_PROGRAMS = &H17
Const CSIDL_PROGRAMS = &H2
Const CSIDL_STARTMENU = &HB

Dim objShell, objFSO
Dim objCurrentUserStartFolder
Dim strCurrentUserStartFolderPath
Dim objAllUsersProgramsFolder
Dim strAllUsersProgramsPath
Dim objFolder
Dim objFolderItem
Dim colVerbs
Dim objVerb

Set objShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objCurrentUserStartFolder = objShell.NameSpace (CSIDL_STARTMENU)
strCurrentUserStartFolderPath = objCurrentUserStartFolder.Self.Path
Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)
strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path


'Server-Manager
If objFSO.FileExists(strAllUsersProgramsPath & "\Administrative Tools\Server Manager.lnk") Then
Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Administrative Tools")
Set objFolderItem = objFolder.ParseName("Server Manager.lnk")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
' MsgBox Replace(objVerb.name, "&", "")
If Replace(objVerb.name, "&", "") = "Von Taskleiste lösen" Then objVerb.DoIt
Next
End If


'Windows PowerShell
If objFSO.FileExists(strAllUsersProgramsPath & "\Accessories\Windows PowerShell\Windows PowerShell.lnk") Then
Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Accessories\Windows PowerShell")
Set objFolderItem = objFolder.ParseName("Windows PowerShell.lnk")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
' MsgBox Replace(objVerb.name, "&", "")
If Replace(objVerb.name, "&", "") = "Von Taskleiste lösen" Then objVerb.DoIt
Next
End If

PS: Solltest du Zb. Outlook an die Taskleiste pinnen wollen geht das auch für alle User per Script:

Option Explicit

Const CSIDL_COMMON_PROGRAMS = &H17
Const CSIDL_PROGRAMS = &H2
Const CSIDL_STARTMENU = &HB

Dim objShell, objFSO
Dim objCurrentUserStartFolder
Dim strCurrentUserStartFolderPath
Dim objAllUsersProgramsFolder
Dim strAllUsersProgramsPath
Dim objFolder
Dim objFolderItem
Dim colVerbs
Dim objVerb

Set objShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objCurrentUserStartFolder = objShell.NameSpace (CSIDL_STARTMENU)
strCurrentUserStartFolderPath = objCurrentUserStartFolder.Self.Path
Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)
strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path


'Outlook
If objFSO.FileExists(strAllUsersProgramsPath & "\Microsoft Office\Microsoft Outlook 2010.lnk") Then
Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Microsoft Office")
Set objFolderItem = objFolder.ParseName("Microsoft Outlook 2010.lnk")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
' MsgBox Replace(objVerb.name, "&", "")
If Replace(objVerb.name, "&", "") = "An Taskleiste anheften" Then objVerb.DoIt
Next
End If

LG Andy