Листинг 2. Код для создания раздела реестра

BEGIN COMMENT
? Match root keys and paths.
END COMMENT
objRegExp.Pattern = «(^[HKEY_w+[^])(.*)»
If objRegExp.Test(strLine) = TRUE Then
BEGIN COMMENT
	? Create the key.
END COMMENT
	Set ColRootKey = objRegExp.Execute(strLine)
	For Each Key in ColRootKey
		strKey = Mid(Key.SubMatches(0),2)
		strKeyPath = Mid(Key.SubMatches(1),2,Len(Trim(Key.SubMatches(1)))-2)
		objRegistry.CreateKey objDictionary(strKey),strKeyPath
	Next