KLASS Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Старые и смежные темы: по CMD и в Программах | по PowerShell | В помощь системному администратору | Прикладное программирование PowerShell Версии | Ассоциация и подпись сценариев Сценарий для ассоциации файлов PowerShell и запуска неподписанных скриптов.   Прочее Если используете "белый список" в брандмауэре Windows, то для работы сценариев в сети необходимо создать 2 исходящих правила для svchost.exe и PowerShell.exe. В отличие от батников, кодировка скриптов на PowerShell должна быть 1251 (ANSI). Начиная с версии PowerShell Core 6.0, кодировка по умолчанию UTF8NoBOM. Дополнительные данные про кодировки. Расширение возможностей Функции • Write-Color • Output-DebugString Провайдеры Готовые скрипты Полезные ссылки | Будет ли репозиторий PowerShell на ru-board? • Книги в PDF • Cheat Sheets   Cmd Для перекодирования кириллицы 866<—>1251 пользуйтесь онлайн сервисом Перекодировщик кириллицы   Готовые решения и частые вопросы   Описания работы команд и символов участниками темы: • setlocal enabledelayedexpansion и переменные окружения • символы & и && в командной строке • Переменная %0   Полезные ссылки и утилиты WSH (VBScript, JScript) Программирование "удобняшек" на VBScript Примечания: • Большие куски кода заключайте в тэг [ more ] • Чтобы не копировались концевые пробелы из форума, жмите на ссылку "Редактировать" в посте, и уже из редактора копируйте код без пробелов иначе сценарий может работать неправильно. Также для удаления концевых пробелов пользуйтесь скриптом от Nagual, или VBS-Скрипт-Модулем от ViSiToR. • Сторонние консольные утилиты можно использовать только в виде готового решения и только в рамках сценариев. Никаких обсуждений и обучений работе с утилитами не предусмотрено и прямо запрещено правилами топика. • Шапка и около-темные вопросы | Всего записей: 11450 | Зарегистр. 12-10-2001 | Отправлено: 13:40 17-02-2018 | Исправлено: YuS 2, 08:24 19-06-2021

Dremuchiy Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Просьба помочь с кодировкой . Windows 2019 RUS Проблема в вот в чем При запуске вижу вот такие крякозяблики.   Если тоже самое запусти с сmd то все ок.Но там кодировка СP866 как это победить ???   Скрипт на PS Код:   [Console]::OutputEncoding = [System.Text.Encoding]::GetEncoding("windows-1251") Add-Type -assembly System.Windows.Forms   $Header = "Сеанс", "Пользователь", "ID", "Статус"   $dlgForm = New-Object System.Windows.Forms.Form $dlgForm.Text ='Session Connect' $dlgForm.Width = 400 $dlgForm.AutoSize = $true   $dlgBttn = New-Object System.Windows.Forms.Button $dlgBttn.Text = 'Control' $dlgBttn.Location = New-Object System.Drawing.Point(15,10) $dlgForm.Controls.Add($dlgBttn)   $dlgList = New-Object System.Windows.Forms.ListView $dlgList.Location = New-Object System.Drawing.Point(0,50) $dlgList.Width = $dlgForm.ClientRectangle.Width $dlgList.Height = $dlgForm.ClientRectangle.Height $dlgList.Anchor = "Top, Left, Right, Bottom" $dlgList.MultiSelect = $False $dlgList.View = 'Details' $dlgList.FullRowSelect = 1; $dlgList.GridLines = 1 $dlgList.Scrollable = 1   $dlgForm.Controls.add($dlgList)   # Add columns to the ListView foreach ($column in $Header){ $dlgList.Columns.Add($column) | Out-Null }   $(qwinsta.exe | findstr "Активно") -replace "^[\s>]" , "" -replace "\s+" , "," | ConvertFrom-Csv -Header $Header | ForEach-Object { $dlgListItem = New-Object System.Windows.Forms.ListViewItem($_.Сеанс) $dlgListItem.Subitems.Add($_.Пользователь) | Out-Null $dlgListItem.Subitems.Add($_.ID) | Out-Null $dlgListItem.Subitems.Add($_.Статус) | Out-Null $dlgList.Items.Add($dlgListItem) | Out-Null   }   $dlgBttn.Add_Click( { $SelectedItem = $dlgList.SelectedItems[0] if ($SelectedItem -eq $null){ [System.Windows.Forms.MessageBox]::Show("Выберите сессию для подключения") }else{ $session_id = $SelectedItem.subitems[2].text $(mstsc /shadow:$session_id /control /noConsentPrompt) #[System.Windows.Forms.MessageBox]::Show($session_id) } } )   $dlgForm.ShowDialog()         Всего записей: 702 | Зарегистр. 16-10-2004 | Отправлено: 11:47 16-08-2023 | Исправлено: Dremuchiy, 11:52 16-08-2023

