[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