Заметки лентяя
Казалось бы, что может проще как изменить базовый URL?
А что такое базовый url? Классический базовый URL раньше выглядел так http://mydomen.ru/nextcloud
При этом nextcloud установлен по пути /var/www/html/nextcloud, а DocumentRoot в настройках веб-сервера /var/www/html
Потом появился параметр RewriteBase, который позволял убрать из url nextcloud, тем самым сократив его и сделав красивым.
 |
| В 4ый раз делать скрин мне лень, логика та же |
Отталкиваясь от описания можно заставить KeePass открывать SCP соединение с автоматической авторизацией в WinSCP. Cтрочка "URL override":
cmd://%systemdrive%\progra~2\WinSCP\WinSCP.exe {BASE:RMVSCM} /newinstance /username={USERNAME} /password={PASSWORD} У WinScp отдельного параметра для порта нет, поэтому без извращений
Прилетела задача:
Имеем таблицу с колонками (допустим ФИО, контакты, кой какие данные)
Нужно для каждой строки создать отдельный Word документ по шаблону и заполнить данными из строки. Шаблоны могут быть разными.
В общем задача в голове разворачивается, я понимаю как ее сделать теми методами, что чаще использую - 1С. Но задачу надо решить силами Excel. Так как план работы "программы" есть, остается дело за малым - выразить его в VBA. Да, занимает чуть дольше, так как я практически не использую данный язык и приходится спрашивать у гугла - "как описывается цикл" и прочее, но результатом заказчик доволен.
К чему мы пришли:
Все, дальше добавляем кнопку в excel документ и связываем его с этим макросом, все должно работать. Будут созданы файлы "Act %KeyWord%.docx" с необходимым заполнением.
Как обычно обновлял пачку баз 1С и тут выскочила такая ошибка
На данный момент в "серверной" мы проверяем температуру при помощи камеры направленной на термометр от Xiaomi. Работу кондиционера оцениваем по веревочкам, т.е. если они колышатся, то кондиционер работает. Также на самой камере настроено оповещение на почту при наличии движения от этих веревочек два раза в сутки. Логика простая: есть движение - отправить письмо, нет движения - нет письма. Нет письма - реагируем. У меня есть RaspberryPi и датчик температуры/влажности DTH11. Малинка стоит в серверной, так почему бы мне не научить малину считывать температуру? Почему бы не мониторить температуру заббиксом, чтобы оповещать при критической ситуации?
Сначала подключим к малине датчик
Для работы сенсора буду использовать Adafruit, надо установить (предполагается что pip3 и python уже стоят на малине, моя ОС на базе Debian 12):
user@rpi02:~$ sudo pip3 install Adafruit_Python_DHT --break-system-packagesМенеджер получил новые GTIN для продукции, которая уже заведена в 1С УТ и имеет собственный GTIN, при этом наименование товара также заменили в соответствии с новыми правилами ЧЗ. Плюс к списку прилагались 2000 марок к остаткам. Все было выполнено в специальной конфигурации Хамелеон. Бухгалтер попросила помочь с загрузкой марок в 1С УТ, так как в УТ остаток есть, а приход размазан на год.
Самый простой вариант для разового варианта - ЗагрузкаДанныхИзТабличногоДокумента_УФ_v2.epf, но он не умеет находить по GTIN из коробки. А мне нужно:
Вот такой код:
М = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьНаборЗаписей();
М.Отбор.Штрихкод.Установить(?(СтрДлина(ТекстЯчейки)=13,ТекстЯчейки,строка("0"+ТекстЯчейки)));
М.Прочитать();
Результат=М[0].Номенклатура;
Сообщить(М[0].Номенклатура);Да, код не оптимален, но для разовой загрузки подойдет, ибо на загрузку в таком варианте ушло не больше 20 минут (вспомнить как писать на 1С тоже занимает время X-D), а на разработку полноценного решения ушло бы часа 2 О_О
Один момент, для исправления наименования GTIN помещаем в поле Код, для поля код ставим галку поле поиска, а алгоритм вычисления кода правим вот так:
М = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьНаборЗаписей();
М.Отбор.Штрихкод.Установить(?(СтрДлина(ТекстЯчейки)=13,ТекстЯчейки,строка("0"+ТекстЯчейки)));
М.Прочитать();
Результат=М[0].Номенклатура.Код;
Сообщить(М[0].Номенклатура);
Хочу мониторить и управлять ИБП с малины. К малине подключены при помощи USB кабеля (2 метра)
Дальше идет описание моих изысканий со всеми ошибками.
Ищем наши ИБП
user@rpi02:~ $ lsusb
Bus 001 Device 004: ID 0d9f:00a7 Powercom Co., Ltd UPS KIN-2200AP FW3.A7
Bus 001 Device 005: ID 0d9f:0002 Powercom Co., Ltd Black Knight PRO / WOW Uninterruptible Power Supply (Cypress HID->COM RS232)
В /etc/nut/nut.conf указываем режим работы сервер
MODE=serverВ /etc/nut/ups.conf я их записал так (согласно документации данная модель
[KIN_2200AP]
driver = usbhid-ups
desc = "KIN-2200AP"
port = auto
vendorid = 0d9f
productid = 00a7
[KIN_3000AP]
driver = usbhid-ups
desc = "KIN-3000AP"
port = auto
vendorid = 0d9f
productid = 0002
Попытка запуска завершилась ошибкой
could not detach kernel driver from interface 0: Operation not permitted
Сервис развернут контейнере (Docker desktop). Пожаловались, что иногда он вываливается и единственное решение - полный перезапуск wsl и "docker desktop". Пользователь в будуюшем будет переносить докеры в linux среду, а на текущий момент нужен костыль. Сразу оговорюсь, попытка создать службу docker провалилась, поэтому здесь решение совсем грязное. Но в самом скрипте есть пара интересных, для меня, моментов, поэтому кладу его здесь.
Скрипт проверяет ответ от web-сервиса (внешний адрес и порт), если его нету, то ждет N время, иначе выходит. По истечении N времени идет повторная проверка, если ответа нет, то идет проверка локальная, иначе выход. Если локальная проверка не прошла, то перезапускаем нужные службы и программы, иначе выходим.
Запускать я решил батником в task scheduller, чтобы не править каждый раз задачу. При этом задача должна выполнятся от имени администратора и БЕЗ привязки к пользователю, иначе Desktop manager не запустит контейнеры.
Для автозапуска Docker desktop при загрузке ПК настраиваем автовход пользователя (control userpasswords2) и автозапуск Docker desktop при входе в настройках программы. На данный момент это единственное рабочее решение из найденных :-(
Команда запуска в планировщике (окно скрипта скрыто)
%windir%\system32\cmd.exe
/c start /min C:\usr\WSLCheckStart.bat ^& exitБатник:
@echo off
cd %~dp0
set "pathscript=%~dp0\WSLCheck.ps1"
set "pathlog=%~dp0\log"
mkdir %~dp0\log
IF EXIST %pathscript% (
powershell.exe -NoProfile -ExecutionPolicy Bypass -File %pathscript% -Address "dev.site.com" -Port "443" -LocalPort "8080" -TimeOut 20 -TimeOutHTTP 10 -LogFile %pathlog%
) ELSE (
echo "ERROR! %pathscript% not exist"
echo "ERROR! %pathscript% not exist" >> WSLLogStart.log
)
Сам скрипт Powershell
$LogFile="C:\usr\WSLCheck.log"
$whatif=$false
# простенькая функция логирования, если файл есть, то пишет в него
# можно было использовать tee-object, но этот командлет выдает ошибку при отсутствии папки для лога
# CheckRepeat проверяет последнюю строку лога с будущей, чтобы не засорять файл
# level - число -
function Logging($Message,$Level=0,$CheckRepeat=$false){
if ("$Message" -eq ""){
return
}
$mLevel=switch($level){
0 {New-Object psobject -Property @{label="[INF]";color="White"}}
1 {New-Object psobject -Property @{label="[WAR]";color="Yellow"}}
2 {New-Object psobject -Property @{label="[ERR]";color="Red"}}
}
$CurrentTimeStamp=Get-Date -Format "dd.MM.yyyy`tHH:mm:ss"
Write-Host "$Message" -ForegroundColor $mLevel.color
if ($whatif){return}
if (-not (Test-Path $LogFile)) {New-Item -Path $LogFile -ItemType File -ErrorAction SilentlyContinue}
if (Test-Path $LogFile) {
$lastLine=""
if ($CheckRepeat){
$lastLine=$(Get-Content -Path $LogFile)[-1].Split("`t")[-1]
}
if ("$Message" -ne "$lastLine"){
Write-Output("$CurrentTimeStamp`t$($mLevel.label)`t$Message") | Out-File $LogFile -Append
}
}
}
Заметка скрипт.
Интересный моменты в скрипте:
Появилась интересная задачка - организация рабочего места на съемном носителе (ssd). Ну интересное тут другое, там используется виртуализация на базе QEMU. Установка и настройка производились на Hyper-V (виртуализация в виртуализации) на внешний ssd (проброшен в VM).
Установка QEMU выглядела так:
sudo apt-get install --no-install-recommends qemu-system-ppc libvirt-daemon-system libvirt-clients virt-manager gir1.2-spiceclientgtk-3.0Вот я сделал, а заказчик спрашивает, а как мне работать на двух мониторах?
Поясню, на носителе базовая операционная система, а в ней есть гипервизор QEMU KVM. Человек запускает виртуальную машину и работает через консоль. А у него два монитора и растянуть окно нельзя.
В поисках решений перепробовал много вариантов, в итоге решение нашлось.
По-умолчанию двойной клик по полю url с протоколом https/http открывает новую вкладку chrome в ближайшем окне (если смотреть по порядку). При этом не важно, какой там профиль. Меня это не устраивает. Поэтому я начал искать пути решения.
Первый вариант был привязать тег keepass к папке и добавлять его как параметр --profile-directory, но оказывается я не могу использовать теги.
Следующий вариант был - получить в окне powershell список профилей из каталога %userprofile%\AppData\Local\Google\Chrome\User Data\, но тут лежат не только профили, а сами профили имеют отличные, от заданных в chrome, имена. В итоге выяснилось, что информация об именах и каталогах хранится в файле %userprofile%\AppData\Local\Google\Chrome\User Data\Local State. Это JSON файл, и, к сожалению, в одну строчку распарсить его не получится. Поэтому родился вот такой скрипт с дополнительными проверками. Скрипт выдает таблицу
Переношу 1С с одного сервера на другой, основные базы были клиент-серверные, переводим в файловую и добавляем в список. Делов на пять минут, так как их не много. А вот в файловых базах целая туча без логики во вложенности. Решил накидать скрипт, который сам сформирует список баз. Скрипт проходит рекурсивно, ищет файл базы 1Cv8.1CD и строит дерево. Если в каталоге нет файла БД и нет подкаталогов, то пропускает, во всех остальных случаях добавляет в файл списка баз. Из за этого возможны пустые каталоги
$Folder="D:\1C_BASES\Базы1с_8"
$filev8i="$Folder\bases_here.v8i"
$level=1
function CheckName{
param(
[Parameter()]
[string]$Name,
[Parameter()]
[string]$File,
[Parameter()]
[int]$cnt=1
)
$content=$(Get-Content $File)
if ($content | Select-String -Pattern "[$Name]" -SimpleMatch -Quiet){
$cnt=$cnt+1
$res=$(CheckName -Name "$Name ($cnt)" -File $file -cnt $cnt)
}else{
$res=$Name
}
return $res
}
function GetTree{
param(
[Parameter()]
[string]$Folder,
[Parameter()]
[string]$Parent="",
[Parameter()]
[int]$level
)
$ChildList=$(Get-ChildItem -Path $Folder -Directory)
foreach ($child in $ChildList){
$FullPath=$($child.FullName)
$NameParentFolder=$Parent
if (Test-Path "$FullPath\1Cv8.1CD"){
$pref="-"*$($level)+"|->"
Write-Host("$pref Folder `"$child`" with 1C Bases")
$Name=$(CheckName -Name $child -File $filev8i)
$Text=@"
[$Name]
Connect=File=`"$FullPath`";
ID=
OrderInList=
Folder=$($NameParentFolder.Replace("\","/"))
OrderInTree=
External=0
ClientConnectionSpeed=Normal
App=Auto
WA=1
Version=8.3
AppArch=Auto
DisableLocalSpeechToText=0
DisableLocalSpeechToText=0
"@
Write-Output($text) | Out-File -Encoding "UTF8" $filev8i -Append
} else {
if ($(get-childitem $FullPath -Directory).count -gt 0){
$pref="-"*$level+"|->"
Write-Host("$pref Folder `"$child`":")
$Name=$(CheckName -Name $child -File $filev8i)
$text=@"
[$name]
ID=
Folder=$($NameParentFolder.Replace("\","/"))
"@
Write-Output($text) | Out-File -Encoding "UTF8" $filev8i -Append
GetTree -Folder $FullPath -Parent "$NameParentFolder\$name" -level $($level+1)
} else {
$pref="-"*$level+"|->"
Write-Host("$pref Folder `"$child`" not contain subfolders")
}
}
}
}
Remove-Item -Path $filev8i -Force
$currentParent=$(($Folder.Split("\"))[-1])
$text=@"
[$currentParent]
ID=
Folder=/
"@
Write-Output($text) | Out-File -Encoding "UTF8" $filev8i -Append
GetTree -Folder $Folder -level $level -Parent "/$currentParent"
Скрипт мою задачу решил, наводить лоск смысла не вижу смысла
В попытке настроить аудит, у меня сломался acl для пользовательских папок. Если бы речь шла об одной папке, то я бы решил этот вопрос простым удалением папки пользователя и его повторным входом в систему. Но речь шла о терминальном сервере. Поэтому родился этот скрипт. Единственно что надо учесть:
param(
[Parameter()]
[string]$User,
[Parameter()]
[string]$Domain=$env:COMPUTERNAME
)
$LogFile = (Get-Item $PSCommandPath ).DirectoryName+"\"+(Get-Item $PSCommandPath ).BaseName+".log"
$CurrentTimeStamp=Get-Date -Format "dd.MM.yyyy`tHH:mm:ss"
function Logging($Message) {
Write-Host "$Message"
Write-Output("$CurrentTimeStamp`t$Message") | Out-File $LogFile -Append
}
if ($User) {
Logging("User $User in $Domain is processing")
} else {
Logging("Parameter `"User for processing (-User)`" is not specified ")
exit
}
$UserFolder="C:\users\$User"
if (-Not (Test-Path $UserFolder)) {
Logging("User folder $UserFolder not found")
Exit
}
function getAcls ($ObjectFS){
switch ($ObjectFS)
{
"Application Data" {return "SYSTEM"}
"Local Settings" {return "SYSTEM"}
"NetHood" {return "SYSTEM"}
"PrintHood" {return "SYSTEM"}
"SendTo" {return "SYSTEM"}
"главное меню" {return "SYSTEM"}
"Мои документы" {return "SYSTEM"}
"Шаблоны" {return "SYSTEM"}
Default {return "FULL"}
}
}
foreach ($ObjectFS in $(Get-ChildItem -Path $UserFolder -Force -Exclude "ntuser*","AppData")) {
$ObjectFSFullName=$($ObjectFS.FullName)
Logging(" Object $ObjectFSFullName is processing")
#ICACLS
$ACL= getAcls($ObjectFS.BaseName)
Logging(" $ACL")
Logging(" ICACLS $ObjectFSFullName /setowner $Domain\$user")
ICACLS $ObjectFSFullName /setowner $Domain\$user /C /Q
Logging(" ICACLS $ObjectFSFullName /C /Q /RESET")
ICACLS $ObjectFSFullName /C /Q /RESET
if ( "$ACL" -eq "SYSTEM" ) {
Logging(" ICACLS $ObjectFSFullName /setowner `"NT AUTHORITY\СИСТЕМА`" /c /q")
ICACLS $ObjectFSFullName /setowner "NT AUTHORITY\СИСТЕМА" /c /q
Logging(" ICACLS $ObjectFSFullName /deny `"Все:(NP)(S,RD)`" /c /q")
ICACLS $ObjectFSFullName /deny "Все:(NP)(S,RD)" /c /q
}
}
Повесил себе колонку для фоновой музыки. Уровень громкости там около 6 единиц, при этом на основной колонке требуется уровень >30. В общем Windows 10 позволяет настроить вывод на разные аудиоустройства, но управление громкостью возможно только в том, которое выбрано сейчас.
#Requires AutoHotkey v2.0
; Use the Soundcard Analysis script found here to set these parameters
; https://www.autohotkey.com/docs/v2/lib/Sound.htm#ExSoundcard
DeviceNumber := 3
ComponentID := ""
savedVol := 0
LShift & Volume_Up::{
SoundSetVolume("+2", ComponentID, DeviceNumber)
}
LShift & Volume_Down::{
SoundSetVolume(-2, ComponentID, DeviceNumber)
}
LShift & Volume_Mute::{
global savedVol
currentVol := SoundGetVolume(ComponentID, DeviceNumber)
if (currentVol > 0){
savedVol := currentVol
SoundSetVolume(0, ComponentID, DeviceNumber)
} else {
SoundSetVolume(savedVol, ComponentID, DeviceNumber)
}
}Скрипт найден на просторах интернета, я лишь уточнил, что реагируем не на стандартные клавиши, а на их сочетание с левым шифтом. device number подобран эмпирическим путем. Теперь стандартные клавиши (mute, Volume Up, Volume Down) работают как раньше на текущее основное аудиоустройство, а сочетание с shift - только на устройств с Device Number равным 3, т.е. в моем случае колонка Dell