7.7 Отслеживание выгрузки

Через WSH.. метод Environment

WshShell = СоздатьОбъект(''WScript.Shell'');
WshSysEnv = WshShell.Environment(''PROCESS'');
Назначение:
Данный объект обеспечивает доступ к переменным среды Windows. Самостоятельно не объявляется. Возвращается свойством Environment объекта
WshShell.
Деление на свойства и методы дано в соответствии с документацией.
Пример:
WshShell = CreateObject(''WScript.Shell'');
WshSysEnv = WshShell.Environment(''Process'');
Сообщить(''Общее количество переменных среды ''+WshSysEnv.Length);
Сообщить(''Количество процессоров ''+WshSysEnv.Item(''NUMBER_OF_PROCESSORS''));
Сообщить(''Архитектура процессовра ''+WshSysEnv.Item(''PROCESSOR_ARCHITECTURE''));
Сообщить(''Идентификатор процессора ''+WshSysEnv.Item(''PROCESSOR_IDENTIFIER''));
Сообщить(''Уровень процессора ''+WshSysEnv.Item(''PROCESSOR_LEVEL''));
Сообщить(''Версия процессора ''+WshSysEnv.Item(''PROCESSOR_REVISION''));
Сообщить(''Операционная система ''+WshSysEnv.Item(''OS''));
Сообщить(''Командная строка ''+WshSysEnv.Item(''COMSPEC''));
Сообщить(''Загрузочный физический диск ''+WshSysEnv.Item(''HOMEDRIVE''));
Сообщить(''Каталог пользователя ''+WshSysEnv.Item(''HOMEPATH''));
Сообщить(''Переменная Path=''+WshSysEnv.Item(''PATH''));
Сообщить(''Дополнительные исполняемые файлы: ''+WshSysEnv.Item(''PATHEXT''));
Сообщить(''Переменная PROMPT=''+WshSysEnv.Item(''PROMPT''));
Сообщить(''Загрузочный логический диск Windows ''+WshSysEnv.Item(''SYSTEMDRIVE''));
Сообщить(''Каталог Windows ''+WshSysEnv.Item(''SYSTEMROOT''));
Сообщить(''Каталог Windows ''+WshSysEnv.Item(''WINDIR''));
Сообщить(''Временный каталог Windows (TEMP) ''+WshSysEnv.Item(''TEMP''));
Сообщить(''Временный каталог Windows (TMP) ''+WshSysEnv.Item(''TMP''));

WshNetwork = СоздатьОбъект(''WScript.Network'');
Назначение:
Объект WshNetwork обеспечивает доступ к общим ресурсам сети, с которой связан ваш компьютер. С его помощью можно подключать/отключать сетевые диски и принтеры; устанавливать принтеры по умолчанию; получать параметры текущего сетевого подключения.
Пример:
WshNetwork = CreateObject(''WScript.Network'');
Сообщить(''Имя компьютера: ''+WshNetwork.ComputerName);
Сообщить(''Имя домена: ''+WshNetwork.UserDomain);
Сообщить(''Имя пользователя: ''+WshNetwork.UserName);
NetworkDrives=WshNetwork.EnumNetworkDrives();
Для Сч=0 По NetworkDrives.length-1 Цикл
Сообщить(''Подключен сетевой диск ''+NetworkDrives.Item(сч)+'' [''+NetworkDrives.Item(сч+1)+'']'');
сч=сч+1;
КонецЦикла;
NetworkPrinters=WshNetwork.EnumPrinterConnections();
Для Сч=0 По NetworkPrinters.length-1 Цикл
Сообщить(''Подключен сетевой принтер ''+NetworkPrinters.Item(сч)+'' [''+NetworkPrinters.Item(сч+1)+'']'');
сч=сч+1;
КонецЦикла;