[BKPB]

Решено:

Показать расширения / Скрыть расширения

Option Explicit: Dim Hive1, Hive2, K, W, I, x
Hive1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\"
Hive2 = "HKCR\Directory\Background\shell\Hidden"

On Error Resume Next
With CreateObject("WScript.Shell")
.Regread Hive2: If Err.Number <> 0 Then Err.Clear:_
Hive2 = "HKCU\Software\Classes\Directory\Background\shell\Hidden"
If WSH.Arguments.Count Then
If .Regread(Hive1 & "Hidden") = 1 Then K = 0: W = "П": I = 1 Else K = 1: W = "Не п": I = 2
For Each x in Split(" ShowSuper"): .RegWrite Hive1 & x & "Hidden", K, "REG_DWORD": Next
.RegWrite Hive2 & "\", W & "оказывать скрытые файлы и папки", "REG_SZ"
.RegWrite Hive2 & "\command\", "WScript.exe """ & WSH.ScriptFullName & """ 1", "REG_SZ"
.RegWrite Hive2 & "\Icon", "%WinDir%\RRT\" & I & ".ico", "REG_SZ"
.SendKeys "{F5}"
Else
.Regread Hive2
If Err.Number = 0 Then .RegDelete Hive2 & "\" Else .Run """" & WSH.ScriptFullName & """ 1"
End If
End With