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