Не работает vbs скрипт на виндовс 10 [РЕШЕНО]




 

[Цитировать]

Отправлено: 11-Ноя-2017 10:25

    naifle
  • 762
  • Стаж: 9 лет 7 месяцев
  • Сообщений: 199
  • Репутация: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)


Последний раз редактировалось: naifle (2017-11-11 12:35), всего редактировалось 4 раз(а)

[Цитировать]

Отправлено: 11-Ноя-2017 10:49 (спустя 23 минуты)

    Ander_73
  • 15549
  • Стаж: 7 лет 10 месяцев
  • Сообщений: 3839
  • Репутация:127

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


Последний раз редактировалось: Ander_73 (2017-11-11 10:50), всего редактировалось 1 раз

[Цитировать]

Отправлено: 11-Ноя-2017 10:49 (спустя 24 секунды)

    SunOK
  • 9
  • Стаж: 10 лет
  • Сообщений: 352
  • Репутация:32

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

[Цитировать]

Отправлено: 11-Ноя-2017 10:55 (спустя 5 минут)

    naifle
  • 762
  • Стаж: 9 лет 7 месяцев
  • Сообщений: 199
  • Репутация:26

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

[Цитировать]

Отправлено: 11-Ноя-2017 11:01 (спустя 6 минут)

    Ander_73
  • 15549
  • Стаж: 7 лет 10 месяцев
  • Сообщений: 3839
  • Репутация:127

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

[Цитировать]

Отправлено: 11-Ноя-2017 11:04 (спустя 2 минуты)

    naifle
  • 762
  • Стаж: 9 лет 7 месяцев
  • Сообщений: 199
  • Репутация:26

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

[Цитировать]

Отправлено: 11-Ноя-2017 11:11 (спустя 6 минут)

    Ander_73
  • 15549
  • Стаж: 7 лет 10 месяцев
  • Сообщений: 3839
  • Репутация:127

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

[Цитировать]

Отправлено: 11-Ноя-2017 11:20 (спустя 8 минут)

    naifle
  • 762
  • Стаж: 9 лет 7 месяцев
  • Сообщений: 199
  • Репутация:26

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

[Цитировать]

Отправлено: 11-Ноя-2017 11:32 (спустя 12 минут)

    Joker-2013
  • 1039
  • Стаж: 9 лет 5 месяцев
  • Сообщений: 2053
  • Репутация:120

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

[Цитировать]

Отправлено: 11-Ноя-2017 11:53 (спустя 20 минут)

    Joker-2013
  • 1039
  • Стаж: 9 лет 5 месяцев
  • Сообщений: 2053
  • Репутация:120

    [+] [-]
  • Откуда: из прошлого
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}

[Цитировать]

Отправлено: 11-Ноя-2017 12:03 (спустя 9 минут)

    naifle
  • 762
  • Стаж: 9 лет 7 месяцев
  • Сообщений: 199
  • Репутация: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"

[Цитировать]

Отправлено: 11-Ноя-2017 12:04 (спустя 1 минута)

    Joker-2013
  • 1039
  • Стаж: 9 лет 5 месяцев
  • Сообщений: 2053
  • Репутация:120

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

[Цитировать]

Отправлено: 11-Ноя-2017 12:11 (спустя 6 минут)

    nikzzzz
  • 215
  • Стаж: 9 лет
  • Сообщений: 3114
  • Репутация:127

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

[Цитировать]

Отправлено: 11-Ноя-2017 12:17 (спустя 5 минут)

    Joker-2013
  • 1039
  • Стаж: 9 лет 5 месяцев
  • Сообщений: 2053
  • Репутация:120

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

[Цитировать]

Отправлено: 11-Ноя-2017 12:30 (спустя 13 минут)

    naifle
  • 762
  • Стаж: 9 лет 7 месяцев
  • Сообщений: 199
  • Репутация: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)
Всем спасибо, за участие

Страница 1 из 3


Показать сообщения:    

Текущее время: 12-Дек 06:47

Часовой пояс: UTC + 3


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете прикреплять файлы к сообщениям
Вы можете скачивать файлы