Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Symbol für Windowsordner auf Windowsfreigaben ändern

Mitglied: SHSpider

SHSpider (Level 1) - Jetzt verbinden

22.04.2010, aktualisiert 10:48 Uhr, 8234 Aufrufe, 5 Kommentare

Habe folgendes Problem:

Die Symbole für Windowsordner lassen sich sowohl lokal auf einem PC ändern, als auch direkt auf einem Server.
c1a2a917b7371072946d7f6c7696c030 - Klicke auf das Bild, um es zu vergrößern

Leider ist dies auf Windowsfreigaben nicht möglich, da der Bereich Ordnersymbole (unter Ordnereigenschaften)
dann ausgeblendet ist.
2e3050532607091a1e2287fb206c752c - Klicke auf das Bild, um es zu vergrößern

Gibt es einen Trick, diesen Bereich z.B. über die Registry einzublenden? Bin für jeden Tip dankbar.
Mitglied: LotPings
22.04.2010 um 11:57 Uhr
Hallo,

ich schlage vor du suchst mit der Suchmaschine deiner Wahl mal nach "Desktop.ini bearbeiten"

Gruß
LotPings
Bitte warten ..
Mitglied: SHSpider
26.04.2010 um 16:43 Uhr
Hallo LotPings,

vielen Dank für den Tip.

Wichtig ist dabei, daß das Dateiattribut auf System geändert wird (attrib +s Verzeichnisname), sonst werden die Symbolveränderungen
durch die Desktop.ini nicht angezeigt.

Beispiel einer Desktop.ini: -> nehme das Icon mit dem IconIndex 109 aus der Datei SHELL32.DLL
[.ShellClassInfo]
IconFile=%SystemRoot%\system32\SHELL32.dll
IconIndex=109

Komfortabler wäre es natürlich, wenn man das Ordnersysbol auch über den Eigenschaftsdialog (siehe oben)
verändert könnte,

Also wer noch eine komfortable Lösungs hat, kann sich gerne noch melden.

Viele Grüße
SHSpider
Bitte warten ..
Mitglied: LotPings
26.04.2010 um 17:10 Uhr
Zitat von SHSpider:
Komfortabler wäre es natürlich, wenn man das Ordnersysbol auch über den Eigenschaftsdialog (siehe oben) verändert könnte,
Also wer noch eine komfortable Lösungs hat, kann sich gerne noch melden.

IMO ist das Spielerei, wenn Anwender das problemlos ständig ändern könnten, würden sie es auch tun.
Sind wir hier nicht im Administrator Forum?

Ein Script/Batch zusammen zuschrauben, welches die Attribute ändert und ggfs. fürs Icon eine Datei auswählt, sind wir doch alle in der Lage.
Aber den Aufwand treiben wir doch nicht für eine einmalige Sache.
Und wer es häufiger braucht, sollte sich überlegen ob er wirklich hierher gehört.

Gruß
LotPings
Bitte warten ..
Mitglied: Stripe
29.06.2010 um 13:15 Uhr
Hi All,

habe dasselbe Problem. Es sind mehrere Ordner vorhanden ca. 100 und es sollte auf einen Blick 3 verschiedene Zustände der Ordner (neu, bearbeitet,erledigt) erkannt werden. Das ganze sollte von relativ unerfahrenen Benutzern gehandelt werden können.

Any Ideas??

Schon mal vorab ein Dankeschön.
Gruß
Tom
Bitte warten ..
Mitglied: LotPings
29.06.2010 um 19:16 Uhr
Hallo Tom,

es gibt von der PC-Welt ein über die Ordnereigenschaften aufrufbares VBScript welches das Editieren der Desktop.ini erleichtert. Das installiert sich selber (ungünstigerweise -> Rechte) im Windows Verzeichnis und im entsprechenden Registry-Key.
Für den Einsatz im Netzwerk solltest du bei diesem angepassten Script für "Windir" einen anderen, von allen PCs errecihbaren Ort wählen.

Aus Zeitmangel belasse ich es hier auch beim manuellen Editieren der Datei - das liesse sch durchaus auch weiter automatisieren.

Das die User, die den Status ändern sollen, zumindest auf dem entsprechenden Ordnern Schreibrechte brauchen, versteht sich von selber.
Unter Vista/Win7 sind zur Installation Adminrechte nötig.
Das Update der Symbole klappte hier bei mir unter Win7Ult64 nicht sofort, unter Xp dagegen kein Problem.
Als Symbole schlage ich aus der Shell32.dll vor neu=4 erledigt=110 bearbeitet=205

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

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

30.
Dim Eingabe : Eingabe = wscript.arguments(0)
31.
Dim DesktopINI
32.

33.
If Not oFS.FileExists(Eingabe & "\desktop.ini") Then
34.
Set DesktopINI = oFS.CreateTextFile(Eingabe & "\desktop.ini", False)
35.
  With DesktopIni
36.
    .WriteLine "[.ShellClassInfo]"
