[gen0m.rsw]

Iska
Прошу вашей помощи!!!
Ваш скрипт:

Код:

Option Explicit

Const ForReading   = 1
Const ForWriting   = 2

Const TristateUseDefault = -2
Const TristateTrue       = -1
Const TristateFalse      =  0


Dim objFile

Dim boolBOM
Dim strContent
Dim strFileName


With WScript.CreateObject("Scripting.FileSystemObject")
    For Each objFile In .GetFolder(WScript.CreateObject("WScript.Shell").CurrentDirectory).Files
        strFileName = objFile.Name
        
        If LCase(.GetExtensionName(strFileName)) = "reg" Then
            WScript.Echo strFileName
            
            With objFile.OpenAsTextStream(ForReading, TristateFalse)
                boolBOM = .Read(2) = Chr(&HFF) & Chr(&HFE)
                .Close
            End With
            
            With objFile.OpenAsTextStream(ForReading, TristateUseDefault)
                strContent = .ReadAll()
                .Close
            End With
            
            With WScript.CreateObject("VBScript.RegExp")
                .Pattern    = "\[HKEY_.+?\](?:\r\n)+(?=\[HKEY_|$)"
                
                .Global     = True
                .IgnoreCase = True
                
                strContent = .Replace(strContent, "")
            End With
            
            objFile.Copy objFile.Name & ".bak"
            
            With .CreateTextFile(strFileName, True, boolBOM)
                .Write strContent
                .Close
            End With
        End If
    Next
End With

WScript.Quit 0

Постараюсь на пальцах!!!

Скрипт обрабатывает чуть больше!!
Оригинал:

Код:

[HKEY_CLASSES_ROOT\.dng\OpenWithList]

[HKEY_CLASSES_ROOT\.dng\OpenWithList\PhotoViewer.dll]

[HKEY_CLASSES_ROOT\.dng\OpenWithList\WLXPhotoViewer.dll]

[HKEY_CLASSES_ROOT\.dng]

[HKEY_CLASSES_ROOT\.dng\ShellEx]

[HKEY_CLASSES_ROOT\.dng\ShellEx\{e357fccd-a995-4576-b01f-234630154e96}]
@="{c7657c4a-9f68-40fa-a4df-96bc08eb3551}"

После:

Код:

[HKEY_CLASSES_ROOT\.dng\ShellEx\{e357fccd-a995-4576-b01f-234630154e96}]
@="{c7657c4a-9f68-40fa-a4df-96bc08eb3551}"

Интересуют строки, которые должны остаться, без них ни как!!

Код:

[HKEY_CLASSES_ROOT\.dng\OpenWithList\PhotoViewer.dll]

[HKEY_CLASSES_ROOT\.dng\OpenWithList\WLXPhotoViewer.dll]

В последних скрип игнорирует параметры и значения реестра!!!
С уважением !!!!