Windows Script Host

Gör ett eget program för att ändra visning av filtillägg

När Windows installeras blir standardinställningen att registrerade filtillägg inte visas i till exemnpel Utforskaren. Det här är en direkt säkerhetsrisk och det första man bör göra är därför att ändra på inställningen.

Ändra inställningar

Öppna Utforskaren, klicka i menyraden på "Visa" och välj "Mappalternativ...". Välj fliken "Visa". Då öppnas dialogfönstret för att ändra inställningarna i filvisningen.


Om du gör en markering i "Visa alla filtyper" kommer även dolda filer och systemfiler att visas.

Ta bort markeringen ur rutan "Dölj filtillägg för registrerade filtyper". Detta minskar risken för att du av misstag skall öppna virusfiler!

Virusrisken

Om filändelserna för registrerade filtyper är dolda, är det mycket lätt hänt att man öppnar en fil som ser oskyldig ut men i själva verket är ett virus.


Ett brev med några bifogade filer ser i e-postprogrammet ut så här. Handen på hjärtat – skulle du lägga märke till att det finns filändelse på bildfilen och att ikonen är fel?

Nej, antagligen inte. Att filändelsen jpg alls visas beror på att det inte är en filändelse. Filens verkliga namn är 757619.jpg.vbs och den är ett virus!

Eget program för att ändra inställningarna

Normalinställningen bör alltså vara att man visar alla filtyper, oavsett om de är registrerade.

Om man sedan vill visa systemfiler och dolda filer eller ej är en smaksak – eller kanske en fråga om hur man använder datorn. Vet man med sig att man aldrig plockar bort filer utan att veta vad det innebär och vad som kan hända, och att husets barn inte heller gör det, kan dessa filer gott få synas.

Men ibland är det bekvämt att slippa se filändelserna. Ett exempel är när man skall ändra namn på många filer. Om filändelserna då inte syns, slipper man bekymra sig över punkter som råkar bli borttagna och filändelser som råkar bli ändrade.


Visserligen säger Utforskaren ifrån, men det här är ändå ett irritationsmoment som man gärna slipper.

Då är det praktiskt att kunna ändra snabbt, utan att gå via menyn och Mappalternativ. Så vi gör ett eget program, som sköter den här registerändringen åt oss.

Använd Anteckningar

Det här programmet skall du skriva i Anteckningar eller en motsvarande textredigerare som jobbar med ren ASCII-kod. Använd absolut inte Word eller något liknande program.

Kopiera koden nedan (genom att kopiera i stället för skriva av, slipper du felaktiga radbrytningar) och klistra in den i en ny fil i Anteckningar. Se till att du bara får med kodraderna, inga blankrader före eller efter.

Ta sedan bort bindestrecket i slutet av raden som börjar med Const. Hela denna rad och den påföljande raden skall ligga i en rad utan radbrytning.

Dim WSHShell
Set WSHShell=WScript.CreateObject("WScript.Shell")
Dim gammal, ny, meddelande
Const hk1="HKEY_CURRENT_USER\Software\Microsoft\Windows\-CurrentVersion\Explorer\Advanced\HideFileExt"
gammal=WSHShell.RegRead(hk1)
ny=1- gammal
meddelande="Inställningen för visning av filtillägg ändras." & vbcrlf & vbcrlf & "Stäng den här rutan. Högerklicka sedan på en tom plats i" & vbcrlf & "Utforskarens högra fönsterhalva och välj Uppdatera."
WSHShell.Popup meddelande ,,"Visa filtillägg"
WSHShell.RegWrite hk1, ny, "REG_DWORD"

Spara detta som till exempel "Växla filtillägg.vbs", i valfri mapp. Det är inte så noga vad filen heter, men filtillägget måste vara vbs.

Åtkomligt från Skrivbordet

Nu skall du se till att den här filen blir åtkomlig. Gör en genväg till den och lägg genvägen på Skrivbordet.

Ännu bättre är att lägga den i aktivitetslistens snabbstartsfält, så att du har den tillgänglig även om Skrivbordet är fyllt av öppna programfönster. Vänsterklicka en gång på genvägen, håll ned musknappen och dra ikonen till fältet bredvid Start-knappen.

Nu kan du öppna Utforskaren, så att du ser vad som händer.


Klicka på den nya genvägen. Det kommer upp en meddelanderuta som talar om att inställningarna ändras. Stäng den rutan och högerklicka på en tom plats i Utforskarens högra fönsterhalva. Välj Uppdatera.

Du ser att filtilläggen försvinner. När du vill ha dem tillbaka klickar du på genvägen igen.

Skriptet (det är ett sådant) gör exakt detsamma som om du själv skulle göra ändringen från Utforskaren. Skillnaden är att skriptet går direkt till registret, till samma nyckel som skulle ändras om du gick via Visa / Mappalternativ.

Systemfiler och dolda filer

Med några små ändringar kan du få programmet att dessutom ta bort visningen av dolda filer och systemfiler.

 



Ovan ett avsnitt ur rotmappen när systemfiler och filändelser är dolda.

 

Till vänster samma avsnitt med systemfiler och filändelser synliga.

Den här ändringen kräver att du lägger till två kodrader och ändrar en aning i texten.

Alldeles efter raden som börjar "Const hk1=" lägger du till följande rad – observera att hela koden skall ligga i en enda rad utan radbrytning och utan det bindestreck jag har satt in:

Const hk2="HKEY_CURRENT_USER\Software\Microsoft\Windows\-CurrentVersion\Explorer\Advanced\Hidden"

Som allra sista rad lägger du till:

WSHShell.RegWrite hk2, gammal, "REG_DWORD"

Slutligen ändrar du de båda raderna

meddelande="Inställningen för visning av filtillägg ändras." & vbcrlf & vbcrlf & "Stäng den här rutan. Högerklicka sedan på en tom plats i" & vbcrlf & "Utforskarens högra fönsterhalva och välj Uppdatera."
WSHShell.Popup meddelande ,,"Visa filtillägg"

till

meddelande="Inställningen för visning av dolda filer, systemfiler" & vbcrlf & "och filtillägg ändras." & vbcrlf & vbcrlf & "Stäng den här rutan. Högerklicka sedan på en tom plats i" & vbcrlf & "Utforskarens högra fönsterhalva och välj Uppdatera."
WSHShell.Popup meddelande ,,"Visa filtillägg, dolda filer och systemfiler"

Nu kan du spara filen. Välj gärna ett annat filnamn, till exempel Växla dold_system_filtillägg.vbs, så att du har båda möjligheterna öppna.

En genväg till den nya filen gör du på samma sätt som tidigare. Här har jag knyckt ikonen från "gamla hederliga" Filhanteraren i Windows 3.11 – titta efter filen winfile.exe i Windows-mappen.

© SupportData.Net