[SendMessage]

Если я правильно понял задачу:

читать дальше »

Файл считывается полностью. В оправдание могу сказать, что скрипт нормально отработал на файле, включающем в себя весь реестр.

Код:

Option Explicit

Dim objRegExp
Dim objFSO
Dim RegFile
Dim strText
Dim strFileName
Dim BOM
Dim valFormat

strFileName = "z:\tmp\1.reg"

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set RegFile = objFSO.OpenTextFile(strFileName)
  BOM = RegFile.Read(2)
RegFile.Close

If BOM = Chr(&HFF) & Chr(&HFE) Then
  valFormat = -1
Else
  valFormat = 0
End If

Set RegFile = objFSO.OpenTextFile(strFileName, 1, False, valFormat)
  strText = RegFile.ReadAll
RegFile.Close
  
Set objRegExp = New RegExp

With objRegExp
  .Global = True
  .IgnoreCase = True
  .Pattern = "\[HKEY_.+?\](?:\r\n)+(?=\[HKEY_|$)"
  strText = .Replace(strText, "")
End With

Set RegFile = objFSO.OpenTextFile(strFileName & "_", 2, True, valFormat)
  RegFile.Write strText
RegFile.Close

Set RegFile = Nothing
Set objFSO = Nothing
Set objRegExp = Nothing

WScript.Echo "Обработка завершена."

WScript.Quit 0