1С и Windows Script Host (WSH) и Windows Management Instrumentation (WMI). ОТ ТЕОРИИ К ПРАКТИКЕ. Часть II

20.10.13

Описание возможностей Windows Script Host и Windows Management Instrumentation.
Подборка "скриптовых" функций и процедур.

Другие части:

1С и WSH и WMI. ОТ ТЕОРИИ К ПРАКТИКЕ. Часть I: //infostart.ru/public/165702/
1С и WSH и WMI. ОТ ТЕОРИИ К ПРАКТИКЕ. Часть III: //infostart.ru/public/166440/

Практическая реализация:

Обработка 1С:Системный Администратор (WSH&WMI): //infostart.ru/public/172189/

ТЕОРИЯ

Microsoft Windows Script Host (WSH) - сервер сценариев Windows.

Используется в качестве инструмента разработки и выполнения специальных сценариев для операционной системы Windows.
Сценарии WSH пишутся на специализированных языках: Microsoft Visual Basic Script Edition (VBScript) или Microsoft JScript.
Свойства и методы объектов Microsoft WSH доступны также в приложениях, способных выступить в роли OLE-клиента.

WSH позволяет работать с:

    - Файловой системой;
    - Ресурсами локальной сети;
    - Реестром;
    - Специальными папками и ярлыками Windows;
    - Процессами. Запускать и контролировать их выполнение.

WSH позволяет взаимодействовать с Microsoft ActiveX:

    - ActiveX Data Object (ADO) — Доступ к базам данных;
    - Active Directory Service Interface (ADSI) — Службы каталогов;
    - Windows Management Instrumentation (WMI) — Инструментарий управления Windows.

Подробно свойства и методы объектов MS Windows Script Host изложены в файле Automation.chm, доступном в ссылках на скачивание.

Windows Management Instrumentation (WMI) - инструментарий управления Windows.

WMI - это одна из базовых технологий для централизованного наблюдения и управления компьютерной инфраструктуры под управлением платформы Windows.
WMI – это расширенная и адаптированная компанией Microsoft реализация стандарта WBEM (WebBased Enterprise Management) компании DMTF Inc.
Основа WBEM - Common Information Model (CIM), реализующая объектно-ориентированный подход к представлению компонентов системы.

WMI позволяет работать с:
    - Системой;
    - Приложениями;
    - Оборудованием;
    - Сетями;
   др. управляемыми компонентами.

Подробно о Windows Management Instrumentation (англ.): http://msdn.microsoft.com/en-us/library/windows/desktop/aa394572%28v=vs.85%29.aspx

ПРАКТИКА

Список процедур и функций:

- GetDriveInfo() - Ф., позволяющая получить информацию о дисковой подсистеме лок. компьютера.- Computer_PhysicalDisk() - Ф., позволяющая получить информацию о физических дисках лок./уд. компьютера.- Computer_LogicalDisk() - Ф., позволяющая получить информацию о логических дисках лок./уд. компьютера.- GetFolderInfo() - Ф., позволяющая получить значения атрибутов каталога лок. компьютера.- GetFileInfo() - Ф., позволяющая получить значения атрибутов файла лок. компьютера.- ПрочитатьТекстовыйФайл() - Ф.: Пример чтения текстового файла.- СоздатьТекстовыйФайл() - Ф.: Пример создания файла (с проверкой: перезаписать/не перезаписать существующий файл).- СоздатьЯрлыкБлокнотНаРабочемСтоле() - Ф. создает ярлык "Блокнот" на рабочем столе.- МоиДокументы() - Ф. возвращает путь к папке пользователя "Мои документы".

// Функция, позволяющая получить информацию о дисковой подсистеме локального компьютера.
//
&НаСервереБезКонтекста
Функция GetDriveInfo()

   DriveInfo = Новый ТаблицаЗначений;
   // Буква диска (C, D, ...).
   DriveInfo.Колонки.Добавить("DriveLetter");
   // Тип диска.
   // 0 = Unknown, 1 = Removable, 2 = Fixed, 3 = Network, 4 = CD-ROM, 5 = RAM Disk.
   DriveInfo.Колонки.Добавить("DriveType");
   // Тип файловой системы диска.
   DriveInfo.Колонки.Добавить("FileSystem");
   // Метка тома.
   DriveInfo.Колонки.Добавить("VolumeName");
   // Полный размер диска.
   DriveInfo.Колонки.Добавить("TotalSize");
   // Свободное пространство на диске.
   DriveInfo.Колонки.Добавить("FreeSpace");
   // Готовность устройства (имеет смысл для съемных дисков или CD/DVD).
   DriveInfo.Колонки.Добавить("IsReady");
   // Путь до указанного диска (C:, D:, ...).
   DriveInfo.Колонки.Добавить("Path");
   // Корневой каталог диска.
   DriveInfo.Колонки.Добавить("RootFolder");
   // Серийный номер диска.
   DriveInfo.Колонки.Добавить("SerialNumber");
   // Сетевой путь диска или "" для локального.
   DriveInfo.Колонки.Добавить("ShareName");

   Попытка

       FileSystemObject = Новый COMОбъект("Scripting.FileSystemObject");
       FileSystemObject_HARD = FileSystemObject.Drives;

       Для Каждого HARD ИЗ FileSystemObject_HARD Цикл
           DriveInfoRecord = DriveInfo.Добавить();
           DriveInfoRecord.DriveLetter = HARD.DriveLetter;
           DriveInfoRecord.DriveType = HARD.DriveType;
           DriveInfoRecord.IsReady = HARD.IsReady;
           Если HARD.IsReady Тогда
               DriveInfoRecord.FileSystem = HARD.FileSystem;
               DriveInfoRecord.VolumeName = HARD.VolumeName;
               DriveInfoRecord.TotalSize = HARD.TotalSize;
               DriveInfoRecord.FreeSpace = HARD.FreeSpace;
               DriveInfoRecord.Path = HARD.Path;
               DriveInfoRecord.RootFolder = HARD.RootFolder.Path;
               DriveInfoRecord.SerialNumber = Строка(HARD.SerialNumber);
               DriveInfoRecord.ShareName = HARD.ShareName;
           КонецЕсли;
       КонецЦикла;

   Исключение
   КонецПопытки;

   Возврат DriveInfo;

