3
Ansicht per Gruppenrichtlinie auf Details am Client erzwingen
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.
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.
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 56784
Url: https://administrator.de/contentid/56784
Ausgedruckt am: 20.11.2024 um 05:11 Uhr
3 Kommentare
Neuester Kommentar
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
Wollen ebenfalls die Ordneroption per Gruppenrichtlinie vorgeben. Müssen die Detailansicht unbedingt als Vorgabe einstellen.
Vielen Dank
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
Gruß Ronny
'* 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é
'* 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é
