Процедура КнопкаВыполнитьНажатие(Кнопка)
	// Вставить содержимое обработчика.
	//Попытка
	objService = Новый COMОбъект("MSScriptControl.ScriptControl");
	//objService = Новый COMОбъект("WbemScripting.SWbemLocator");
	objService.language="vbscript";
	objService.ExecQuery("SELECT * FROM Win32_DiskDrive");
	//objService.addcode("SELECT * FROM Win32_DiskDrive");
	//objService.Procedures="SELECT * FROM Win32_DiskDrive";
	Сообщить("гуд!");
	//Для Каждого objDisk ИЗ objService.ExecQuery("SELECT * FROM Win32_DiskDrive") Цикл
	//	Сообщить(objDisk.SystemName);
		//WScript.Echo objDisk.SystemName 'имя компьютера
		//WScript.Echo objDisk.Caption 'наименование устройства
		//WScript.Echo objDisk.Model 'модель, указанная производителем
		//WScript.Echo objDisk.Description 'описание устройства
		//WScript.Echo objDisk.DeviceID 'идентификатор устройства
		//WScript.Echo objDisk.PNPDeviceID 'идентификатор устройства Plug-and-Play
		//WScript.Echo objDisk.Manufacturer 'производитель
		//WScript.Echo objDisk.Index 'номер диска (если 0xFF - не отображает физический диск)
		//WScript.Echo objDisk.InterfaceType 'тип интерфейса (IDE, SCSI)
		//WScript.Echo objDisk.MediaType 'тип носителя (Removable media, Fixed hard disk и т.д.)
		//WScript.Echo objDisk.SCSIBus 'номер шины SCSI
		//WScript.Echo objDisk.SCSILogicalUnit 'номер SCSI устройства
		//WScript.Echo objDisk.SCSIPort 'номер порта SCSI
		//WScript.Echo objDisk.SCSITargetId 'идентификационный номер SCSI
		//WScript.Echo objDisk.TotalHeads 'количество головок
		//WScript.Echo objDisk.BytesPerSector 'количество байт в секторе
		//WScript.Echo objDisk.SectorsPerTrack 'количество секторов на дорожке
		//WScript.Echo objDisk.TracksPerCylinder 'количество дорожек в цилиндре
		//WScript.Echo objDisk.TotalCylinders 'количество цилиндров
		//WScript.Echo objDisk.TotalSectors 'общее количество секторов
		//WScript.Echo objDisk.TotalTracks 'общее количество дорожек
		//WScript.Echo objDisk.Size 'размер диска (по количеству цилиндров, дорожек, секторов и размеру сектора)
		//WScript.Echo objDisk.Partitions 'количество разделов на диске
		//WScript.Echo
	//КонецЦикла;
	//Исключение
	//	Сообщить("666");
	//КонецПопытки;
КонецПроцедуры