1C программист

👩‍💻 Пример скрипта, который останавливает запущенную службу 1С.

    
        
$services1C = Get-WmiObject win32_service | ?{$_.Name -like '*'} |
    Select Name, DisplayName, State, PathName | 
    Where-Object { $_.PathName  -Like "*ragent.exe*" };

$obj = [PSCustomObject] @{
    data = @($services1C | % {
        $serviceInfo = $_;

        if($serviceInfo.State -eq 'Running')
        {
            $serviceName = $serviceInfo.Name;
            try
            {
                Stop-Service $serviceName;
                Write-Host "Остановлена служба ""$serviceName""" -ForegroundColor Green
            } catch
            {
                Write-Host "Ошибка при остановке службы ""$serviceName""" -ForegroundColor Red
                Write-Host "Подробно:" -ForegroundColor Red
                Write-Host $Error[0] -ForegroundColor Red
            }
        }        
    }) 
}
{}
    

📲 Мы в MAX ✍️ @odin1C_rus

👩‍💻 Пример скрипта, который запускает остановленную службу 1С.

    
        
$services1C = Get-WmiObject win32_service | ?{$_.Name -like '*'} |
    Select Name, DisplayName, State, PathName | 
    Where-Object { $_.PathName  -Like "*ragent.exe*" };

$obj = [PSCustomObject] @{
    data = @($services1C | % {
        $serviceInfo = $_;
        
        if($serviceInfo.State -eq 'Stopped')
        {
            $serviceName = $serviceInfo.Name;
            try
            {
                Start-Service $serviceName;
                Write-Host "Запущена служба ""$serviceName""" -ForegroundColor Green
            } catch
            {
                Write-Host "Ошибка при запуске службы ""$serviceName""" -ForegroundColor Red
                Write-Host "Подробно:" -ForegroundColor Red
                Write-Host $Error[0] -ForegroundColor Red
            }
        }        
    }) 
}

{}
    

📲 Мы в MAX ✍️ @odin1C_rus

1С: Приемы разработки Основы использования таблиц значений Первое внедрение БСП 3.1 Регулярные выражения на каждый день Шаблоны регулярных выражений для начинающих Использование рекурсии на деревьях значений Рекурсия без рекурсии Сложная рекурсия Восходящая и нисходящая рекурсии Особенности построения рекурсии Использование двоичных деревьев для поиска Балансировка и практика применения деревьев источник 📲 Мы в MAX ✍️ @odin1C_rus

Выполняем загрузку картинки в справочник в 1С: Предприятие 8.3 (учебная версия) 📲 Мы в MAX ✍️ @odin1C_rus

🔒 Как хранить пароли в 1С БЕЗОПАСНО Из этого ролика вы узнаете как хранить пароли и другую конфиденциальную информацию в 1С безопасно. Это могут быть пароли от учетной записи электронной почты, сайта либо ключи доступа к различным веб-сервисам. источник 📲 Мы в MAX ✍️ @odin1C_rus

