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

[ufooo000]

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

[greg zakharov]

Код:

Код: Выделить всё

@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