КонецФункции

// Функция, позволяющая получить информацию о физических дисках локального/удаленного компьютера.
// Параметры:
//   Computer - Имя компьютера.
// Возвращаемое значение:
//   Таблица значений.
//
// Рекомендация:
// Перед применением проверить на компьютерах
// Windows Management Instrumentation (WMI):
// 1. Состояние служб.
// 2. Разрешение в брандмауэре.
// Подробности на странице: //infostart.ru/public/165702
//
&НаСервереБезКонтекста
Функция Computer_PhysicalDisk(Computer = ".")

   Win32_PhysicalDiskInfo = Новый ТаблицаЗначений;
   Win32_PhysicalDiskInfo.Колонки.Добавить("Availability");
   Win32_PhysicalDiskInfo.Колонки.Добавить("BytesPerSector");
   Win32_PhysicalDiskInfo.Колонки.Добавить("Capabilities");
   Win32_PhysicalDiskInfo.Колонки.Добавить("CapabilityDescriptions");
   Win32_PhysicalDiskInfo.Колонки.Добавить("Caption");
   Win32_PhysicalDiskInfo.Колонки.Добавить("CompressionMethod");
   Win32_PhysicalDiskInfo.Колонки.Добавить("ConfigManagerErrorCode");
   Win32_PhysicalDiskInfo.Колонки.Добавить("ConfigManagerUserConfig");
   Win32_PhysicalDiskInfo.Колонки.Добавить("CreationClassName");
   Win32_PhysicalDiskInfo.Колонки.Добавить("DefaultBlockSize");
   Win32_PhysicalDiskInfo.Колонки.Добавить("Description");
   Win32_PhysicalDiskInfo.Колонки.Добавить("DeviceID");
   Win32_PhysicalDiskInfo.Колонки.Добавить("ErrorCleared");
   Win32_PhysicalDiskInfo.Колонки.Добавить("ErrorDescription");
   Win32_PhysicalDiskInfo.Колонки.Добавить("ErrorMethodology");
   Win32_PhysicalDiskInfo.Колонки.Добавить("Index");
   Win32_PhysicalDiskInfo.Колонки.Добавить("InstallDate");
   Win32_PhysicalDiskInfo.Колонки.Добавить("InterfaceType");
   Win32_PhysicalDiskInfo.Колонки.Добавить("LastErrorCode");
   Win32_PhysicalDiskInfo.Колонки.Добавить("Manufacturer");
   Win32_PhysicalDiskInfo.Колонки.Добавить("MaxBlockSize");
   Win32_PhysicalDiskInfo.Колонки.Добавить("MaxMediaSize");
   Win32_PhysicalDiskInfo.Колонки.Добавить("MediaLoaded");
   Win32_PhysicalDiskInfo.Колонки.Добавить("MediaType");
   Win32_PhysicalDiskInfo.Колонки.Добавить("MinBlockSize");
   Win32_PhysicalDiskInfo.Колонки.Добавить("Model");
   Win32_PhysicalDiskInfo.Колонки.Добавить("Name");
   Win32_PhysicalDiskInfo.Колонки.Добавить("NeedsCleaning");
   Win32_PhysicalDiskInfo.Колонки.Добавить("NumberOfMediaSupported");
   Win32_PhysicalDiskInfo.Колонки.Добавить("Partitions");
   Win32_PhysicalDiskInfo.Колонки.Добавить("PNPDeviceID");
   Win32_PhysicalDiskInfo.Колонки.Добавить("PowerManagementCapabilities");
   Win32_PhysicalDiskInfo.Колонки.Добавить("PowerManagementSupported");
   Win32_PhysicalDiskInfo.Колонки.Добавить("SCSIBus");
   Win32_PhysicalDiskInfo.Колонки.Добавить("SCSILogicalUnit");
   Win32_PhysicalDiskInfo.Колонки.Добавить("SCSIPort");
   Win32_PhysicalDiskInfo.Колонки.Добавить("SCSITargetId");
   Win32_PhysicalDiskInfo.Колонки.Добавить("SectorsPerTrack");
   Win32_PhysicalDiskInfo.Колонки.Добавить("Signature");
   Win32_PhysicalDiskInfo.Колонки.Добавить("Size");
   Win32_PhysicalDiskInfo.Колонки.Добавить("Status");
   Win32_PhysicalDiskInfo.Колонки.Добавить("StatusInfo");
   Win32_PhysicalDiskInfo.Колонки.Добавить("SystemCreationClassName");
   Win32_PhysicalDiskInfo.Колонки.Добавить("SystemName");
   Win32_PhysicalDiskInfo.Колонки.Добавить("TotalCylinders");
   Win32_PhysicalDiskInfo.Колонки.Добавить("TotalHeads");
   Win32_PhysicalDiskInfo.Колонки.Добавить("TotalSectors");
   Win32_PhysicalDiskInfo.Колонки.Добавить("TotalTracks");
   Win32_PhysicalDiskInfo.Колонки.Добавить("TracksPerCylinder");

   Попытка

       WinMGMT = ПолучитьCOMОбъект("winmgmts:\\" + Computer + "\root\cimv2");
       Win32_PhysicalDisk = WinMGMT.ExecQuery("SELECT * from Win32_DiskDrive");

       Для Каждого PhysicalDisk ИЗ Win32_PhysicalDisk Цикл
           PhysicalDiskInfo = Win32_PhysicalDiskInfo.Добавить();
           PhysicalDiskInfo.Availability = PhysicalDisk.Availability;
           PhysicalDiskInfo.BytesPerSector = PhysicalDisk.BytesPerSector;
           PhysicalDiskInfo.Capabilities = PhysicalDisk.Capabilities;
           PhysicalDiskInfo.CapabilityDescriptions = PhysicalDisk.CapabilityDescriptions;
           PhysicalDiskInfo.Caption = PhysicalDisk.Caption;
           PhysicalDiskInfo.CompressionMethod = PhysicalDisk.CompressionMethod;
           PhysicalDiskInfo.ConfigManagerErrorCode = PhysicalDisk.ConfigManagerErrorCode;
           PhysicalDiskInfo.ConfigManagerUserConfig = PhysicalDisk.ConfigManagerUserConfig;
           PhysicalDiskInfo.CreationClassName = PhysicalDisk.CreationClassName;
           PhysicalDiskInfo.DefaultBlockSize = PhysicalDisk.DefaultBlockSize;
           PhysicalDiskInfo.Description = PhysicalDisk.Description;
           PhysicalDiskInfo.DeviceID = PhysicalDisk.DeviceID;
           PhysicalDiskInfo.ErrorCleared = PhysicalDisk.ErrorCleared;
           PhysicalDiskInfo.ErrorDescription = PhysicalDisk.ErrorDescription;
           PhysicalDiskInfo.ErrorMethodology = PhysicalDisk.ErrorMethodology;
           PhysicalDiskInfo.Index = Строка(PhysicalDisk.Index);
           PhysicalDiskInfo.InstallDate = PhysicalDisk.InstallDate;
           PhysicalDiskInfo.InterfaceType = PhysicalDisk.InterfaceType;
           PhysicalDiskInfo.LastErrorCode = PhysicalDisk.LastErrorCode;
           PhysicalDiskInfo.Manufacturer = PhysicalDisk.Manufacturer;
           PhysicalDiskInfo.MaxBlockSize = PhysicalDisk.MaxBlockSize;
           PhysicalDiskInfo.MaxMediaSize = PhysicalDisk.MaxMediaSize;
           PhysicalDiskInfo.MediaLoaded = PhysicalDisk.MediaLoaded;
           PhysicalDiskInfo.MediaType = PhysicalDisk.MediaType;
           PhysicalDiskInfo.MinBlockSize = PhysicalDisk.MinBlockSize;
           PhysicalDiskInfo.Model = PhysicalDisk.Model;
           PhysicalDiskInfo.Name = PhysicalDisk.Name;
           PhysicalDiskInfo.NeedsCleaning = PhysicalDisk.NeedsCleaning;
           PhysicalDiskInfo.NumberOfMediaSupported = PhysicalDisk.NumberOfMediaSupported;
           PhysicalDiskInfo.Partitions = PhysicalDisk.Partitions;
           PhysicalDiskInfo.PNPDeviceID = PhysicalDisk.PNPDeviceID;
           PhysicalDiskInfo.PowerManagementCapabilities = PhysicalDisk.PowerManagementCapabilities;
           PhysicalDiskInfo.PowerManagementSupported = PhysicalDisk.PowerManagementSupported;
           PhysicalDiskInfo.SCSIBus = PhysicalDisk.SCSIBus;
           PhysicalDiskInfo.SCSILogicalUnit = PhysicalDisk.SCSILogicalUnit;
           PhysicalDiskInfo.SCSIPort = PhysicalDisk.SCSIPort;
           PhysicalDiskInfo.SCSITargetId = PhysicalDisk.SCSITargetId;
           PhysicalDiskInfo.SectorsPerTrack = PhysicalDisk.SectorsPerTrack;
           PhysicalDiskInfo.Signature = PhysicalDisk.Signature;
           PhysicalDiskInfo.Size = PhysicalDisk.Size;
           PhysicalDiskInfo.Status = PhysicalDisk.Status;
           PhysicalDiskInfo.StatusInfo = PhysicalDisk.StatusInfo;
           PhysicalDiskInfo.SystemCreationClassName = PhysicalDisk.SystemCreationClassName;
           PhysicalDiskInfo.SystemName = PhysicalDisk.SystemName;
           PhysicalDiskInfo.TotalCylinders = PhysicalDisk.TotalCylinders;
           PhysicalDiskInfo.TotalHeads = PhysicalDisk.TotalHeads;
           PhysicalDiskInfo.TotalSectors = PhysicalDisk.TotalSectors;
           PhysicalDiskInfo.TotalTracks = PhysicalDisk.TotalTracks;
           PhysicalDiskInfo.TracksPerCylinder = PhysicalDisk.TracksPerCylinder;
       КонецЦикла;

   Исключение
   КонецПопытки;

   Возврат Win32_PhysicalDiskInfo;

