El proceso que se sigue normalmente para ocultar y/o mostrar las extensiones de los archivos en Windows es algo tedioso ya que hay que navegar por varios menús y ventanas, incluso hay personas que no saben como hacer dicha tarea porque no encuentran la opción para modificar este aspecto. Afortunadamente esto se puede volver una tarea sumamente sencilla y sobre todo rápida gracias a un script que nos permitirá mostrar u ocultar las extensiones de todos los archivos con un doble click. Las ventajas son muchas, por ejemplo, al ocultar las extensiones podremos cambiar el nombre de los archivos sin meternos con la extensión de los mismos, o también podría ser que por medida de seguridad quisieramos que se mostraran las extensiones de todos los archivos, pues bien, con este script podremos hacerlo de una manera muy fácil. A continuación les mostraré los pasos que deben de seguir para crear el script y para hacerlo funcionar: 1. Abren el Bloc de Notas y en el pegan el siguiente código: 

Dim WSHShell

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

Dim var1, var2, msg

Const x = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt"

var1 = WSHShell.RegRead(x)

var2 = 1- var1

If var2 = 0 then

msg = "Se han hecho visibles las extensiones de los archivos"

Else

msg = "Se han ocultado las extensiones de los archivos"

end if

WSHShell.Popup msg

WSHShell.RegWrite x, var2, "REG_DWORD"
2. Ahora lo guardan con el nombre que quieran pero sin olvidar poner la extensión .VBS (Mostrar-Ocultar.vbs por ejemplo). Es recomendable que lo guarden en el escritorio o que le hagan un acceso directo en el inicio rápido para que lo tengan a la mano todo el tiempo ok. 3. Finalmente sólo le dan doble click al archivo y listo. Si por alguna razón los cambios no surten efecto al instante, sólo necesitan presionar la tecla F5 para ver los cambios.
Fuente | Genbeta