Ayuda por favor con este script!!

slipk666 1 Publicaciones viernes, 12 de enero de 2018Fecha de inscripción viernes, 12 de enero de 2018 Última intervención - 12 ene 2018 a las 19:10
hola chic@s tengo este problema... navegando por Internet conseguí este script el cual funciona para ocultar y mostrar los archivos, honestamente no se nada de programación y quería que me apoyaran a dividir o crear un nuevo script, me gustaría tener dos script similares a este pero que uno los oculte y el otro los muestre de ante mano muchísimas gracias a tod@s !!

Hidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
SHidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"
Set Sh = WScript.CreateObject("WScript.Shell")
St = Sh.RegRead(Hidden)
If St = 2 Then
Sh.RegWrite Hidden, 1, "REG_DWORD"
Sh.RegWrite SHidden, 1, "REG_DWORD"
Else
Sh.RegWrite Hidden, 2, "REG_DWORD"
Sh.RegWrite SHidden, 0, "REG_DWORD"
End If
Sh.SendKeys("{F5}")
Ver más