2as Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Dremuchiy Цитата: Windows 2019 RUS При запуске вижу вот такие крякозяблики. Не знаю как в Windows 2019 RUS, а в Windows 10 RUS данная проблема решается настройками языка региона, см. на фото   попробуйте. Всего записей: 3638 | Зарегистр. 09-09-2003 | Отправлено: 17:17 16-08-2023

Dremuchiy Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору 2as Спасибо за подсказку но это не помогло. Всего записей: 702 | Зарегистр. 16-10-2004 | Отправлено: 09:00 17-08-2023

Dremuchiy Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору BorlandIMHO Цитата: А нафига, простите, у вас 1251 в консоли?.. Если консоль перевести в UTF8, то qwinsta "заговорит" на английском, без "кракозябр"... А если вам жызненно необходимо видеть надпись "Активно" вместо "Active" - то соответствующая замена текста легко делается в скрипте...     Меняю в консоли строку   [Console]::OutputEncoding = [System.Text.Encoding]::GetEncoding("UTF8")  вижу тоже крякозяблики.   Если запустить сmd и там qwinsta  посмотреть в какой кодировке выводиться то там кодировка СP866 при смене кодировки на СP866 скрипт не выводит вообще не чего.   Вот такая делема   Всего записей: 702 | Зарегистр. 16-10-2004 | Отправлено: 09:47 17-08-2023

BorlandIMHO Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Dremuchiy УМВР. ЧЯДНТ?..   Добавлено: Цитата: [Console]::OutputEncoding = [System.Text.Encoding]::GetEncoding("UTF8") Просто запустите пош (не ISE, консольный) и скормите ему эту команду. Узнаете много нового и интересного. ---------- http://www.imho.ws Всего записей: 2653 | Зарегистр. 12-10-2006 | Отправлено: 10:38 17-08-2023

