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




 

[Quote]

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

    naifle
  • 762
  • Longevity: 9 years 8 months
  • Posts: 199
  • 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]

Отправлено: 11-Nov-2017 10:49 (after 23 minutes)

    Ander_73
  • 15549
  • Longevity: 7 years 11 months
  • Posts: 3946
  • REPUTATION:127

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


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

[Quote]

Отправлено: 11-Nov-2017 10:49 (after 24 seconds)

    SunOK
  • 9
  • Longevity: 10 years
  • Posts: 352
  • REPUTATION:32

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

[Quote]

Отправлено: 11-Nov-2017 10:55 (after 5 minutes)

    naifle
  • 762
  • Longevity: 9 years 8 months
  • Posts: 199
  • REPUTATION:26

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

[Quote]

Отправлено: 11-Nov-2017 11:01 (after 6 minutes)

    Ander_73
  • 15549
  • Longevity: 7 years 11 months
  • Posts: 3946
  • REPUTATION:127

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

[Quote]

Отправлено: 11-Nov-2017 11:04 (after 2 minutes)

    naifle
  • 762
  • Longevity: 9 years 8 months
  • Posts: 199
  • REPUTATION:26

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

[Quote]

Отправлено: 11-Nov-2017 11:11 (after 6 minutes)

    Ander_73
  • 15549
  • Longevity: 7 years 11 months
  • Posts: 3946
  • REPUTATION:127

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

[Quote]

Отправлено: 11-Nov-2017 11:20 (after 8 minutes)

    naifle
  • 762
  • Longevity: 9 years 8 months
  • Posts: 199
  • REPUTATION:26

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

[Quote]

Отправлено: 11-Nov-2017 11:32 (after 12 minutes)

    Joker-2013
  • 1039
  • Longevity: 9 years 6 months
  • Posts: 2053
  • REPUTATION:120

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

[Quote]

Отправлено: 11-Nov-2017 11:53 (after 20 minutes)

    Joker-2013
  • 1039
  • Longevity: 9 years 6 months
  • Posts: 2053
  • REPUTATION:120

    [+] [-]
  • 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}

[Quote]

Отправлено: 11-Nov-2017 12:03 (after 9 minutes)

    naifle
  • 762
  • Longevity: 9 years 8 months
  • Posts: 199
  • 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]

Отправлено: 11-Nov-2017 12:04 (after 1 minute)

    Joker-2013
  • 1039
  • Longevity: 9 years 6 months
  • Posts: 2053
  • REPUTATION:120

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

[Quote]

Отправлено: 11-Nov-2017 12:11 (after 6 minutes)

    nikzzzz
  • 215
  • Longevity: 9 years
  • Posts: 3114
  • REPUTATION:127

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

[Quote]

Отправлено: 11-Nov-2017 12:17 (after 5 minutes)

    Joker-2013
  • 1039
  • Longevity: 9 years 6 months
  • Posts: 2053
  • REPUTATION:120

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

[Quote]

Отправлено: 11-Nov-2017 12:30 (after 13 minutes)

    naifle
  • 762
  • Longevity: 9 years 8 months
  • Posts: 199
  • 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: 21-Jan 20:36

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