Skrivebord [Dokumenter] [Internet Explorer] [Netværkssteder] UD

Fandt dette, og tænkte hvis du nu gør det omvendte, er ikke lige en reg fil, men kan være et alternativ:

The values that turn back My Documents, Internet Explorer, My Computer, and Network Neighborhood icons all are in:

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel

To restore the My Documents icon, right-click the {450D8FBA-AD25-11D0-98A8-0800361B1103} value, modify the Value Data from 1 to 0, and click OK.

To restore the Internet Explorer icon, right-click {871C5380-42A0-1069-A2EA-08002B30309D}, modify the Value Data from 1 to 0, and click OK.

To restore the My Network Neighborhood icon, right-click {208D2C60-3AEA-1069-A2D7-08002B30309D}, modify the Value Data from 1 to 0, and click OK.

To restore the My Computer icon, right-click the {20DD04FE0-3AEA-1069-A2D8-08002B30309D} value, modify the data value from 1 to 0, and click OK.

... ser lovende ud - leger lige med det - mest imorgen...

Held og lykke med det du! :D

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons]

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu]
"{871C5380-42A0-1069-A2EA-08002B30309D}"=dword:00000001
"{20D04FE0-3AEA-1069-A2D8-08002B30309D}"=dword:00000000
"{208D2C60-3AEA-1069-A2D7-08002B30309D}"=dword:00000001
"{450D8FBA-AD25-11D0-98A8-0800361B1103}"=dword:00000001

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel]
"{450D8FBA-AD25-11D0-98A8-0800361B1103}"=dword:00000001
"{20D04FE0-3AEA-1069-A2D8-08002B30309D}"=dword:00000000
"{208D2C60-3AEA-1069-A2D7-08002B30309D}"=dword:00000001
"{871C5380-42A0-1069-A2EA-08002B30309D}"=dword:00000001

... i en passende [Skrivebord-CleanUp.reg] fil... Jo det virker...

Man skal dog bare lige klaske [F5] på skrivebordet for at opdatere... Er der et andet trix så det sker mere automatisk ?
Evt. inspireret af http://www.eksperten.dk/spm/722341 hvor det er *.VBS baseret.

<tribalroots>: Skal lige imorgen afprøves i 'rigtigt' system...

Glæder mig til at se udfaldet! =)

dr1> Mon ikke at du kan bruge den samme kode som i http://www.eksperten.dk/spm/722341#rid6352732 (første indlæg, 25/07-2006 20:18:23)?

Det er jo bare nogle flere af disse linier, sammen med de andre:

wshShell.RegWrite ("indsæt gren her"), "indsæt værdi her"

<thesurfer>:
Det ka' jeg ikke liiiiige gennemskue...

Set wshShell = WScript.CreateObject("WScript.Shell")
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{871C5380-42A0-1069-A2EA-08002B30309D}"),"dword:00000001"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{20D04FE0-3AEA-1069-A2D8-08002B30309D}"),"dword:00000000"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{208D2C60-3AEA-1069-A2D7-08002B30309D}"),"dword:00000001"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{450D8FBA-AD25-11D0-98A8-0800361B1103}"),"dword:00000001"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{450D8FBA-AD25-11D0-98A8-0800361B1103}"),"dword:00000001"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{20D04FE0-3AEA-1069-A2D8-08002B30309D}"),"dword:00000000"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{208D2C60-3AEA-1069-A2D7-08002B30309D}"),"dword:00000001"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{871C5380-42A0-1069-A2EA-08002B30309D}"),"dword:00000001"
wshShell.Run "RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
Set wshShell = nothing

... blev *.VBS udgaven - MEN...

Hvis jeg fjerner elementerne manuelt via [Kontrolpanel][Skærm][Skrivebord][Tilpas...] - men de kommer tilbage når VBS'en køres lige meget hvilken værdi jeg bruger mht

dword:00000000
eller
dword:00000001

What's Up ?

... pga (manglende!) rettigheder til at skrive i RegBasen ka' jeg nemlig ikke bruge det som en *.REG fil... men virker fint som .VBS varianten...
Se også http://www.eksperten.dk/spm/723054

dr1> Undskyld jeg først skriver nu.. jeg har overset dette spms mails (kom til at markerer dem som "read", sammen med andre mails)..

Hvor langt er du kommet?

Jeg 'hænger' stadig med ovenstående...

Har du prøvet med "dword=00000001" i stedet for "dword:00000001"?
Dvs, "=" i stedet for ":"..

..og hvilken værdi før nøglen, når du bruger "dword:00000001" (kig i regdb)?