🚀 Подборка полезных IT каналов в Max Системное администрирование, DevOps 📌 https://max.ru/i_odmin Все для системного администратора https://max.ru/bash_srv Bash Советы https://max.ru/sysadminof Книги для админов, полезные материалы https://max.ru/i_odmin_book Библиотека Системного Администратора https://max.ru/i_devops DevOps: Пишем о Docker, Kubernetes и др. https://max.ru/tipsysdmin Типичный Сисадмин 1C разработка 📌 https://max.ru/odin1c_rus Cтатьи, курсы, советы, шаблоны кода 1С Программирование C++📌 https://max.ru/cpp_lib Библиотека C/C++ разработчика Программирование Go📌 https://max.ru/golang_lib Библиотека Go (Golang) разработчика Программирование React📌 https://max.ru/react_lib React Программирование Python 📌 https://max.ru/python_of Python академия. https://max.ru/BookPython Библиотека Python разработчика Java разработка 📌 https://max.ru/bookjava Библиотека Java разработчика GitHub Сообщество 📌 https://max.ru/githublib Интересное из GitHub Базы данных (Data Base) 📌 https://max.ru/database_info Все про базы данных Фронтенд разработка 📌 https://max.ru/frontend_1 Подборки для frontend разработчиков Библиотеки 📌 https://max.ru/programmist_of Книги по программированию https://max.ru/proglb Библиотека программиста https://max.ru/bfbook Книги для программистов Программирование 📌 https://max.ru/bookflow Лекции, видеоуроки, доклады с IT конференций https://max.ru/itmozg Программисты, дизайнеры, новости из мира IT https://max.ru/php_lib Библиотека PHP программиста 👨🏼‍💻👩‍💻 Шутки программистов 📌 https://max.ru/itumor Шутки программистов Защита, взлом, безопасность 📌 https://max.ru/thehaking Канал о кибербезопасности https://max.ru/xakkep_1 Хакер Free Книги, статьи для дизайнеров 📌 https://max.ru/odesigners Статьи, книги для дизайнеров Математика 📌 https://max.ru/Pomatematike Канал по математике https://max.ru/phismat_1 Обучающие видео, книги по Физике и Математике Вакансии 📌 https://max.ru/progjob Вакансии в IT Мир технологий 📌 https://max.ru/mir_teh Канал для любознательных Бонус 📌 https://max.ru/piterspb_78 Свежие новости Санкт-Петербурга https://max.ru/mockva_life Свежие новости Москвы

👩‍💻 Пример скрипта, который завершит все сеансы 1С на сервере. Взаимодействие происходит через COM.

    
        
PowerShell 
$services1C = Get-WmiObject win32_service | ?{$_.Name -like '*'} |
    Select Name, DisplayName, State, PathName | 
    Where-Object { $_.PathName  -Like "*ragent.exe*" };

$services1C | % {
    $serviceInfo = $_;
    $serviceExecPath = $services1C.PathName;
    $serviceExecPathRagent = $services1C.PathName.split('"')[1]
    
    $hash = [ordered]@{}
    $serviceExecPath.Split("-").Trim() | Where-Object { $_.Contains(" ") } | ForEach-Object { 
        $name, $value = $_ -split '\s+', 2
        $hash[$name] = $value
    }

    if([System.IO.File]::Exists($serviceExecPathRagent) -ne $true)
    {        
        break
    }
    
    $platformVersion = [System.Diagnostics.FileVersionInfo]::GetVersionInfo($serviceExecPathRagent).FileVersion        
    $clusterPath = $hash.d -replace '"', ''
    $clusterRegPort = $hash.regport
    $clusterPort = $hash.port
    $clusterPortRange = $hash.range
    $clusterRegPath = "$clusterPath\reg_$clusterRegPort"

    $agentPort = $clusterPort;
    $agentAddress = "localhost";
    $clusterAdminName = ""; # Имя администратора кластера
    $clusterAdminPassword = ""; # Пароль администратора кластера
    $fullAgentAddress = "tcp://" + $agentAddress + ":" + $agentPort;

    $COMConnector = $null;
    try {
        if($platformVersion -like "8.2.*")
        {            
            $COMConnector = New-Object -COMObject "V82.COMConnector"
        }
        if($platformVersion -like "8.3.*")
        {
            $COMConnector = New-Object -COMObject "V83.COMConnector"
        }

        if($null -ne $COMConnector) {
            $serverAgent = $COMConnector.ConnectAgent($fullAgentAddress);
            $clusterList = $ServerAgent.GetClusters();
            foreach ($cluster in $clusterList) {
                $serverAgent.Authenticate($Cluster, $clusterAdminName, $clusterAdminPassword)        

                $serverSessionsData = $serverAgent.GetSessions($cluster);
                $serverSessions = $serverSessionsData.Count;
                $serverSessionsData | ForEach-Object {                
                    $itemSession = $_;
                    $serverAgent.TerminateSession($cluster, $itemSession)

                    $userName = $itemSession.userName
                    $sessionId = $itemSession.SessionID
                    Write-Host "Завершен сеанс $sessionId. Пользователь: $userName" -ForegroundColor Green
                }                
            }
        }

        $COMConnector = $null
    } 
    catch {
        Write-Host "Ошибка при выполнении скрипта." -ForegroundColor Red;
        Write-Host "Подробно:" -ForegroundColor Red
        Write-Host $Error[0] -ForegroundColor Red
    }
}
{}
    

