Set sh = CreateObject("WScript.Shell")
theKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
setHidden = sh.RegRead(theKey)
If setHidden = 1 Then
setHidden = 0
Else
setHidden = 1
End If
Sh.SendKeys("{F5}")
sh.RegWrite theKey,setHidden,"REG_DWORD"
Set sh = Nothing