... jeg bruger jo : tegnet i http://www.eksperten.dk/spm/723054 ...

Jeg prøver lige at lege med det...

Lige lidt opfølgning:

Hvis jeg manuelt sletter de fire elementer fra Skrivebordet siger RegBasen:

{208D2C60-3AEA-1069-A2D7-08002B30309D} REG_DWORD 0x00000001 (1)
{20D04FE0-3AEA-1069-A2D8-08002B30309D} REG_DWORD 0x00000001 (1)
{450D8FBA-AD25-11D0-98A8-0800361B1103} REG_DWORD 0x00000001 (1)
{871C5380-42A0-1069-A2EA-08002B30309D} REG_DWORD 0x00000001 (1)

Hvis jeg manuelt genopretter de fire elementer siger RegBasen:

{208D2C60-3AEA-1069-A2D7-08002B30309D} REG_DWORD 0x00000000 (0)
{20D04FE0-3AEA-1069-A2D8-08002B30309D} REG_DWORD 0x00000000 (0)
{450D8FBA-AD25-11D0-98A8-0800361B1103} REG_DWORD 0x00000000 (0)
{871C5380-42A0-1069-A2EA-08002B30309D} REG_DWORD 0x00000000 (0)

(Mere følger...)

(Næsten) lige meget hvad jeg skriver i *.VBS'en og skyder den af så bliver de aktiveret/synligt på skrivebordet igen og RegBasen siger så også
... 0x00000000 (0) 
(Som jo betyder aktiveret/synligt)

Grrrrr ...
(Jo - har klasket [F5] på Skrivebordet for at opdatere - ingen ændring...)

Set wshShell = WScript.CreateObject("WScript.Shell")
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{871C5380-42A0-1069-A2EA-08002B30309D}"),"1"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{20D04FE0-3AEA-1069-A2D8-08002B30309D}"),"1"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{208D2C60-3AEA-1069-A2D7-08002B30309D}"),"1"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{450D8FBA-AD25-11D0-98A8-0800361B1103}"),"1"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{450D8FBA-AD25-11D0-98A8-0800361B1103}"),"1"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{20D04FE0-3AEA-1069-A2D8-08002B30309D}"),"1"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{208D2C60-3AEA-1069-A2D7-08002B30309D}"),"1"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{871C5380-42A0-1069-A2EA-08002B30309D}"),"1"
wshShell.Run "RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters",1,True
Set wshShell = nothing

BINGO!
... endte det med... Med den detalje at jeg/man lige skal klaske [F5] på Skrivebordet bagefter for at opdatere...
Skal der liiiiige et eller andet tid sidst ?

En søgning på på "vbs refresh desktop" ( http://www.google.com/search?q=vbs+refresh+desktop ) gav følgende:

Url: http://www.computerperformance.co.uk/ezine/ezine89.htm

Kode:
---

Desktop.vbs - to Refresh Icons on the Desktop
' Example VBScript to re-activate the Desktop Shell
' Author Jeremy H. & Guy Thomas http://computerperformance.co.uk/
' Version 2.1 - October 2005
' -------------------------------------------------------------'
Option Explicit
Dim WSHShell, strDesktop
Set WSHShell = WScript.CreateObject("WScript.Shell")
strDesktop = WSHShell.SpecialFolders("Desktop")
WSHShell.AppActivate strDesktop
WSHShell.SendKeys "{F5}"
WScript.Quit

' End of VBScript to refresh the desktop

---


Implementeret i din kode:

wshShell.Run "RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters",1,True
strDesktop = wshShell.SpecialFolders("Desktop")
wshShell.AppActivate strDesktop
wshShell.SendKeys "{F5}"
Set wshShell = nothing

Det skulle resulteret et i automatiseret tryk på F5 på skrivebordet.

Rettelse: "Det skulle resultere i et automatiseret tryk på F5 på skrivebordet."

Hmmm...
Har du selv (af)prøvet kombinationen ?
FORELØBIGT er det stadig samme 'problem' - med manuel [F5] på skrivebordet ...
(Har kun haft lidt tid idag - er lidt arbejdsramt i anden retning...)

Nej, jeg har ikke selv prøvet det..

Er du kommet videre?

Bliver først i aften/nat... med dette project...

... nu har jeg prøvet forskellige kombinationer fundet ude i verden ... foreløbig ikke med det ønskede reslutat ...

Hmmm...

Bare for at få den sidste detalje helt på plads...

<thesurfer>: Under alle omstændigheder - læg et svar...

Dvs, problemet (det sidste problem?) lige nu, er at opdatere skrivebordet?

- Svar.

Følgende kode ser nu ellers ud til at virke hos mig:

Option Explicit
Dim WSHShell, strDesktop
Set WSHShell = WScript.CreateObject("WScript.Shell")
strDesktop = wshShell.SpecialFolders("Desktop")
wshShell.AppActivate strDesktop
wshShell.SendKeys "{F5}"
Set wshShell = nothing

Ikonerner blinker, og .VBS filen er ikke længere markeret, hvilket indikerer af skrivebordet er blevet opdateret...

NIX - stadig det samme problem - automatisk RefreshDesktop sker ikke...
Har også prøvet at have

Option Explicit
Dim WSHShell, strDesktop
Set WSHShell = WScript.CreateObject("WScript.Shell")
strDesktop = wshShell.SpecialFolders("Desktop")
wshShell.AppActivate strDesktop
wshShell.SendKeys "{F5}"
Set wshShell = nothing

i en særskilt RefreshDesktop.vbs fil. Samme reslutat...

PS: Har også prøvet på en "StandAlone" PC udenom diverse rettigheder osv...

Bliver dit 'skrivebord' da pænt automatisk opdateret - hvis du har det synligt under kørsel ?

Jeg tror at vi skal have defineret "opdater skrivebord".. :-)