📲 Мы в MAX ✍️ @odin1C_rus

Как не дать фундаменту треснуть: защита данных в 1С Привет! Меня зовут Петр, я начал свой путь 1С разработчика в 2021 году, и за почти 5 лет стажа успел поработать в самых разных компаниях: с крупным бизнесом, корпорациями и даже государственными структурами. Все большие проекты, на которые меня выводили, были похожи друг на друга. Большая команда, 3–4 контура, автотестирование и т.д. всегда масштабно! Но к моему удивлению даже на таких больших проектах зачастую халатно относились к защите данных! Но были проекты, на которых данные клиента были защищены на очень достойном уровне. Из своего опыта и опыта моих коллег, я пришел к такому тезису: если не защищать данные — могут поставить под угрозу бизнес и пользователей. https://habr.com/ru/companies/digital_solutions/articles/931618/ 📲 Мы в MAX ✍️ @odin1C_rus

👩‍💻 Получаем список установленных версий платформы 1С на хосте через PowerShell

    
        
$installedApps = New-Object System.Collections.ArrayList

Get-ItemProperty HKLM:\Software\Microsoft\Windows\CurrentVersion\Uninstall\* |  
Where-Object {  ($_.DisplayName -like "*1C:Предприятие*") -or ($_.DisplayName -like "*1C:Enterprise*") } |
Select-Object DisplayName, DisplayVersion, Publisher, InstallDate, InstallLocation |
ForEach-Object {
    $installedApps.Add(
        [PSCustomObject] @{
            'DisplayName' = $_.DisplayName
            'DisplayVersion' = $_.DisplayVersion
            'Publisher' = $_.Publisher
            'InstallDate' = $_.InstallDate
            'InstallLocation' = $_.InstallLocation
        }
    ) | Out-Null;
}

Get-ItemProperty HKLM:\Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\* | 
Where-Object {  ($_.DisplayName -like "*1C:Предприятие*") -or ($_.DisplayName -like "*1C:Enterprise*") } |
Select-Object DisplayName, DisplayVersion, Publisher, InstallDate, InstallLocation |
ForEach-Object {
    $installedApps.Add(
        [PSCustomObject] @{
            'DisplayName' = $_.DisplayName
            'DisplayVersion' = $_.DisplayVersion
            'Publisher' = $_.Publisher
            'InstallDate' = $_.InstallDate
            'InstallLocation' = $_.InstallLocation
        }
    ) | Out-Null;
}

$installedApps | Format-Table –AutoSize

<# Пример вывода

DisplayName                             DisplayVersion Publisher InstallDate InstallLocation
-----------                             -------------- --------- ----------- ---------------
1C:Предприятие 8 (x86-64) (8.3.16.1063) 8.3.16.1063    1С-Софт   20200106    C:\Program Files\1cv8\8.3.16.1063\
1C:Предприятие 8 (8.3.12.1924)          8.3.12.1924    1С-Софт   20200224    C:\Program Files (x86)\1cv8\8.3.12.1924\
1C:Предприятие 8 (8.3.5.1517)           8.3.5.1517     1C        20200110    C:\Program Files (x86)\1cv8\8.3.5.1517\
1C:Предприятие 8 (8.3.6.2530)           8.3.6.2530     1C        20200221    C:\Program Files (x86)\1cv8\8.3.6.2530\
#>
{}
    

📲 Мы в MAX ✍️ @odin1C_rus

Советы по 1C Удалить контрагентов из 1С по списку Как загрузить в 1С штрихкоды при помощи универсальной бесплатной обработки Вывести код номенклатуры рядом с артикулом (код ТН ВЭД) в счет 1С БП 3.0 Как добавить адрес, телефон, email и тд. организации / контрагента / физлица в печатную форму Просклонять ФИО во внешней печатной форме. (Поменять падеж) Произвольный алгоритм или как в 1С сделать всё что угодно источник 📲 Мы в MAX ✍️ @odin1C_rus