'* 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