Jeg mener:

- Mit skrivebord blinker, ligesom når jeg trykker på F5.
- Ikonernes placering og baggrundsbilledet ændres ikke.
- Der sker ikke andet

Hvad mener du?

Og hvad betyder "hvis du har det synligt under kørsel"..? :-)
Jeg har Windows kørende, og kan se ikonerne på skrivebordet samt baggrundsbilledet..

... og ikonerne forsvinder ganske af sig selv hos dig ? (Som de jo _ikke_ gør her hos mig...)

Jeg har ikke implementeret regdb ændringerne, som skulle få ikonerne til at forsvinde..

Jeg har bare lavet testen..

Kan du ikke lige smide dine nuværende VBS fil ind i dette spm?

Er det den i 31/07-2006 22:32:33?

Denne linie er forkert:

wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{871C5380-42A0-1069-A2EA-08002B30309D}"),"1"

Den gemmer som "streng" i stedet for "dword"..

Set wshShell = WScript.CreateObject("WScript.Shell")
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{871C5380-42A0-1069-A2EA-08002B30309D}"),"1"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{20D04FE0-3AEA-1069-A2D8-08002B30309D}"),"0"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{208D2C60-3AEA-1069-A2D7-08002B30309D}"),"1"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{450D8FBA-AD25-11D0-98A8-0800361B1103}"),"1"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{450D8FBA-AD25-11D0-98A8-0800361B1103}"),"1"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{20D04FE0-3AEA-1069-A2D8-08002B30309D}"),"0"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{208D2C60-3AEA-1069-A2D7-08002B30309D}"),"1"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{871C5380-42A0-1069-A2EA-08002B30309D}"),"1"

wshShell.Run "RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters",1,True
strDesktop = wshShell.SpecialFolders("Desktop")
wshShell.AppActivate strDesktop
wshShell.SendKeys "{F5}"
Set wshShell = nothing

Hvis du kigger i din regdb, skulle du gerne have kopier af de originale nøgle-navne.. bare med et brunt "ab"-ikont..

Har du sådan nogen, i de grene du lige har skrevet?

Ahh.. Det skal se sådan ud:

wshShell.RegWrite ("........."),1,"REG_DWORD"

Nu virker det fint hos mig.

Dvs:

wshShell.RegWrite ("........."), 0 eller 1, "REG_DWORD"

Rød/brunt [ab] ting/icon...

Navn: {DetLangeNummer}
Nanv: REG_SZ
Data: Enter 1 eller 0 (om iconet skal være 'aktivt' eller ej)

Jo - de ændrer sig som forventet...

Uhm.. hvad er det for nogle informationer du skrev der..?

Det skulle meget gerne virke nu.. virker det..? :-)

Det er da også forkert, at det er "REG_SZ".. det giver en streng..

Der skal jo være "REG_DWORD"..

Med ,"REG_DWORD" for enden

