Archive for the ‘vbs / wsh – Visual Basic Script / Windows Script Host’ Category

Veure els arxius ocults i l’extensió en Windows 7 mitjançant un script

dijous, juny 2nd, 2011

Una empresa per a la que treballo fa servir windows 7 per als ordinadors de desenvolupament, i tots són connectats al domini.

El problema és que tenen una política al domini per la qual, en iniciar sessió i periòdicament, es modifica el registre de windows i fan que no es vegi l’extensió dels arxius, i que no es vegin els arxius ocults.

Això és extremadament molest per als desenvolupadors ja que necessitem saber quina extensió té cada arxiu.

Per això, vaig fer un petit script, o guió, que torna activa al registre de windows veure l’extensió  dels arxius, i veure els arxius ocults.

 

' @author Carles Mateo
' @desc mostra_amagats.vbs Mostrar l'extensió dels arxius. Mostrar arxius ocults.
' @

Set o_sh = CreateObject("WScript.Shell")
s_laClau = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
' Opcional si es vol llegir
' i_setHidden = o_sh.RegRead(s_laClau)
' msgbox i_setHidden

i_setHidden = 1
o_sh.RegWrite s_laClau,i_setHidden,"REG_DWORD"

s_laClau = "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt"
i_setHidden = 0
o_sh.RegWrite s_laClau,i_setHidden,"REG_DWORD"

s_laClau = "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"
i_setHidden = 1
o_sh.RegWrite s_laClau,i_setHidden,"REG_DWORD"

s_laClau = "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\AlwaysShowMenus"
i_setHidden = 1
o_sh.RegWrite s_laClau,i_setHidden,"REG_DWORD"

Set o_sh = Nothing

Adreça curta Twitter: http://wp.me/pzeab-1PZ