On Error Resume Next 
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}")