Set wshShell = WScript.CreateObject("WScript.Shell")
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{871C5380-42A0-1069-A2EA-08002B30309D}"),"1","REG_DWORD"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{20D04FE0-3AEA-1069-A2D8-08002B30309D}"),"0","REG_DWORD"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{208D2C60-3AEA-1069-A2D7-08002B30309D}"),"1","REG_DWORD"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{450D8FBA-AD25-11D0-98A8-0800361B1103}"),"1","REG_DWORD"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{450D8FBA-AD25-11D0-98A8-0800361B1103}"),"1","REG_DWORD"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{20D04FE0-3AEA-1069-A2D8-08002B30309D}"),"0","REG_DWORD"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{208D2C60-3AEA-1069-A2D7-08002B30309D}"),"1","REG_DWORD"
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{871C5380-42A0-1069-A2EA-08002B30309D}"),"1","REG_DWORD"
Dim WSHShell, strDesktop
Set WSHShell = WScript.CreateObject("WScript.Shell")
strDesktop = wshShell.SpecialFolders("Desktop")
wshShell.AppActivate strDesktop
wshShell.SendKeys "{F5}"
Set wshShell = nothing

Det er fint at du skriver koden, men virker det, eller virker det ikke? :-)

Hvis det ikke virker, hvad sker der eller hvad sker der ikke..?

Ifølge [Regedit] ->
Rød/brunt [ab] ting/icon...

Navn: {DetLangeNummer}
Nanv: REG_DWORD
Data: 0x00000001 (1) eller 0 (om iconet skal være 'aktivt' eller ej)

Jo - de ændrer sig der som forventet...
Men stadig ikke på 'skrivebordet' med det samme...

Koden [04/08-2006 21:49:38] ->
Alle steder retter sig _undtagen_ på 'skrivebordet' - der skal først en [F5] til...

Kopier denne kode og indsæt den i en vbs fil (minus "---"):

---
Option Explicit
Dim WSHShell, strDesktop
Set WSHShell = WScript.CreateObject("WScript.Shell")
wshShell.RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{208D2C60-3AEA-1069-A2D7-08002B30309D}"),0,"REG_DWORD"

strDesktop = wshShell.SpecialFolders("Desktop")
wshShell.AppActivate strDesktop
wshShell.SendKeys "{F5}"
Set wshShell = nothing
---

Hvis du dobbelklikker på filen, skulle "Netværkssteder" gerne dukke op på dit skrivebord.

Når man arbejder med VBScript, bør man altid bruge Option Explicit.
Man bruger VBScript, når man bruger VBS-filer, ASP-filer og Visual Basic (+A).

I ASP kan man dog også vælge at bruge JScript..

Jeg har kun ændret ved grenen der indholder mappen "ClassicStartMenu".. hvad bruger du "NewStartPanel" til?

... stadig samme problem ... koden [04/08-2006 22:06:38] bogstav for bogstav i en *.VBS fil

Mht "NewStartPanel" så jeg bare den gren også ændrede sig - såååå...

(Jeg er stadig 'begynder' mht VBS stuff...)

Hmm.. jeg gik direkte ind i regdb, og ændrede 1 værdi i "ClassicStartMenu", og opdaterede skrivebordet.. det var alt hvad der skulle til..

Hvis 04/08-2006 22:06:38 ikke virker (som du siger), er der noget galt hos dig.. :-)
Hos mig virker det som det skal.. 1 = "Netværkssteder" forsvinder, 0 = "Netværkssteder" dukker op

Hvis jeg gør det manuelt i Regedit (som dig) skal jeg stadig klaske [F5] på skrivebordet for det ændres der...

Det var ikke pointen.. :-)

Pointen var: Jeg skal kun ændre det 1 sted.. nemlig i "ClassicStartMenu"-grenen..

Når jeg kun ændrer det i "ClassicStartMenu"-grenen, i min vbs fil, virker det som det skal, med opdatering af skrivebordet..

Af en eller anden mærkelig grund, virker det ikke hos dig.

Hos mig virker koden fra 04/08-2006 22:06:38 perfekt. Der er ingen problemer overhovedet.

Hmmm...

Lader den lige ligge over natten/weekenden ...

(Måske har du noget [AutoUpdate] aktiveret et eller andet sted...)

Så må "[AutoUpdate]" være der som standard.. jeg mener ikke at have slået noget "[AutoUpdate]" til.. :-)

... jeg ka' først seriøst fortsætte på denne 'sag' om 1-2 uger...

Jeg vil også mene, at thesurfer's bud, burde virke, idet de sidste linier jo faktisk svarer til at trykke F5...

Men hvis der af en eller anden grund er nogle særlige forhold, der gør sig gældende på dr1's computer, så kunne dette måske prøves:

'---------------------
' Refresh the desktop to remove the deleted shortcuts correctly
set oShell= createobject("shell.application")
set oDesktop = oShell.Namespace(0)
oDesktop.self.invokeVerb "R&efresh"
(kilde: http://jtbworld.blogspot.com/2005/08/vbscript-tips-to-refresh-desktop.html)
'---------------------

Jeg har ikke selv afprøvet det...