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

Тема в разделе "Общие вопросы "1С:Предприятие 7.7"", создана пользователем ProX, 15 дек 2014.

  1. TopicStarter Overlay
    ProX
    Offline

    ProX

    Регистрация:
    15 дек 2014
    Сообщения:
    3
    Симпатии:
    0
    Баллы:
    1
    Всем доброго времени суток, такая ситуация, мне нужно отследить в своей компании машину с которой делается выгрузка, возможно ли это? Буду очень признателен.
    Последнее редактирование: 15 дек 2014
  2. LordMaverick
    Offline

    LordMaverick Профессионал в 1С

    Регистрация:
    17 мар 2014
    Сообщения:
    3.437
    Симпатии:
    373
    Баллы:
    104
    а подробнее то можно?
    начав с указания продукта
    и закончив техзаданием процесса
  3. TopicStarter Overlay
    ProX
    Offline

    ProX

    Регистрация:
    15 дек 2014
    Сообщения:
    3
    Симпатии:
    0
    Баллы:
    1
    1с предприятие 7.7 Выгрузка полностью прайса каталога товаров, со всеми ценами и характеристиками. мне нужно узнать с каких машин делают эту выгрузку.
  4. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.520
    Симпатии:
    407
    Баллы:
    104
    Через WSH.. метод Environment
  5. TopicStarter Overlay
    ProX
    Offline

    ProX

    Регистрация:
    15 дек 2014
    Сообщения:
    3
    Симпатии:
    0
    Баллы:
    1
    А можно по подробнее? не очень силен в этом. Буду очень благодарен.
  6. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.520
    Симпатии:
    407
    Баллы:
    104
    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;
    КонецЦикла;
    ProX нравится это.

Поделиться этой страницей