Public Sub WorkWithSystem()
	'Получение характеристик компьютера и окружения
	Dim env As System
	Set env = Application.System
	'Debug.Print "Тип компьютера - ", env.ComputerType
	Debug.Print "Тип процессора - ", env.ProcessorType
	Debug.Print "Операционная система - ", env.OperatingSystem
	Debug.Print "Язык - ", env.LanguageDesignation
	Debug.Print "Свободного дискового пространства - ", env.FreeDiskSpace
	Debug.Print "Курсор - ", env.Cursor

End Sub