kugelschreiber
Apr 16, 2007, updated at Dec 12, 2007 (UTC)
view10704
view3
0
Goto Top

Ansicht per Gruppenrichtlinie auf Details am Client erzwingen

GermansolvedQuestionWindows ServerMicrosoft
Hallo Ihr Lieben,

ich habe hier sicher nur ein kleines Problemchen...aber wir werden sehen...

Also wir haben hier eine Client-Server Umgebung mit einem Win2k3 Server Standard (AD,DNS,WINS,DHCP usw...) und die Clients alle samt Win2k.

Nun möchte ich per Gruppenrichtlinie folgendes festlegen:
Bei allen Benutzern für die die Gruppenrichtlinie gilt soll die Ansicht im Windows Explorer auf Details stehen und die Benutzer sollen diese auch nicht ändern können.

Eine Suche im Zweig des Gruppenrichtlinienobjekt-Editor war erfolglos ebenso wie die Suche hier im Forum.

Für Eure Hilfe bin ich dankbar.

MFG

kugelschreiber


PS: Ich war doch noch schneller als Ihr... unter www.gruppenrichtlinien.de findet man ein sehr schönes Script dazu was auch promt gleich funktioniert und sehr gut beschrieben ist.
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 56784

Url: https://administrator.de/contentid/56784

Printed on: April 19, 2024 at 01:04 o'clock

3 Comments
Latest comment
Goto Top
Member: ReneKruse
ReneKruse Nov 30, 2007 at 07:24:33 (UTC)
Goto Top
setze bitte den den Kompletten Link rein. Danke

Wollen ebenfalls die Ordneroption per Gruppenrichtlinie vorgeben. Müssen die Detailansicht unbedingt als Vorgabe einstellen.

Vielen Dank
Member: kugelschreiber
kugelschreiber Dec 04, 2007 at 15:53:47 (UTC)
Goto Top
Suche mal bei gruppenrichtlinien.de "Ansicht Details" da Gruppenrichtlinien die Variablen per POST Methode verschickt ist kein Direktlink verfügbar. Aber ich habe es auf Anhieb gefunden. Du sicher auch!

Gruß Ronny
Member: ReneKruse
ReneKruse Dec 12, 2007 at 19:06:35 (UTC)
Goto Top
'* Script zur Änderung der Ordneransicht in W2k oder WXP/W2k3 von Norbert Fehlauer
'* Unter Verwendung von "Scripting für Adminstratoren" von Tobias Weltner
'* DeleteRegistryKey Sub von Torgeir Bakken (MVP)


'*Konstanten deklarieren
Const HKCU = &H80000001

'* Betriebssystemversion auslesen
Set objWMIService = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

For Each System In objWMIService
'* Für Windows XP oder neuer
If System.Version >= "5.1.2600" Then
Set wmireg = GetObject("winmgmts:root\default:StdRegProv")

key = "Software\Microsoft\Windows\CurrentVersion\Explorer\Streams"
result = wmireg.CreateKey(HKCU, key)
binaer = Array(08,00,00,00,04,00,00,00,01,00,00,00,00,119,126,19,115,_
53,207,17,174,105,08,00,43,46,18,98,04,00,00,00,02,00,00,00,67,00,00,00)
result = wmireg.SetBinaryValue(HKCU, key,"Settings",binaer)
key ="Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults"
result = wmireg.CreateKey(HKCU, key)
binaer = Array(28,00,00,00,04,00,00,00,00,00,00,00,00,00,144,00,00,00,_
00,00,01,00,00,00,255,255,255,255,240,240,240,240,20,00,03,00,144,00,_
00,00,00,00,00,00,48,00,00,00,253,223,223,253,15,00,04,00,32,00,16,00,40,_
00,60,00,00,00,00,00,01,00,00,00,02,00,00,00,03,00,00,00,245,00,96,00,120,00,_
120,00,00,00,00,00,01,00,00,00,02,00,00,00,03,00,00,00,255,255,255,255,00,00,00,_
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,_
00,00,00,00,00,00,00,00,00)
result = wmireg.SetBinaryValue(HKCU,key,"{F3364BA0-65B9-11CE-A9BA-00AA004AE837}", binaer)
key = "Software\Microsoft\Windows\ShellNoRoam\Bags"
Call DeleteRegistryKey (HKCU, key)
End If

'* Für Windows 2000
If System.Version = "5.0.2195" Then
Set wmireg = GetObject("winmgmts:root\default:StdRegProv")
key = "Software\Microsoft\Windows\CurrentVersion\Explorer\Streams"
result = wmireg.CreateKey(HKCU, key)
binaer = Array(09,00,00,00,04,00,00,00,00,00,00,00,00,119,126,19,115,_
53,207,17,174,105,08,00,43,46,18,98,03,00,00,00,01,00,00,00)
result = wmireg.SetBinaryValue(HKCU, key,"Settings",binaer)
key = "Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults"
result = wmireg.CreateKey(HKCU, key)
binaer = Array(28,00,00,00,04,00,00,00,00,00,00,00,00,00,108,00,00,00,_
00,00,01,00,00,00,255,255,255,255,240,240,240,240,20,00,03,00,108,00,00,_
00,00,00,00,00,48,00,00,00,253,223,223,253,14,00,04,00,32,00,16,00,40,_
00,00,00,00,00,00,00,01,00,00,00,02,00,00,00,03,00,00,00,120,00,96,00,120,00,_
120,00,00,00,00,00,01,00,00,00,02,00,00,00,03,00,00,00,255,255,255,255)
result = wmireg.SetBinaryValue(HKCU,key,"{F3364BA0-65B9-11CE-A9BA-00AA004AE837}", binaer)
End If
Next

'*Sub zum rekursiven Löschen von HKCU\Software\Microsoft\Windows\ShellNoRoam\Bags
Sub DeleteRegistryKey(ByVal sHive, ByVal key)
Dim aSubKeys, sSubKey, iRC
On Error Resume Next
result = wmireg.EnumKey(sHive, key, aSubKeys)
If result = 0 AND IsArray(aSubKeys) Then
For Each sSubKey In aSubKeys
If Err.Number <> 0 Then
Err.Clear
Exit Sub
End If
DeleteRegistryKey sHive, key & "\" & sSubKey
Next
End If
wmireg.DeleteKey sHive, key
End Sub


funtioniert tadellos
Gruß René
GermansolvedQuestionWindows ServerMicrosoft
Hotly discussed
AlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 1 CommentDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment