[Quote]

    naifle
  • 762
  • Longevity: 4 years 6 months
  • Posts: 219
  • REPUTATION:26

    [+] [-]
VBS скрипт находится в папке windows...

Hidden.vbs

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
sTitle1 = "SSH=0"
sTitle2 = "SSH=1"
if WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden") = 1 then
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "0", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\5\", "Показать скрытые файлы и папки", "REG_SZ"
WSHShell.SendKeys "{F5}"
else
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\5\", "Скрыть скрытые файлы и папки", "REG_SZ"
WSHShell.SendKeys "{F5}"
end if
Set WSHShell = Nothing
WScript.Quit(0)
Запускается из контекстного меню "Мой компьютер" через рег.файл...

Add Hidden.reg

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\5]
@="Показать скрытые файлы и папки"
"Icon"="imageres.dll,3"
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\5\command]
@="WScript.exe C:\\Windows\\Hidden.vbs"
После запуска видим такую картинку...На вин 7 запускается без ошибок, что сделать, чтобы на вин 10 запускалось без ошибок.P.S. на вин 7 работает только под учёткой "Администратор".
Через HKEY_CLASSES_ROOT тоже не работает...
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\5]
@="Показать скрытые файлы и папки"
"Icon"="imageres.dll,3"
[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\5\command]
@="WScript.exe C:\\Windows\\Hidden.vbs"
--Решено, через HKEY_CURRENT_USER заработал...

Hidden.vbs

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
sTitle1 = "SSH=0"
sTitle2 = "SSH=1"
if WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden") = 1 then
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "0", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"
WSHShell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\5\", "Показать скрытые файлы и папки", "REG_SZ"
WSHShell.SendKeys "{F5}"
else
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"
WSHShell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\5\", "Скрыть скрытые файлы и папки", "REG_SZ"
WSHShell.SendKeys "{F5}"
end if
Set WSHShell = Nothing
WScript.Quit(0)


Last edited by naifle on 2017-11-11 12:35; edited 4 times in total

[Quote]

    Ander_73
  • 15549
  • Longevity: 2 years 9 months
  • Posts: 1285
  • REPUTATION:85

    [+] [-]
naifle, в рег-файле просто "5", а в скрипте - "55"


Last edited by Ander_73 on 2017-11-11 10:50; edited 1 time in total

[Quote]

    SunOK
  • 9
  • Longevity: 5 years
  • Posts: 469
  • REPUTATION:28

    [+] [-]
  • Location: Україна, Перлина Поділля
naifle, не удивляюсь) На 10 же права доступа закручены по самое немогу. Сравни разрешения в 7 и в 10 на этой записи реестра. Ну или ВБС-скрипт из несистемной папки...
И в правду, батник=5, вбс=55 - разберитесь с нумерацией.

[Quote]

    naifle
  • 762
  • Longevity: 4 years 6 months
  • Posts: 219
  • REPUTATION:26

    [+] [-]
46972naifle, в рег-файле просто "5", а в скрипте - "55"
поправил
46973На 10 же права доступа закручены по самое немогу
Согласен, что то с правами, как бы их обойти.

[Quote]

    Ander_73
  • 15549
  • Longevity: 2 years 9 months
  • Posts: 1285
  • REPUTATION:85

    [+] [-]
46974поправил
Ну и? Теперь запускается?

[Quote]

    naifle
  • 762
  • Longevity: 4 years 6 months
  • Posts: 219
  • REPUTATION:26

    [+] [-]
46976Ну и? Теперь запускается?
Нет, права доступа к реестру не работают.

[Quote]

    Ander_73
  • 15549
  • Longevity: 2 years 9 months
  • Posts: 1285
  • REPUTATION:85

    [+] [-]
naifle, regedt32.exe в помощь, дать права на ветку реестра.

[Quote]

    naifle
  • 762
  • Longevity: 4 years 6 months
  • Posts: 219
  • REPUTATION:26

    [+] [-]
46978regedt32.exe в помощь, дать права на ветку реестра.
Что в скрипт добавить, чтобы можно было его положить в install.wim--На резаной вин 7 работает под простой учёткой, не "Администратор".

[Quote]

    Joker-2013
  • 1039
  • Longevity: 4 years 4 months
  • Posts: 2354
  • REPUTATION:117

    [+] [-]
  • Location: из прошлого
naifle, таки поискать юзверьские индефикатор с тем же ID не пытались?
Сейчас это хлобальные куст редактировать пытаетесь, из под учетки пользователя.
Но есть же ветка пользователя, на которую у него есть права и в которой можно изменить параметры
конкретному пользователю, а не глобально.
HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}
вместо:
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}

_________________
Signed off for violation of forum rules

