[решено] Добавление в контекстное меню пункта Показать/Скрыть скрытые файлы и папки

[Sisin]

Есть такой скрипт для добавления в контекстное меню пункта Показать/Скрыть скрытые файлы и папки:
ShHFF.vbs
Hidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
SSHidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"
Set Command1 = WScript.CreateObject("WScript.Shell")
Check = Command1.RegRead(Hidden)
If Check = 2 Then
Command1.RegWrite Hidden, 1, "REG_DWORD"
Command1.RegWrite SSHidden, 1, "REG_DWORD"
Else
Command1.RegWrite Hidden, 2, "REG_DWORD"
Command1.RegWrite SSHidden, 0, "REG_DWORD"
End If
Command1.SendKeys "{F5}"


ShHFF.reg
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\Background\shell\SHHFF]
@="Показать/Скрыть скрытые файлы и папки"
"HasLUAShield"=""

[HKEY_CLASSES_ROOT\Directory\Background\shell\SHHFF\command]
@="WScript C:\\Windows\\ShHFF.vbs"

[HKEY_CLASSES_ROOT\LibraryFolder\Background\shell\SHHFF]
@="Показать/Скрыть скрытые файлы и папки"
"HasLUAShield"=""

[HKEY_CLASSES_ROOT\LibraryFolder\Background\shell\SHHFF\command]
@="WScript C:\\Windows\\ShHFF.vbs"

Как дополнить этот скрипт, чтобы при скрытых скрытых файлах и папках пункт контекстного меню был "Показать скрытые файлы и папки",
а при показываемых скрытых файлах и папках "Скрыть скрытые файлы и папки"???

НЕ НАДО УДАЛЯТЬ ТЕМУ!!! ИЗ РАЗДЕЛА WINDOWS XP Я УДАЛИЛ ВОПРОС!!!

[aleskaput]

ни как (думаю), в контекст прописывается так сказать постоянная задача а не меняющаяся

[ne-dm]

ShHFF.vbs

Hidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
SSHidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"
nnw = "HKEY_CLASSES_ROOT\LibraryFolder\Background\shell\SHHFF\"
nnwn = "HKEY_CLASSES_ROOT\Directory\Background\shell\SHHFF\"
Set Command1 = WScript.CreateObject("WScript.Shell")
Check = Command1.RegRead(Hidden)
If Check = 2 Then
Command1.RegWrite Hidden, 1, "REG_DWORD"
Command1.RegWrite SSHidden, 1, "REG_DWORD"
Command1.RegWrite nnw, "Скрыть скрытые файлы и папки", "REG_SZ"
Command1.RegWrite nnwn, "Скрыть скрытые файлы и папки", "REG_SZ"
Else
Command1.RegWrite Hidden, 2, "REG_DWORD"
Command1.RegWrite SSHidden, 0, "REG_DWORD"
Command1.RegWrite nnw, "Показать скрытые файлы и папки", "REG_SZ"
Command1.RegWrite nnwn, "Показать скрытые файлы и папки", "REG_SZ"
End If
Command1.SendKeys "{F5}"

[zegordo]

не работает скрипт vbs второй.
http://i.imgur.com/mkm6Fxz.png
может не хватает прав для перезаписи HKCR ?
тогда как их дать? (особенно простому пользователю)
пробовал и с HKEY_CLASSES_ROOT и убирать слеш в конце.