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_USERSoftwareTEST, и если нету — выводим сообщение с надписью «TEST«

If (RegistryExist("HKEY_CURRENT_USERSoftwareTEST") = False) Then  	MsgBox("TEST")  End If

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

If (RegistryExist("HKEY_CURRENT_USERSoftwareTEST") = True) Then  	MsgBox("TEST")  End If