Set wsh1 = WScript.CreateObject("WScript.Shell")

tmp1 = inputbox("Введите новый путь к базе данных Проигрывателя Windows Media", "http://www.onestyle.com.ua, специально для книги", RR("HKCU\Software\Microsoft\MediaPlayer\Preferences\LibraryDatabasePath"))
if VarType(tmp1) = 0 then
	Wscript.Quit
end if
wsh1.RegWrite "HKCU\Software\Microsoft\MediaPlayer\Preferences\LibraryDatabasePath", tmp1, "REG_SZ"


'Создание функции для чтения параметров реестра
'Пример вызова функции: a = RR("HKCU\AppEvents\Schemes\Apps\.Default\WindowsLogoff\.Current\")
Function RR(Path)
	set wshTemp = WScript.CreateObject("WScript.Shell")
	On Error Resume Next
	RR = wshTemp.RegRead(Path)

	'проверяем, произошла ли ошибка при чтении параметра реестра (если err.Number = 0, тогда ошибки не было, иначе была)
	if err.Number <> 0 then
		err.Clear
	End if

	'удаляем объект из памяти, чтобы не засорять ее при частом вызове функции.
	Set wshTemp = Nothing
End Function