CMD/BAT - [решено] Можно ли переписать этот vbs скрипт в бат скрипт

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

CMD/BAT - [решено] Можно ли переписать этот vbs скрипт в бат скрипт

ufooo000

Новый участник

Сообщения: 49
Благодарности: 0

Профиль | Отправить PM | Цитировать

Можно ли переписать этот 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

Отправлено: 07:03, 07-02-2017

greg zakharov

Забанен

Сообщения: 793
Благодарности: 260

Профиль | Цитировать

Код:

@echo off
  setlocal
    set "root=HKCU\Software\Microsoft\Windows\Current"
    set "root=%root%Version\Explorer\Advanced"
    for /f "tokens=3" %%i in (
      'reg query %root% /v Hidden ^| findstr /irc:"dword"'
    ) do set /a "val=%%i"
    if %val% equ 2 (
      reg add %root% /v Hidden /t REG_DWORD /d 1 /f
      reg add %root% /v ShowSuperHidden /t REG_DWORD /d 1 /f
    ) else (
      reg add %root% /v Hidden /t REG_DWORD /d 2 /f
      reg add %root% /v ShowSuperHidden /t REG_DWORD /d 0 /f
    )
  endlocal
exit /b

Это сообщение посчитали полезным следующие участники:

ufooo000

Отправлено: 08:52, 07-02-2017 | #2