Dremuchiy Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Так и у меня работает если выполнить скрипт полностью то я вижу   [img] [/img]   Как тут победить даже если я меняю     $Header = "SESSIONNAME", "USERNAME", "ID", "STATUS"     $(qwinsta.exe | findstr "Active") -replace "^[\s>]" , "" -replace "\s+" , "," | ConvertFrom-Csv -Header $Header | ForEach-Object { $dlgListItem = New-Object System.Windows.Forms.ListViewItem($_.SESSIONNAME) $dlgListItem.Subitems.Add($_.USER) | Out-Null $dlgListItem.Subitems.Add($_.ID) | Out-Null $dlgListItem.Subitems.Add($_.Status) | Out-Null     [img] [/img]   Проблема кроется вот тут   $(qwinsta.exe | findstr "Active")  комантлет не правильно отрабатывает       ПОБЕДИЛ. Проблема когда работаеш по RDP смотри на раскладку   $(qwinsta.exe | findstr "A") была введена на рус. раскладке.     Всего записей: 702 | Зарегистр. 16-10-2004 | Отправлено: 10:58 17-08-2023 | Исправлено: Dremuchiy, 11:34 17-08-2023

iNNOKENTIY21 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Dremuchiy Цитата: $(qwinsta.exe | findstr "Active")  комантлет не правильно отрабатывает   тут нет командлета. в пошике это qwinsta.exe | sls "Активно", глядишь и не потребуется OutputEncoding вспоминать. sls — Select-String Всего записей: 3650 | Зарегистр. 16-08-2012 | Отправлено: 11:44 17-08-2023

Dremuchiy Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору iNNOKENTIY21   Cпасибо..Попробую. Чем можно PS1 в exe скомпилить ? Всего записей: 702 | Зарегистр. 16-10-2004 | Отправлено: 12:08 17-08-2023

iNNOKENTIY21 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Dremuchiy Цитата: Чем можно PS1 в exe скомпилить ?   Скомпилировать — ничем. PowerShell не компилируемый.   Само-распаковывающийся архив сделать, чем нравится. Winrar, в нём скрипт по запуску скрипта ps1 => .exe, например. Я за эти методы не в курсе, ибо зачем оно, от меня ускользает.   Мне хватает возможностей ярлыка, который запустит PowerShell с нужными параметрами. Или не сложно терминал с PowerShell запустить… Всего записей: 3650 | Зарегистр. 16-08-2012 | Отправлено: 17:25 17-08-2023

Dremuchiy Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору iNNOKENTIY21   Данный скрипт позволяет тех.поддержке(у которых нет прав админа) подключаться к пользователям терминала. Из-за накрученных GPO   запрещено запускать скрипты ps1 и не только. По этой причине делается exe и в политиках по пути добавляется исключение на запуск именно его.   Всего записей: 702 | Зарегистр. 16-10-2004 | Отправлено: 08:54 18-08-2023

Dremuchiy Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору BorlandIMHO Цитата: При таких раскладах - проще переписАть функционал скрипта на C# и скомпилировать в "человеческую" программу для техподдержки...     К сожалению С# не знаю. На данный момент через PowerShell Studio получил на выходе exe . Есть нюансы но в целом работает. Всего записей: 702 | Зарегистр. 16-10-2004 | Отправлено: 10:38 18-08-2023

iNNOKENTIY21 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Dremuchiy Цитата: через PowerShell Studio получил на выходе exe Поделитесь получившимся exe. Всего записей: 3650 | Зарегистр. 16-08-2012 | Отправлено: 11:35 18-08-2023

Dremuchiy Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Поделитесь получившимся exe. В личке. Всего записей: 702 | Зарегистр. 16-10-2004 | Отправлено: 13:59 18-08-2023

Dremuchiy Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору sakatgg Это для привязки пользователей в 1С ? Или задача другая.   У каждого пользователя он уникальный правильно ?   GUID нужно привязать к пользователю ?   Если есть контролер домена то через AD в пользователе в редакторе атрибутов сопоставить GUID=UID. Всего записей: 702 | Зарегистр. 16-10-2004 | Отправлено: 14:58 18-08-2023 | Исправлено: Dremuchiy, 15:21 18-08-2023

iNNOKENTIY21 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Dremuchiy Получил. Спасибо за файлик.   Надеюсь у Вас лицензия. А то там: Всего записей: 3650 | Зарегистр. 16-08-2012 | Отправлено: 15:35 18-08-2023

iNNOKENTIY21 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору sakatgg Цитата: Заменить одни цифры на другие Замена строки в файле. sample.reg Код: Windows Registry Editor Version 5.00   [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\CloudStore\Store\Cache\DefaultAccount\$de${d1d97d01-4f90-4f45-b451-db52846a62c0}$$windows.data.unifiedtile.roamedtilepropertiesmap\Current] "Data"=hex:02,00,00,00,cb,4c,44,1f,b0,d1,d9,01,00,00,00,00,43,42,01,00,0d,12,\   0a,01,2c,57,00,7e,00,25,00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,\   69,00,6c,00,65,00,73,00,25,00,5c,00,45,00,57,00,46,00,5c,00,50,00,43,00,5c,\   00,46,00,69,00,6c,00,65,00,73,00,5c,00,45,00,57,00,46,00,2d,00,53,00,74,00,\   61,00,74,00,75,00,73,00,2e,00,62,00,61,00,74,00,0a,c6,0a,a0,96,91,98,f8,b5,\   f4,ec,01,c2,32,01,00,ca,0a,00,00,00 sample.ps1 Код: $RegFile = 'C:\Users\Admin\Documents\sample.reg' $Path = 'HKCU:\SOFTWARE\Microsoft\Windows\CurrentVersion\CloudStore\Store\Cache\DefaultAccount' $Key = '[' + ((Get-ChildItem -Path $Path).name -match '\$de\$.*data.unifiedtile.roamedtilepropertiesmap') + '\Current]' $FindStr = '\[HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\CloudStore\\Store\\Cache\\DefaultAccount\\\$de\$\{.+\}\$\$windows\.data\.unifiedtile\.roamedtilepropertiesmap\\Current\]'   # (Прочитать файл) -заменить строку | сохранить файл. (Get-Content $RegFile) -replace $FindStr, $Key | Set-Content $RegFile Всего записей: 3650 | Зарегистр. 16-08-2012 | Отправлено: 18:30 18-08-2023

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230

Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Сценарии для Windows

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование