VBScript: Проверка существования раздела реестра

Пользовательская функция проверки существования раздела реестра

Невероятно, но факт - язык сценариев VBScript не содержит никаких встроенных функций для проверки существования раздела реестра. Именно по этому, разные пользователи придумывают свои варианты функций для проверки существования раздела реестра, и одним из самых оптимальных вариантов является следующая функция:

Set objShell = CreateObject("WScript.Shell")

Function RegistryExist(Path)
	On Error Resume Next
	RegistryPath = objShell.RegRead(Path)
	Err_Number = err.number
	On Error Goto 0

	If err_number <> 0 Then
		RegistryExist = False
	Else
		RegistryExist = True
	End If
End Function

Использование: проверяем, есть ли раздел реестра HKEY_CURRENT_USER\Software\TEST\, и если нету - выводим сообщение с надписью "TEST"

If (RegistryExist("HKEY_CURRENT_USER\Software\TEST\") = False) Then
	MsgBox("TEST")
End If

Соответственно, для проверки отсутствия раздела реестра, нужно изменить в условии False на True. После этих изменений, надпись TEST появится только при условии существовании раздела реестра HKEY_CURRENT_USER\Software\TEST\.

If (RegistryExist("HKEY_CURRENT_USER\Software\TEST\") = True) Then
	MsgBox("TEST")
End If