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

tmp = inputbox("Введите имя панели (не указывайте символы [прямой и обратный слэш, двоеточние и знак вопроса, звездочка, двойные кавычки, знаки больше и меньше, прямая черта], иначе папка создана не будет)", "http://www.onestyle.com.ua, специально для книги", "'")
if VarType(tmp) <> 0 then
	wsh1.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\LinkFolderName", tmp, "REG_SZ"
	wsh1.run "cmd /C md %userprofile%\Favorites\" + tmp
	wsh1.run "explorer %userprofile%\Favorites\" + tmp
end if