КонецФункции

// Функция, позволяющая получить информацию о логических дисках локального/удаленного компьютера.
// Параметры:
//   Computer - Имя компьютера.
// Возвращаемое значение:
//   Таблица значений.
//
// Рекомендация:
// Перед применением проверить на компьютерах
// Windows Management Instrumentation (WMI):
// 1. Состояние служб.
// 2. Разрешение в брандмауэре.
// Подробности на странице: //infostart.ru/public/165702
//
&НаСервереБезКонтекста
Функция Computer_LogicalDisk(Computer = ".")

   Win32_LogicalDiskInfo = Новый ТаблицаЗначений;
   Win32_LogicalDiskInfo.Колонки.Добавить("Access");
   Win32_LogicalDiskInfo.Колонки.Добавить("Availability");
   Win32_LogicalDiskInfo.Колонки.Добавить("BlockSize");
   Win32_LogicalDiskInfo.Колонки.Добавить("Caption");
   Win32_LogicalDiskInfo.Колонки.Добавить("Compressed");
   Win32_LogicalDiskInfo.Колонки.Добавить("ConfigManagerErrorCode");
   Win32_LogicalDiskInfo.Колонки.Добавить("ConfigManagerUserConfig");
   Win32_LogicalDiskInfo.Колонки.Добавить("CreationClassName");
   Win32_LogicalDiskInfo.Колонки.Добавить("Description");
   Win32_LogicalDiskInfo.Колонки.Добавить("DeviceID");
   Win32_LogicalDiskInfo.Колонки.Добавить("DriveType");
   Win32_LogicalDiskInfo.Колонки.Добавить("ErrorCleared");
   Win32_LogicalDiskInfo.Колонки.Добавить("ErrorDescription");
   Win32_LogicalDiskInfo.Колонки.Добавить("ErrorMethodology");
   Win32_LogicalDiskInfo.Колонки.Добавить("FileSystem");
   Win32_LogicalDiskInfo.Колонки.Добавить("FreeSpace");
   Win32_LogicalDiskInfo.Колонки.Добавить("InstallDate");
   Win32_LogicalDiskInfo.Колонки.Добавить("LastErrorCode");
   Win32_LogicalDiskInfo.Колонки.Добавить("MaximumComponentLength");
   Win32_LogicalDiskInfo.Колонки.Добавить("MediaType");
   Win32_LogicalDiskInfo.Колонки.Добавить("Name");
   Win32_LogicalDiskInfo.Колонки.Добавить("NumberOfBlocks");
   Win32_LogicalDiskInfo.Колонки.Добавить("PNPDeviceID");
   Win32_LogicalDiskInfo.Колонки.Добавить("PowerManagementCapabilities");
   Win32_LogicalDiskInfo.Колонки.Добавить("PowerManagementSupported");
   Win32_LogicalDiskInfo.Колонки.Добавить("ProviderName");
   Win32_LogicalDiskInfo.Колонки.Добавить("Purpose");
   Win32_LogicalDiskInfo.Колонки.Добавить("QuotasDisabled");
   Win32_LogicalDiskInfo.Колонки.Добавить("QuotasIncomplete");
   Win32_LogicalDiskInfo.Колонки.Добавить("QuotasRebuilding");
   Win32_LogicalDiskInfo.Колонки.Добавить("Size");
   Win32_LogicalDiskInfo.Колонки.Добавить("Status");
   Win32_LogicalDiskInfo.Колонки.Добавить("StatusInfo");
   Win32_LogicalDiskInfo.Колонки.Добавить("SupportsDiskQuotas");
   Win32_LogicalDiskInfo.Колонки.Добавить("SupportsFileBasedCompression");
   Win32_LogicalDiskInfo.Колонки.Добавить("SystemCreationClassName");
   Win32_LogicalDiskInfo.Колонки.Добавить("SystemName");
   Win32_LogicalDiskInfo.Колонки.Добавить("VolumeDirty");
   Win32_LogicalDiskInfo.Колонки.Добавить("VolumeName");
   Win32_LogicalDiskInfo.Колонки.Добавить("VolumeSerialNumber");

   Попытка

       WinMGMT = ПолучитьCOMОбъект("winmgmts:\\" + Computer + "\root\cimv2");
       Win32_LogicalDisk = WinMGMT.ExecQuery("SELECT * from Win32_LogicalDisk");

       Для Каждого LogicalDisk ИЗ Win32_LogicalDisk Цикл
           LogicalDiskInfo = Win32_LogicalDiskInfo.Добавить();
           LogicalDiskInfo.Access = LogicalDisk.Access;
           LogicalDiskInfo.Availability = LogicalDisk.Availability;
           LogicalDiskInfo.BlockSize = LogicalDisk.BlockSize;
           LogicalDiskInfo.Caption = LogicalDisk.Caption;
           LogicalDiskInfo.Compressed = LogicalDisk.Compressed;
           LogicalDiskInfo.ConfigManagerErrorCode = LogicalDisk.ConfigManagerErrorCode;
           LogicalDiskInfo.ConfigManagerUserConfig = LogicalDisk.ConfigManagerUserConfig;
           LogicalDiskInfo.CreationClassName = LogicalDisk.CreationClassName;
           LogicalDiskInfo.Description = LogicalDisk.Description;
           LogicalDiskInfo.DeviceID = LogicalDisk.DeviceID;
           LogicalDiskInfo.DriveType = LogicalDisk.DriveType;
           LogicalDiskInfo.ErrorCleared = LogicalDisk.ErrorCleared;
           LogicalDiskInfo.ErrorDescription = LogicalDisk.ErrorDescription;
           LogicalDiskInfo.ErrorMethodology = LogicalDisk.ErrorMethodology;
           LogicalDiskInfo.FileSystem = LogicalDisk.FileSystem;
           LogicalDiskInfo.FreeSpace = LogicalDisk.FreeSpace;
           LogicalDiskInfo.InstallDate = LogicalDisk.InstallDate;
           LogicalDiskInfo.LastErrorCode = LogicalDisk.LastErrorCode;
           LogicalDiskInfo.MaximumComponentLength = LogicalDisk.MaximumComponentLength;
           LogicalDiskInfo.MediaType = LogicalDisk.MediaType;
           LogicalDiskInfo.Name = LogicalDisk.Name;
           LogicalDiskInfo.NumberOfBlocks = LogicalDisk.NumberOfBlocks;
           LogicalDiskInfo.PNPDeviceID = LogicalDisk.PNPDeviceID;
           LogicalDiskInfo.PowerManagementCapabilities = LogicalDisk.PowerManagementCapabilities;
           LogicalDiskInfo.PowerManagementCapabilities = LogicalDisk.PowerManagementCapabilities;
           LogicalDiskInfo.PowerManagementSupported = LogicalDisk.PowerManagementSupported;
           LogicalDiskInfo.Purpose = LogicalDisk.Purpose;
           LogicalDiskInfo.QuotasDisabled = LogicalDisk.QuotasDisabled;
           LogicalDiskInfo.QuotasIncomplete = LogicalDisk.QuotasIncomplete;
           LogicalDiskInfo.QuotasRebuilding = LogicalDisk.QuotasRebuilding;
           LogicalDiskInfo.Size = LogicalDisk.Size;
           LogicalDiskInfo.Status = LogicalDisk.Status;
           LogicalDiskInfo.StatusInfo = LogicalDisk.StatusInfo;
           LogicalDiskInfo.SupportsDiskQuotas = LogicalDisk.SupportsDiskQuotas;
           LogicalDiskInfo.SupportsFileBasedCompression = LogicalDisk.SupportsFileBasedCompression;
           LogicalDiskInfo.SystemCreationClassName = LogicalDisk.SystemCreationClassName;
           LogicalDiskInfo.SystemName = LogicalDisk.SystemName;
           LogicalDiskInfo.VolumeDirty = LogicalDisk.VolumeDirty;
           LogicalDiskInfo.VolumeName = LogicalDisk.VolumeName;
           LogicalDiskInfo.VolumeSerialNumber = LogicalDisk.VolumeSerialNumber;
       КонецЦикла;

   Исключение
   КонецПопытки;

   Возврат Win32_LogicalDiskInfo;

КонецФункции

// Функция, позволяющая получить значения атрибутов каталога локального компьютера.
//
&НаСервереБезКонтекста
Функция GetFolderInfo(Folder = "c:\program files")

FolderInfo = Новый Структура;

   Попытка

       FileSystemObject = Новый COMОбъект("Scripting.FileSystemObject");
       FileSystemObject_FOLDER = FileSystemObject.GetFolder(Folder);

        // Имя папки.
       FolderInfo.Вставить("Name", FileSystemObject_FOLDER.Name);
       // Короткое имя папки.
       FolderInfo.Вставить("ShortName", FileSystemObject_FOLDER.ShortName);
       // Тип папки.
       FolderInfo.Вставить("Type", FileSystemObject_FOLDER.Type);
       // Признак Корневая/Некорневая.
       FolderInfo.Вставить("IsRootFolder", FileSystemObject_FOLDER.IsRootFolder);
       // Имя диска, на котором расположена папка.
       FolderInfo.Вставить("Drive", FileSystemObject_FOLDER.Drive.Path);
       // Родительская папка.
       FolderInfo.Вставить("ParentFolder", FileSystemObject_FOLDER.ParentFolder.Name);
       // Полный путь.
       FolderInfo.Вставить("Path", FileSystemObject_FOLDER.Path);
       // Короткий путь.
       FolderInfo.Вставить("ShortPath", FileSystemObject_FOLDER.ShortPath);
        // Дата создания папки.
       FolderInfo.Вставить("DateCreated", FileSystemObject_FOLDER.DateCreated);
       // Дата последнего доступа к папке.
       FolderInfo.Вставить("DateLastAccessed", FileSystemObject_FOLDER.DateLastAccessed);
       // Дата последнего изменения папки.
       FolderInfo.Вставить("DateLastModified", FileSystemObject_FOLDER.DateLastModified);
       // Аттрибуты папки.
       // 0 - Атрибуты не установлены.
       // 1 - Read-only file.
       // 2 - Hidden file.
       // 4 - System file.
       // 8 - Метка тома.
       // 16 - Папка.
       // 32 - Архивный файл.
       // 64 - Ссылка/Ярык.
       // 128 - Сжатый файл.
       // При сочетании атрибутов их значения суммируются.
       // Например: "c:\program files": 1 (Read-only file) + 16 (Папка) = 17.
       FolderInfo.Вставить("Attributes", FileSystemObject_FOLDER.Attributes);
        // Количество подпапок.
       FolderInfo.Вставить("SubFoldersCount", FileSystemObject_FOLDER.SubFolders.Count);
       // Количество файлов.
       FolderInfo.Вставить("FilesCount", FileSystemObject_FOLDER.Files.Count);
       // Размер папки.
       FolderInfo.Вставить("Size", FileSystemObject_FOLDER.Size);

   Исключение
   КонецПопытки;

   Возврат FolderInfo;

КонецФункции

// Функция, позволяющая получить значения атрибутов файла локального компьютера.
//
&НаСервереБезКонтекста
Функция GetFileInfo(File = "C:\boot.ini")

FileInfo = Новый Структура;

   Попытка

       FileSystemObject = Новый COMОбъект("Scripting.FileSystemObject");
       FileSystemObject_FILE = FileSystemObject.GetFile(File);

        // Имя файла.
       FileInfo.Вставить("Name", FileSystemObject_FILE.Name);
       // Короткое имя файла.
       FileInfo.Вставить("ShortName", FileSystemObject_FILE.ShortName);
       // Тип файла.
       FileInfo.Вставить("Type", FileSystemObject_FILE.Type);
       // Имя диска, на котором расположен файл.
       FileInfo.Вставить("Drive", FileSystemObject_FILE.Drive.Path);
       // Родительская папка файла.
       FileInfo.Вставить("ParentFolder", FileSystemObject_FILE.ParentFolder.Name);
       // Полный путь.
       FileInfo.Вставить("Path", FileSystemObject_FILE.Path);
       // Короткий путь.
       FileInfo.Вставить("ShortPath", FileSystemObject_FILE.ShortPath);
       // Размер файла.
       FileInfo.Вставить("Size", FileSystemObject_FILE.Size);
       // Дата создания файла.
       FileInfo.Вставить("DateCreated", FileSystemObject_FILE.DateCreated);
       // Дата последнего доступа к файлу.
       FileInfo.Вставить("DateLastAccessed", FileSystemObject_FILE.DateLastAccessed);
       // Дата последнего изменения файла.
       FileInfo.Вставить("DateLastModified", FileSystemObject_FILE.DateLastModified);
       // Аттрибуты файла.
       // 0 - Атрибуты не установлены.
       // 1 - Read-only file.
       // 2 - Hidden file.
       // 4 - System file.
       // 8 - Метка тома.
       // 16 - Папка.
       // 32 - Архивный файл.
       // 64 - Ссылка или ярык.
       // 128 - Сжатый файл.
       // При сочетании атрибутов их значения суммируются.
       // Например: "C:\boot.ini": 2 (Hidden file) + 4 (System file) + 32 (Архивный файл) = 38.
       FileInfo.Вставить("Attributes", FileSystemObject_FILE.Attributes);

   Исключение
   КонецПопытки;

   Возврат FileInfo;

КонецФункции

// Функция прочитать текстовый файл.
// Возвращает массив считанных строк.
//
&НаКлиентеНаСервереБезКонтекста
Функция ПрочитатьТекстовыйФайл(Файл = "D:\TXT\TXT.TXT")

   Массив = Новый Массив;
   Попытка
       FileSystemObject = Новый COMОбъект("Scripting.FileSystemObject");
       Если НЕ FileSystemObject.FileExists(Файл) Тогда
           Сообщить("Файл: " + Файл + " не существует.");
           Возврат Массив;
       КонецЕсли;
       FileSystemObject_FILE = FileSystemObject.OpenTextFile(Файл);
       Пока НЕ FileSystemObject_FILE.AtEndOfLine Цикл
            СтрокаФайла = FileSystemObject_FILE.ReadLine();
           Массив.Добавить(СтрокаФайла);
       КонецЦикла;
       FileSystemObject_FILE.Close();
   Исключение
   КонецПопытки;

   Возврат Массив;

КонецФункции

// Функция: Пример создания файла (с проверкой: перезаписать/не перезаписать существующий файл).
// Возвращает Истина/Ложь.
//
&НаКлиентеНаСервереБезКонтекста
Функция СоздатьТекстовыйФайл(Файл = "D:\TXT\TXT.TXT", Перезаписать = Истина, Массив)

   Если Массив = Неопределено Тогда
       Возврат Ложь;
   КонецЕсли;

   ФайлСозданПерезаписан = Ложь;
   Попытка
       FileSystemObject = Новый COMОбъект("Scripting.FileSystemObject");
       Если FileSystemObject.FileExists(Файл) Тогда
           Если Перезаписать Тогда
               FileSystemObject_FILE = FileSystemObject.CreateTextFile(Файл, -1, 0);   // Перезаписать существующий файл.
           Иначе
               Сообщить("Файл: " + Файл + " уже существует. Содержание не изменено.");
               Возврат Ложь;
           КонецЕсли;
       Иначе
           FileSystemObject_FILE = FileSystemObject.CreateTextFile(Файл, 0, 0);       // Создать новый файл файл.
       КонецЕсли;
       Для Каждого Элемент ИЗ Массив Цикл
           FileSystemObject_FILE.WriteLine(Элемент);
       КонецЦикла;
       FileSystemObject_FILE.Close();
       ФайлСозданПерезаписан = Истина;
   Исключение
   КонецПопытки;

   Возврат ФайлСозданПерезаписан;

КонецФункции

// Функция создает ярлык "Блокнот" на рабочем столе.
//
Функция СоздатьЯрлыкБлокнотНаРабочемСтоле()

   Попытка

       WSHShell = Новый COMОбъект("WScript.Shell");

       DesktopPath = WSHShell.SpecialFolders.Item("Desktop");
       Shortcut = WSHShell.CreateShortcut(DesktopPath + "\\Блокнот.lnk");
       Shortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%\\notepad.exe");
       Shortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%");
       Shortcut.HotKey = "CTRL+ALT+N";
       // 3 - Запустить программу с максимальным по размеру окном.
       // 4 - Запустить программу со стандартным размером окна.
       // 7 - Запустить программу, окно свернуто на панели задач.
       Shortcut.WindowStyle = 4;
       Shortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("%windir%\\notepad.exe, 0");
       Shortcut.Save();

   Исключение
   КонецПопытки;

КонецФункции

// Функция возвращает путь к папке пользователя "Мои документы".
//
&НаКлиентеНаСервереБезКонтекста
Функция МоиДокументы()

   Попытка
       WshShell = Новый COMОбъект("Wscript.Shell");
       WshFolder = WshShell.SpecialFolders.Item("MyDocuments");
       Возврат WshFolder;
   Исключение
       Возврат "";
   КонецПопытки;

КонецФункции

С уважением к сообществу МА!

Вступайте в нашу телеграмм-группу Инфостарт

Windows Windows Script Host WSH Windows Management Instrumentation WMI VBS 1С скрипт script реестр управление конфигурация системная информация удаленный компьютер

+44 –

Вы можете заказать платную адаптацию этой статьи под ваши задачи на «Бирже заказов».

0% комиссии — оплата напрямую исполнителю;
Исполнители любого масштаба — от отдельных специалистов до команд под проект;
Прямой обмен контактами между заказчиком и исполнителем;
Безопасная сделка — при необходимости;
Рейтинги, кейсы и прозрачная система откликов.

См. также

Postgres и 6 ТБ данных: что мы узнали за год эксплуатации

Администрирование СУБД Системный администратор Программист Бесплатно (free)

Статья рассказывает об опыте перевода больших баз с MSSQL на Postgres и годовой эксплуатации после перехода. Показано, с какими ограничениями утилиты ibcmd можно столкнуться при миграции больших баз и какие подходы помогают безопасно обходить эти проблемы. Приведены наиболее интересные кейсы, выявленные в эксплуатации: особенности настроек Postgres, поведение оптимизатора, тонкости работы логики и статистики, а также редкие, но критичные ситуации с производительностью. Материал будет полезен тем, кто планирует переход на Postgres и хочет заранее понимать реальные риски, подводные камни и проверенные практики их преодоления.

20.04.2026 6197 berserg 12

Прокачиваем Постгрес

Администрирование СУБД Программист Бесплатно (free)

Прокачиваем Постгрес с помощью пользовательских функций и процедур.

02.03.2026 1951 SerVer1C 3

Инструкция по переносу данных из базы MSSQL в базу PostgreSQL

Администрирование СУБД Системный администратор Программист Бесплатно (free)

Копирование данных из Мелкомягкого сиквела в Постгрес.

19.02.2026 1859 SerVer1C 12

Инструкция по переносу данных между базами PostgreSQL

Администрирование СУБД Системный администратор Программист Бесплатно (free)

Копирование данных между различными базами на Постгресе.

18.02.2026 2024 SerVer1C 0

Горизонтальное масштабирование 1С: переносим отчеты на реплику без потери производительности

HighLoad оптимизация Администрирование СУБД 1С:Предприятие 8 Бесплатно (free)

В статье рассматриваются текущие возможности горизонтального масштабирования СУБД для 1С, а также какое решение предлагает Tantor Postgres.

02.02.2026 2095 Tantor 3

Как мы ускоряли бэкенды на 1С

Администрирование СУБД Технологический журнал Мониторинг Системный администратор Программист Бесплатно (free)

Рассказываем, почему высоконагруженным бэкендам на 1С нужен регулярный мониторинг и что происходит, когда его нет: производительность и стабильность деградируют, а обращения пользователей копятся. Показываем, как построили легкую систему наблюдаемости для бэкендов корпоративных порталов. Она включает сбор метрик из технологического журнала, Apdex, журнала регистрации и динамики размеров таблиц с последующим анализом в связке ClickHouse и служебной информационной базы на 1С. Объясняем, какие отчеты и метрики быстрее всего помогают находить критичные проблемы производительности, и демонстрируем интерфейс расследования. Разбираем несколько кейсов оптимизации, найденных по итогам мониторинга, включая доработки функционала БСП «управление доступом» и «присоединенные файлы».

15.12.2025 5331 tystik 1

Как мы провели этим летом нагрузочный тест на 30 тысяч пользователей

HighLoad оптимизация Администрирование СУБД 1С:Предприятие 8 1С:ERP Управление предприятием 2 Бесплатно (free)

Завершаем цикл статей по совместному докладу Алены Генераловой и Александра Симонова на INFOSTART TECH EVENT 2025 о нагрузочном тестировании (НТ) на 30 000 АРМ на машине баз данных Tantor XData. В заключительной части расскажем о том, что нас ждало при запусках теста, и какие доработки СУБД Tantor Postgres были сделаны, чтобы его пройти с высоким результатом.

27.11.2025 4016 Tantor 28

СУБД Tantor Postgres 17.6: обзор улучшений для 1С

HighLoad оптимизация Администрирование СУБД Программист Бесплатно (free)

Продолжаем знакомить вас с улучшениями СУБД Tantor Postgres для работы с продуктами 1С. В рамках предыдущей статьи мы разобрали арсенал специализированных функций, призванных существенно ускорить выполнение типичных для 1С операций, снизить нагрузку на инфраструктуру и упростить администрирование. Сегодня мы рассмотрим, с какими проблемами можно столкнуться при высоких значениях default_statistics_target, расскажем о новых оптимизациях для ускорения выполнения запросов, и, конечно, коснемся временных таблиц.

11.11.2025 2698 Tantor 10

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. mzelensky 53 20.12.12 07:54 Сейчас в теме

однозначно +

2. Zas1402 20.12.12 17:13 Сейчас в теме

Автору респект.

3. vec435 17 09.01.13 18:13 Сейчас в теме

может быть пропустил, поэтому добавлю к функции GetFolderInfo
//размер папки
FolderInfo.Вставить("Size", FileSystemObject_FOLDER.Size);
//количество подпапок
FolderInfo.Вставить("SubFoldersCount", FileSystemObject_FOLDER.SubFolders.Count);
//количество файлов
FolderInfo.Вставить("FilesCount", FileSystemObject_FOLDER.Files.Count);

4. StepByStep 3702 10.01.13 09:59 Сейчас в теме

(3) vec435,
Спасибо.

5. vec435 17 10.01.13 11:25 Сейчас в теме

можно продолжить статьи примерами по работе c WMI

6. StepByStep 3702 06.02.13 13:04 Сейчас в теме

Добавлены функции: Computer_PhysicalDisk(), Computer_LogicalDisk().

7. platon_ 10 09.11.18 17:09 Сейчас в теме

//количество подпапок
FolderInfo.Вставить("SubFoldersCount", FileSystemObject_FOLDER.SubFolders.Count);
//количество файлов
FolderInfo.Вставить("FilesCount", FileSystemObject_FOLDER.Files.Count);

я так понял они возвращают только то, что находится на 1 уровень ниже чем основная папка?

А как получить сколько всего папок и файлов в этой папке? в стандартном интерфейса виндоус такое показано.

Для отправки сообщения требуется регистрация/авторизация

Автор:

Андрей М. (StepByStep)

Рейтинг: 3702

Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот

Вы можете заказать платную консультацию или разработку у автора. Будет создан приватный заказ на «Бирже заказов» для автора.

Публикация:

№ 166391

Создание 16.12.12 21:45

Обновление 20.10.13 19:48

Статистика:

Просмотры 37907

Загрузки 0

Рейтинг 44

Комментарии 7

Характеристики:

Код открыт Да

Рубрики Администрирование СУБД

Кому Системный администратор ,
Программист

Тип файла Нет файла

Платформа 1С:Предприятие 8

Конфигурация 1C:Бухгалтерия

Операционная система Windows

Страна Не имеет значения

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Не имеет значения

Доступ к файлу Бесплатно (free)

1С и Windows Script Host (WSH) и Windows Management Instrumentation (WMI). ОТ ТЕОРИИ К ПРАКТИКЕ. Часть II

См. также

Журнал

База знаний

Лаборатория

Анализ & Управление

Сопровождение 1С

Корпоративные решения

Обучение

Маркетплейс

Проектный офис

Мероприятия

Видеозаписи

Биржа заказов

Форум

Мерч

О компании