[Quote]

    Joker-2013
  • 1039
  • Longevity: 4 years 4 months
  • Posts: 2354
  • REPUTATION:117

    [+] [-]
  • Location: из прошлого
HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}
реально не существует и сработает до перезагрузки, как мне кажется...

Дополнительная информация

Рассмотрим наиболее интересные параметры реестра. Первым корневым разделом, структура которого будет описана, станет раздел HKEY_CLASSES_ROOT. Хотя, если быть точным, содержимое этого раздела строится на основе двух ветвей других корневых разделов: HKEY_LOCAL_MACHINE\SOFTWARE\Classes и HKEY_CURRENT_USER\Software\Classes. Первая ветвь реестра включает в себя информацию о расширениях файлов, используемую всеми пользователями компьютера для построения карты расширений. Вторая ветвь содержит информацию о расширениях, которые либо используются только текущим пользователем, либо переопределяют собой информацию из ветви корневого раздела HKEY_LOCAL_ MACHINE. Иначе говоря, если информация о каком-нибудь расширении содержится как в корневом разделе HKEY_LOCAL_MACHINE, так и в HKEY_CURRENT_USER, то сведения из этих ветвей будут объединяться. При этом сведения из ветви HKEY_CURRENT_USER будут заменять собой сведения из ветви HKEY_LOCAL_MACHINE.
Корневой раздел HKEY_CLASSES_ROOT имеет более-менее статичную структуру. Если остальные корневые разделы могут хранить любую информацию, какую только захотят поместить в них программисты (любое название параметра и любой путь, ведущий к этому параметру), то HKEY_CLASSES_ROOT содержит параметры, названия которых не зависят от прихотей программистов, разрабатывающих соответствующее расширение файла или ActiveX-объект.
Как уже говорилось выше, корневой раздел HKEY_CLASSES_ROOT включает в себя всю информацию о расширениях файлов, которые зарегистрированы в вашей системе, а также описывает те действия, которые вы можете выполнить с файлами данного расширения (команды контекстного меню). Ветвь также содержит сведения обо всех зарегистрированных в системе ActiveX-компонентах, но о них будет рассказано чуть позже, а сейчас разберемся с хранением сведений о расширениях файлов
Можно попытаться создать параметр тут: HKEY_CURRENT_USER\Software\Classes (по умолчанию его нет)
HKEY_CURRENT_USER\Software\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}

_________________
Signed off for violation of forum rules

[Quote]

    naifle
  • 762
  • Longevity: 4 years 6 months
  • Posts: 219
  • REPUTATION:26

    [+] [-]
Joker-2013, через HKEY_CLASSES_ROOT тоже не работает...
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\5]
@="Показать скрытые файлы и папки"
"Icon"="imageres.dll,3"
[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\5\command]
@="WScript.exe C:\\Windows\\Hidden.vbs"

[Quote]

    Joker-2013
  • 1039
  • Longevity: 4 years 4 months
  • Posts: 2354
  • REPUTATION:117

    [+] [-]
  • Location: из прошлого
46982 HKEY_CLASSES_ROOT тоже не работает
не может такого быть.
naifle, так vbs правь.
и лучше, наверное так:
HKEY_CURRENT_USER\Software\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}

_________________
Signed off for violation of forum rules

[Quote]

    nikzzzz
  • 215
  • Longevity: 4 years 9 months
  • Posts: 2813
  • REPUTATION:127

    [+] [-]
46981
HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}
реально не существует и сработает до перезагрузки, как мне кажется...
HKEY_CLASSES_ROOT это символическая ссылка на HKEY_LOCAL_MACHINE\SOFTWARE\Classes , они полностью эквивалентны.

[Quote]

    Joker-2013
  • 1039
  • Longevity: 4 years 4 months
  • Posts: 2354
  • REPUTATION:117

    [+] [-]
  • Location: из прошлого
nikzzzz, так я и написал, что бы попробовал в
HKEY_CURRENT_USER\Software\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}

_________________
Signed off for violation of forum rules

[Quote]

    naifle
  • 762
  • Longevity: 4 years 6 months
  • Posts: 219
  • REPUTATION:26

    [+] [-]
Решено, через HKEY_CURRENT_USER заработал...

Hidden.vbs

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
sTitle1 = "SSH=0"
sTitle2 = "SSH=1"
if WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden") = 1 then
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "0", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"
WSHShell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\5\", "Показать скрытые файлы и папки", "REG_SZ"
WSHShell.SendKeys "{F5}"
else
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"
WSHShell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\5\", "Скрыть скрытые файлы и папки", "REG_SZ"
WSHShell.SendKeys "{F5}"
end if
Set WSHShell = Nothing
WScript.Quit(0)
Всем спасибо, за участие

Page 1 of 3


Display posts:    

Current time is: 14-Nov 11:12

All times are UTC + 3


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum