VBScript: Reset Tree Regedit

[Gast Angel_]

Wie regelmatig het Register van Windows opent,

om waarden uit te lezen of te wijzigen,

wordt onvermijdelijk geconfronteerd,

met de uitgebreide boomstructuur die eigen is aan het Register.

Eens de taak volbracht is, wordt het Register gesloten.

De volgende keer dat het Register geopend wordt,

is de boomstructuur nog steeds uitgeklapt.

Menigeen zal dan ook ervaren hebben,

dat het dichtklappen van deze boomstructuur,

een tijdrovend en soms ook enerverend karwei is.

Het VBScript, dat je met de hieronder beschreven methode kan maken,

zorgt ervoor, dat de Register-editor opstart,

en dat de boomstructuur meteen ook dichtgeklapt wordt.

Rechtsklik op een leeg gedeelte van het bureaublad.

Kies voor Nieuw en klik op Tekstdocument

Druk tweemaal op Enter.

Markeer en kopieer nu de volgende (Vetgedrukte) tekst,

en plak deze in het tekstdocument (Kladblok).

_______________________________________________________

Option Explicit

On Error Resume Next

Dim WSHShell

Set WSHShell=Wscript.CreateObject("Wscript.Shell")

WSHShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey"

WSHShell.Run "REGEDIT"

Set WSHShell = Nothing

_______________________________________________________

Klik op Bestand en vervolgens op Opslaan als...

Typ in het tekstvak achter Bestandsnaam:

de naam die je aan het bestand wilt geven en

eindig met .vbs

Bijvoorbeeld: ResetTree & StartRegedit.vbs

Klik op Opslaan

Op je bureaublad word er een bestand geplaatst,

met de gegeven naam en de extensie .vbs

Door het bestand aan te klikken,

wordt de Register-editor gestart,

en de boomstructuur dichtgeklapt.

Angel

Getest op Windows 2000 / XP / Vista.

[stegisoft]

Ik heb het getest en het werkt inderdaad.

Het werkt ook bij Windows 7

10 januari 2010 aangepast door stegisoft

[Gast Angel_]

Dit VBScript is een variant op het voorgaande.

Net zoals bij zijn voorganger, ResetTree & StartRegedit.vbs,

wordt hiermee de Register-editor opgestart,

en, tegelijkertijd de boomstructuur van het Register dichtgeklapt.

Wie regelmatig aan het Register sleutelt,

kent ongetwijfeld de optie Favorieten.

Met deze optie is het mogelijk, de sleutels die je opende,

aan de Favorieten toe te voegen.

Zo kan je later, met één klik in de Favorietenlijst, snel naar deze sleutel navigeren.

Als je met het onderstaande Script de Register-editor opstart,

zal, de in het Register openstaande sleutel, aan de lijst Favorieten toegevoegd worden.

En dit onder de naam: Laatst geopende sleutel

Iedere keer dat je dus de Register-editor met dit VBScript opstart,

zal de op dat ogenblik openstaande sleutel onder die naam opgeslagen worden,

waarbij de vorige vervangen wordt.

Vergeet dus niet de interessante sleutels handmatig in de Favorietenlijst op te slaan.

Rechtsklik op een leeg gedeelte van het bureaublad.

Wijs Nieuw aan en klik op Tekstdocument

Druk tweemaal op Enter.

Markeer en kopieer nu de volgende (Vetgedrukte) tekst,

en plak deze in het tekstdocument (Kladblok).

_______________________________________________________

Option Explicit

Dim oShell, vData, vPath

Set oSHELL= WScript.CreateObject("WScript.Shell")

vData= ""

vPath= "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\"

On Error Resume Next

Do

vData= oSHELL.RegRead(vPath & "LastKey"): If Err Then Exit Do

If vData<>"My Computer" Then

oSHELL.RegWrite vPath & "Favorites\Laatst geopende sleutel", vData, "REG_SZ"

If Err Then Exit Do

oSHELL.RegDelete vPath & "LastKey"

End If

Loop Until True

Err.Clear: On Error GoTo 0

oSHELL.Run "regedit.exe", 1, False

WScript.Quit

_______________________________________________________

Klik op Bestand en vervolgens op Opslaan als...

Typ in het tekstvak achter Bestandsnaam:

de naam die je aan het bestand wilt geven en

eindig met .vbs

Bijvoorbeeld: ResetTreeRegedit & LastKeyToFavorites.vbs

Klik op Opslaan

Op je bureaublad wordt er een bestand geplaatst,

met de gegeven naam en de extensie .vbs

Angel

Getest op Windows 2000 / XP / Vista