Работа с реестром [WSH]

[Кирилл Дегтярёв]

Всем добрый день, недавно заинтересовался WSH, хотелось бы реализовать программу которая проверяет наличие определённого раздела в реесте и в зависимости от того есть ли он или нет выполняет определённые действия. Проблема в том, что проверка наличия раздела не работает

Dim WshShell, key, key2
' Например раздел реестра
key = "HKLM\SOFTWARE\ZTE\"
Set WshShell = Wscript.CreateObject("WScript.Shell")

If KeyExists(key) = True Then
'Код_1
WScript.Echo "Всё ок"
Else
'Код_2
WScript.Echo "Данного раздела не существует"
End If

Function KeyExists(key)
	On Error Resume Next
	key2 = WshShell.RegRead(key)
	If Err <> 0 Then
		KeyExists = False
	Else
		KeyExists = True
	End If
	On Error GoTo 0
End Function

Может кто сказать, где именно ошибка?