Листинг 2. Файл Restoredefaultplaces.vbs.

?Константы
const APP_TITLE = « RestoreDefaultPlaces «
const REG_PLACESBAR = «HKCUSoftwareMicrosoftWindowsCurrentVersionPolicies
ComDlg32Placesbar»
?Будем продолжать?
rc = MsgBox(«Click OK to restore the standard 
						configuration « & _
 «for the File Open Places Bar.», 1, APP_TITLE)
If rc <> 1 Then
 WScript.Quit
End If
?Удаление всех подразделов реестра от точки
	PoliciesComDlg32. Это восстановит стандартную 
		конфигурацию
Set shell = CreateObject(«WScript.Shell»)
?Стандартная конфигурация уже может быть
	 настроена
On Error Resume Next
shell.RegDelete(REG_PLACESBAR)
?Готово
MsgBox «Done», , APP_TITLE