Symbol für Windowsordner auf Windowsfreigaben ändern

' Ordnerstatus - Symbol von Ordnern mittels Desktop.Ini ändern  
' Ideengeber für dieses Script ist   
' <http://www.pcwelt.de/start/software_os/tipps_tricks/windows/22238/ordner_tuning_desktopini_bequem_anpassen/>  
Option explicit
Dim oWSH   : set oWSH = CreateObject("Wscript.Shell")  
Dim oFS    : set oFS = CreateObject("Scripting.FileSystemObject")  
Dim windir : windir = oWSH.ExpandEnvironmentStrings("%WINDIR%")  

' Keine Parameter? Dann (de-) installiert sich das Script selbst  
Dim oFile : Set oFile = oFS.GetFile(Wscript.ScriptFullName)
Dim Key : Key = "HKCR\directory\shell\OrdnerStatus\"  
If Wscript.Arguments.Count = 0 Then
  oFS.CopyFile oFile, windir & "\"  
  If Not KeyExists( Key ) Then
    oWSH.RegWrite Key , "Or&dnerstatus"  
    oWSH.RegWrite Key & "Command\", "wscript.exe " & Windir & "\" & oFile.Name & " " &Chr(34) & "%1" & Chr(34) & ""  
    MsgBox "Die erweiterten Ordnereinstellungen wurden erfolgreich installiert. " & _  
           "Im Kontextmenü zu jedem Ordner können Sie jetzt mit dem neuen Menüpunkt " & Chr(34) & _  
           "Ordnerstatus" & Chr(34) & " die Desktop.ini eines beliebigen Ordners editieren", 64, _  
           "OrdnerStatus Tweak installiert"  
  Else
    oWSH.RegDelete( Key & "Command\")  
    oWSH.RegDelete( Key )
    MsgBox "Die erweiterten Ordnereinstellungen wurden erfolgreich deinstalliert", 64, _  
            "OrdnerStatus Tweak entfernen"  
  End If
  wscript.quit
End if

Dim Eingabe : Eingabe = wscript.arguments(0)
Dim DesktopINI

If Not oFS.FileExists(Eingabe & "\desktop.ini") Then  
Set DesktopINI = oFS.CreateTextFile(Eingabe & "\desktop.ini", False)  
  With DesktopIni
    .WriteLine "[.ShellClassInfo]"  
    .WriteLine "InfoTip=Ordnerstatus ändern neu/bearbeitet/erledigt"  
    .WriteLine "IconFile=%SystemRoot%\system32\SHELL32.dll"  
    .WriteLine "; von den folgenden Zeilen IconIndex= "  
    .WriteLine "; darf nur eine *aktiv* ohne führendes Semikolon sein."  
    .WriteLine ";Symbol leerer Ordner für neu"  
    .WriteLine "IconIndex=4"  
    .WriteLine ";Symbol Ordner mit Stern für bearbeitet"  
    .WriteLine ";IconIndex=205"  
    .WriteLine ";Symbol Ordner mit Haken für erledigt"  
    .WriteLine ";IconIndex=110"  
    .WriteLine "ConfirmFileOp=0"  
    .Close
  End With
End If

' System Atrribut setzen ------------------------------------------------------  
Dim Handle : set Handle = oFS.GetFolder(Eingabe)
With Handle
  If Not (.attributes AND 4) Then .attributes = .attributes + 4
End With

' Notepad starten, um DESKTOP.INI zu bearbeiten -------------------------------  
oWSH.Run windir & "\notepad.exe " & Eingabe & "\desktop.ini"  

' Diese Funktion überprüft die Registry nach vorhandenen Schlüsseln. ----------  
Function KeyExists(key)
  on error resume next
  Dim Wert : Wert = oWSH.RegRead(key)
  KeyExists = false : if err.Number=0 then KeyExists = true
  err.clear
  on error goto 0
end function