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

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