37.
    .WriteLine "InfoTip=Ordnerstatus ändern neu/bearbeitet/erledigt"
38.
    .WriteLine "IconFile=%SystemRoot%\system32\SHELL32.dll"
39.
    .WriteLine "; von den folgenden Zeilen IconIndex= "
40.
    .WriteLine "; darf nur eine *aktiv* ohne führendes Semikolon sein."
41.
    .WriteLine ";Symbol leerer Ordner für neu"
42.
    .WriteLine "IconIndex=4"
43.
    .WriteLine ";Symbol Ordner mit Stern für bearbeitet"
44.
    .WriteLine ";IconIndex=205"
45.
    .WriteLine ";Symbol Ordner mit Haken für erledigt"
46.
    .WriteLine ";IconIndex=110"
47.
    .WriteLine "ConfirmFileOp=0"
48.
    .Close
49.
  End With
50.
End If
51.

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

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

61.
' Diese Funktion überprüft die Registry nach vorhandenen Schlüsseln. ----------
62.
Function KeyExists(key)
63.
  on error resume next
64.
  Dim Wert : Wert = oWSH.RegRead(key)
65.
  KeyExists = false : if err.Number=0 then KeyExists = true
66.
  err.clear
67.
  on error goto 0
68.
end function
Gruß
LotPings
Bitte warten ..
Ähnliche Inhalte
Microsoft
Symbol MC3070
Frage von Janekr77Microsoft2 Kommentare

Hi, hat jemand Erfahrung mit dem Motorola Symbol MC3070. Wie werden die gescannten Sachen ( Barcodes ) übertragen und ...

Microsoft Office

Excel Pdf Datei als Icon Symbol in Word einfügen per Drag and drop?

gelöst Frage von GeforceMicrosoft Office4 Kommentare

Moin zusammen, ich habe hier Win 7 mit Office 2013. Leider kann ich seit dem Update von 2010 auf ...

Windows 10

Was ist dieses Symbol?

Frage von MarabuntaWindows 105 Kommentare

Hallo, Win10x64Pro Wenn ich mit der Maus drüber bin, wird es grau aber zeigt keine Info. Ansonsten ist es ...

Google Android

Unbekanntes Symbol in Android 5.1

gelöst Frage von wiedhalmGoogle Android2 Kommentare

Hallo Experten! Als neuer Einsteiger in die Androidwelt habe ich nun auf meinem Phone ein Symbol entdeckt - wahrscheinlich ...

Neue Wissensbeiträge
Windows Server

Active Directory ESE Version Store Changes in Server 2019

Information von Dani vor 2 TagenWindows Server

Moin, Last month at Microsoft Ignite, many exciting new features rolling out in Server 2019 were talked about. But ...

Exchange Server

Microsoft Extending End of Support for Exchange Server 2010

Information von Dani vor 2 TagenExchange Server3 Kommentare

Moin, After investigating and analyzing the deployment state of an extensive number of Exchange customers we have decided to ...

Schulung & Training

Humble Book Bundle: Network and Security Certification 2.0

Tipp von NetzwerkDude vor 2 TagenSchulung & Training

Abend, bei HumbleBundle gibts mal wider ein schönes Paket e-books: sind verschiedene Zertifizierungen wie MCSA, CCNA, CompTIA etc., für ...

Voice over IP

Telekom Umstellung von ISDN Anlagenanschluss auf IP-Telefonie

Erfahrungsbericht von NixVerstehen vor 6 TagenVoice over IP10 Kommentare

Hallo zusammen, nachdem nun vor ein paar Tagen die zwangsweise Umstellung von ISDN auf IP-Telefonie problemlos über die Bühne ...

Heiß diskutierte Inhalte
VB for Applications
Euro-Zeichen in jedem neu erstellten Brief mit Word automatisch entfernen
gelöst Frage von imebroVB for Applications23 Kommentare

Hallo, ich habe ein Problem mit Word, bzw. mit dem €-Zeichen, welches bei Erstellung eines Word-Briefes automatisch eingesetzt wird. ...

Batch & Shell
Regedit eintrad ändern als Admin
Frage von cyberworm83Batch & Shell19 Kommentare

Hallo zusammen, ich bin derzeit als Rollout Techniker unterwegs und muss täglich bei zig Rechnern einen Registry Einträg ändern ...

Visual Studio
Prüfen, ob Programm schon disposed wurde
Frage von MarcoBornVisual Studio17 Kommentare

Hallo Forum, ich habe in VB.NET ein Programm geschrieben, welches Word startet und dort Daten ausliest. Obwohl ich die ...

LAN, WAN, Wireless
Gebäude mit LWL-Anschlüssen ausstatten - VorNachteile?
Frage von staybbLAN, WAN, Wireless17 Kommentare

Hallo zusammen, es gibt ja mittlerweile viele Firmen die nicht nur ihre Backbones mit FibreChannel anbinden sondern auch direkt ...