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

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

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

//

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

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

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

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

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

// 

// Пример 1:

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

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

//

// Пример 2:

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

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

//

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

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

//

 

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

 

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

        Символ = "0";

    КонецЕсли;

    

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

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

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

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

    

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

 

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

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

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

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

        КонецЦикла;



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

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

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

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

        КонецЕсли;

    КонецЕсли;

    

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

    

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

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

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

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

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

     КонецЦикла;

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

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

 

'Скрипт демонстрирует возможность принудительного завершения процессов 1С

'на всех компьютерахуказанного домена. Данный код можно применять непосредственно перед пакетным запуском 1С:Предприятия,

'требующим монопольного входа в базу данных (например, при резервном копировании).



'ВНИМАНИЕ! Задайте нужное значение переменной "DomainName"!



'ВНИМАНИЕ! Для успешной работы скрипта его желательно запускать с правами администратора домена.



'ВНИМАНИЕ! Чтобы опробовать скрипт, не производя деструктивных действий, достаточно закомментировать

'оператор "Proc.Terminate".



Option Explicit

On Error Resume Next



Dim DomainName 'Имя домена

DomainName = "MYDOMAIN"



Dim StrResult 'строка результата работы всей программы

StrResult = StrResult & CStr(Now) & " начало работы скрипта" & VbCrLf



Dim ADSI

Set ADSI = GetObject("WinNT://" & DomainName)

ADSI.Filter = Array("computer")



Dim Comp 'компьютер

Dim WMI 'объект WMI

Dim Proc 'процесс



Dim CurrName 'имя текущего компьютера

CurrName = GetNameComp()



'Цикл по компьютерам домена

For Each Comp In ADSI

    If Comp.Name <> CurrName Then

        Set WMI = GetObject("winmgmts:{ImpersonationLevel=Impersonate}!\\" & Trim(Comp.Name) & "\Root\CIMV2")

        If Err.Number=0 Then

            'Цикл по процессам компьютера

            For Each Proc In WMI.ExecQuery("S_elect * FROM Win32_Process WHERE Name = '1cv7s.exe'")

                StrResult = StrResult & _

                            CStr(Now) & " Computer=" & Comp.Name & " PID=" & Proc.ProcessId & _

                            VbCrLf

                'Завершение процесса

                Proc.Terminate

            Next 'Цикл по процессам компьютера

        Else 'Не удалось соединиться с компьютером

            If Err.Number <> 462 Then 'The remote server machine does not exist or is unavailable

                StrResult = StrResult & _

                  	        "    " & CStr(Now) & " Computer=" & Comp.Name & " ERROR " & Err.Number & _

                      	    VbCrLf

            End If

        End If

        Err.Clear

    End If

Next 'Цикл по компьютерам домена



StrResult = StrResult & CStr(Now) & " конец работы скрипта" & VbCrLf



'Отображение результата

ShowInNotepad("Процессы 1cv7s.exe:" & VbCrLf & VbCrLf & StrResult)

'==========================================================================

'Процедура отображает переданную строку в блокноте

Sub ShowInNotepad(StrToFile)

    Dim FSO 'Объект файловой системы Scripting.FileSystemObject

    Dim TempPath 'Путь к временному файлу

    Dim TxtFile 'Поток текстового файла

    

    Set FSO = CreateObject("Scripting.FileSystemObject")

    TempPath = GetTempPath() & "\" & FSO.GetTempName

    Set TxtFile = FSO.CreateTextFile(TempPath)

    TxtFile.WriteLine(StrToFile)

    TxtFile.Close

    CreateObject("WScript.Shell").Run "notepad.exe " & TempPath

    WScript.Sleep 1000

    FSO.DeleteFile TempPath

End Sub 'ShowInNotepad

'==========================================================================

'Функция возвращает путь к каталогу временных файлов текущего пользователя

Function GetTempPath()

    GetTempPath = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%TEMP%")

End Function 'GetTempPath

'==========================================================================

'Функция возвращает имя текущего компьютера

Function GetNameComp()

    GetNameComp = CreateObject("WScript.Network").ComputerName

End Function 'GetNameComp    

 //ПарСумма - сумма, число



//коп - Выводится всегда

Функция глРубКоп(ПарСумма) Экспорт

	Если Число(ПарСумма)=0 Тогда

		Возврат "руб.      коп."

	КонецЕсли;

	Возврат ""+Цел(ПарСумма)+" руб. "+Формат((ПарСумма-Цел(ПарСумма))* 100,"ЧЦ=2; ЧВН=")+" коп."

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



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

Функция РубКоп(ПарСумма) Экспорт

        Если Число(ПарСумма)=0 Тогда

               Возврат " "

        КонецЕсли;

        коп = (ПарСумма-Цел(ПарСумма))* 100;   

        Возврат ""+Цел(ПарСумма)+" руб. "+?(коп>0, Формат(коп,"ЧЦ=2; ЧВН=")+" коп.","")

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





//Пример обращения

Процедура КнопкаВыполнитьНажатие(Кнопка)

	Сообщить(глРубКоп(ИтогоСумм)); //К примеру ИтогоСумм=875.05; - Результат 875 руб. 05 коп.

КонецПроцедуры

   

 

// ПарСумма - сумма, число

//

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

//		строка в виде: "ррр руб. кк коп."

//

//	Описание:

//		Преобразует переданную сумму в строку вида "ррр руб. кк коп."

//

Функция глРубКоп(ПарСумма) Экспорт

	Если Число(ПарСумма)=0 Тогда

		Возврат "руб.      коп."

	КонецЕсли;

	Возврат ""+Цел(ПарСумма)+" руб. "+Формат((ПарСумма-Цел(ПарСумма))* 100,"Ч(0)2")+" коп."

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



//Пример обращения

	ИтогоСумм=875.05;

	Сообщить(глРубКоп(ИтогоСумм)); // 875 руб. 05 коп.

 

Функция глРубКоп(ПарСумма) Экспорт

	Если Число(ПарСумма)=0 Тогда

		Возврат "руб.      коп."

	КонецЕсли;

	Возврат ""+Цел(ПарСумма)+" руб. "+Формат((ПарСумма-Цел(ПарСумма))* 100,"ЧЦ=2; ЧВН=")+" коп."

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



//Пример обращения

Процедура КнопкаВыполнитьНажатие(Кнопка)

	Сообщить(глРубКоп(ИтогоСумм)); //К примеру ИтогоСумм=875.05; - Результат 875 руб. 05 коп.

КонецПроцедуры

   

 

Функция глРубКоп(ПарСумма) Экспорт

	Если Число(ПарСумма)=0 Тогда

		Возврат "руб.      коп."

	КонецЕсли;

	Возврат ""+Цел(ПарСумма)+" руб. "+Формат((ПарСумма-Цел(ПарСумма))* 100,"Ч(0)2")+" коп."

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



//Пример обращения

ИтогоСумм=875.05;

Сообщить(глРубКоп(ИтогоСумм)); // 875 руб. 05 коп.