Всем добрый день.
Изучив мат. часть обновил скрипт.
Теперь пункт контекстного меню меняется автоматически, в зависимости от значения реестра ShowSuperHidden (см. скрипт и прилагаемые скрины).
Проверена работоспособность скрипта на Windows 2008 Server SP1/Vista Ultimate SP1.
Обновление содержимого папки происходит автоматически (с рабочим столом - не всегда)
Файл SuperHidden.vbs
Код:
'Show/Hide System Files by Herby, edited by Morkva
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
sTitle1 = "SSH=0"
sTitle2 = "SSH=1"
if WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden") = 1 then
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "0", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"
WSHShell.RegWrite "HKEY_CLASSES_ROOT\Directory\shell\SuperHidden\", "Отображать скрытые", "REG_SZ"
WSHShell.SendKeys "{F5}"
else
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "1", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"
WSHShell.RegWrite "HKEY_CLASSES_ROOT\Directory\shell\SuperHidden\", "Не отображать скрытые", "REG_SZ"
WSHShell.SendKeys "{F5}"
end if
Set WSHShell = Nothing
WScript.Quit(0)
Файл Add SuperHidden.reg
Код:
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\Directory\shell\SuperHidden]
@="Отображать скрытые"
[HKEY_CLASSES_ROOT\Directory\shell\SuperHidden\command]
@="WScript.exe C:\\Windows\\System32\\SuperHidden.vbs"
Файл Remove SuperHidden.reg
Код:
Windows Registry Editor Version 5.00
[-HKEY_CLASSES_ROOT\Directory\shell\SuperHidden]