// Функция Дополняет переданную в качестве первого параметра строку символами слева\справа до заданной длины и возвращает ее

// Незначащие символы слева и справа удаляются

// По умолчанию функция добавляет строку нулями слева

//

// Параметры:

//  Строка      - Строка - исходная строка, которую необходимо дополнить символами до заданной длины

//  ДлинаСтроки - Число - требуемая конечная длина строки

//  Символ      - Строка - (необязательный) значение символа, которым необходимо дополнить строку

//  Режим       - Строка - (необязательный) [Слева|Справа] режим добавления символов к исходной строке: слева или справа

// 

// Пример 1:

// Строка = "1234"; ДлинаСтроки = 10; Символ = "0"; Режим = "Слева"

// Возврат: "0000001234"

//

// Пример 2:

// Строка = " 1234  "; ДлинаСтроки = 10; Символ = "#"; Режим = "Справа"

// Возврат: "1234######"

//

// Возвращаемое значение:

//  Строка - строка, дополненная символами слева или справа

//

 

Функция ДополнитьСтроку(Знач Строка, Знач ДлинаСтроки, Знач Символ = "0", Знач Режим = "Слева") Экспорт

 

    Если ПустаяСтрока(Символ) Тогда

        Символ = "0";

    КонецЕсли;

    

    // длина символа не должна превышать единицы

    Символ = Лев(Символ, 1);

    // удаляем крайние пробелы слева и справа строки

    Строка = СокрЛП(Строка);

    

    КоличествоСимволовНадоДобавить = ДлинаСтроки - СтрДлина(Строка);

 

    Если КоличествоСимволовНадоДобавить > 0 Тогда

        СтрокаДляДобавления = "";

        Пока СтрДлина(СтрокаДляДобавления) < КоличествоСимволовНадоДобавить Цикл

           СтрокаДляДобавления = СтрокаДляДобавления + Символ;

        КонецЦикла;



        Если ВРег(Режим) = "СЛЕВА" Тогда

            Строка = СтрокаДляДобавления + Строка;

        ИначеЕсли ВРег(Режим) = "СПРАВА" Тогда

            Строка = Строка + СтрокаДляДобавления;

        КонецЕсли;

    КонецЕсли;

    

    Возврат Строка;

    

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

 Функция ДополнитьСтрокуПробелами(Строка, Длина)

    Пока СтрДлина(Строка) < Длина Цикл

        Пробел = Символ(0);

        Строка = Строка + Пробел;

     КонецЦикла;

     Возврат Строка;

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

 // Глобальная переменная в которой будем хранить

// известные нам типы статусов сетевой карты

перем сзТипСтатуса;

// Глобальная переменая

перем обШелл;



//*******************************************

// стрСтатусАдаптера(стрИмя = "")

//

// Параметры:

//  стрИмя - Строка. Имя сетевой статус которой надо определить.

//           В том виде как показа в сетвых подключениях.

//

// Возвращаемое значение:

//  Строка. Статус заданой сетевой.

//

// Описание:

//  Функция определяет статус сетевой.

//

функция стрСтатусАдаптера(стрИмя = "")

    Ответ = "";

    // Попытаемся получить статус через контрол скриптов

    попытка

        сзСтевые = создатьобъект("списокзначений");

        // Выполняем скрипт. Из полученного значения пытаемся

        // сформировать список значений

        сзСтевые = значениеизстроки(обШелл.Run("strGetAdapterInfo"));

    исключение

        // По каким-то причинам выполнить скрипт не удалось

        Ответ = "Статус установить не удалось";

    конецпопытки;

    // Если в возращаемом значение пустая строка, то скрипт

    // выполнился. Можно смотреть дальше.

    если Ответ = "" тогда

        // Получаем индекс статуса сетевой.

        стрСтатус = строка(сзСтевые.Получить(стрИмя));

        // Проверяем на пустое значение индекса.

        если пустоезначение(стрСтатус) = 1 тогда

            // Если индекс пуст, то сетевая суказанным именем отсуствует

            Ответ = "Сетевая с таким именем отсуствует";

        иначе

            // Ищем индекс статуса в известных нам типов статуса.

            чисПозиция = сзТипСтатуса.НайтиЗначение(стрСтатус);

            если чисПозиция = 0 тогда

                // Не нашли. Смотрим MSDN

                Ответ = "Не известный тип статуса сетевой";

            иначе

                // Получаем строковое представление статуса.

                сзТипСтатуса.ПолучитьЗначение(чисПозиция, Ответ);

            конецесли;

        конецесли;

    конецесли;

    // Возвращаем полученный статус

    возврат Ответ;

конецфункции;



//*******************************************

// Этот блок обязателен.

// Необходимо что бы он отработал до первого вызова

// функции стрСтатусАдаптера

//*******************************************

// Создаем объект для управления скриптами

обШелл = создатьобъект("MSScriptControl.ScriptControl");

// Устанавливаем рабочий язык для выполнения скриптов

обШелл.Language = "VBScript";

// Сам срипт который соберет статусы всех сетевых устройств

тхтКод = "

|function strGetAdapterInfo()

|  dim objNetworkAdapter

|  Answer = ""{""""СписокЗначений"""",{""

|  set objWMI = getobject(""WinMgmts:\\.\Root\CIMV2"")

|  set objNetworkAdapters = objWMI.ExecQuery(""S_elect * FROM Win32_NetworkAdapter"", , 48)

|  for each objNetworkAdapter in objNetworkAdapters

|    Answer = Answer & ""{{""""Строка"""","""""" & objNetworkAdapter.NetConnectionStatus &_

|             """"""}, """""" & objNetworkAdapter.NetConnectionID & """""",""""0""""}""

|            

|  next

|  Answer = Answer & ""}}""

|  strGetAdapterInfo = Answer

|  end function";

// Добавим наш скрипт в котрол скриптов

обШелл.AddCode(тхтКод);

// Создадим список значений в который поместим все известные нам

// виды статуса сетевых устройств.

сзТипСтатуса = создатьобъект("списокзначений");

// Поместим в список значений виды статусов их строковое представление

сзТипСтатуса.ДобавитьЗначение("0", "Отключенно");

сзТипСтатуса.ДобавитьЗначение("1", "Подключение");

сзТипСтатуса.ДобавитьЗначение("2", "Подключено");

сзТипСтатуса.ДобавитьЗначение("3", "Отключение");

сзТипСтатуса.ДобавитьЗначение("4", "Устройство не представленно");

сзТипСтатуса.ДобавитьЗначение("5", "Устройство отключено");

сзТипСтатуса.ДобавитьЗначение("6", "Устройство не исправно");

сзТипСтатуса.ДобавитьЗначение("7", "Соединение разорвано");

сзТипСтатуса.ДобавитьЗначение("8", "Аутентификация");

сзТипСтатуса.ДобавитьЗначение("9", "Аутентификация прошла успешно");

сзТипСтатуса.ДобавитьЗначение("10", "Аутентификация не прошла");

сзТипСтатуса.ДобавитьЗначение("11", "Неправильный адресс");

сзТипСтатуса.ДобавитьЗначение("12", "Требуется полномочия");