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

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
Была ли эта статья Вам полезна?

Добавить комментарий

Ваш адрес email не будет опубликован.

Напоминаем Вам, что Ваше сообщение будет опубликовано только после проверки администратором сайта. Обычно это занимает 1-2 рабочих дня.