Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Сценарии для Windows

Модерирует : KLASS, IFkO

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

Открыть новую тему     Написать ответ в эту тему

KLASS



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Старые и смежные темы: по CMD и в Программах | по PowerShell | В помощь системному администратору | Прикладное программирование

PowerShell
Версии | Ассоциация и подпись сценариев
Сценарий для ассоциации файлов PowerShell и запуска неподписанных скриптов.
 
Прочее
Расширение возможностей
Функции
Write-Color
Output-DebugString
Провайдеры
Готовые скрипты
Полезные ссылки | Будет ли репозиторий PowerShell на ru-board?
Книги в PDF
Cheat Sheets
 

Cmd
Для перекодирования кириллицы 866<—>1251 пользуйтесь онлайн сервисом Перекодировщик кириллицы
 
Готовые решения и частые вопросы
 
Описания работы команд и символов участниками темы:
setlocal enabledelayedexpansion и переменные окружения
символы & и && в командной строке
Переменная %0
 
Полезные ссылки и утилиты

WSH (VBScript, JScript)
Программирование "удобняшек" на VBScript

Примечания:
• Большие куски кода заключайте в тэг [ more ]
• Чтобы не копировались концевые пробелы из форума, жмите на ссылку "Редактировать" в посте, и уже из редактора копируйте код без пробелов иначе сценарий может работать неправильно. Также для удаления концевых пробелов пользуйтесь скриптом от Nagual, или VBS-Скрипт-Модулем от ViSiToR.
• Сторонние консольные утилиты можно использовать только в виде готового решения и только в рамках сценариев. Никаких обсуждений и обучений работе с утилитами не предусмотрено и прямо запрещено правилами топика.
Шапка и около-темные вопросы |

Всего записей: 11062 | Зарегистр. 12-10-2001 | Отправлено: 13:40 17-02-2018 | Исправлено: YuS 2, 08:24 19-06-2021
KLASS



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
VVL99
1. Ссылку на пост в закладки и обозвать "Удаление строк с английскими буквами после TAB".
2. Завести страницы в электронной записной книжке, куда копипастить полезное из темы.
И не надо городить огород в теме.

Всего записей: 11062 | Зарегистр. 12-10-2001 | Отправлено: 20:27 17-10-2020
VVL99

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KLASS
Да я не об этом.

----------
Гомосексуальность среди модераторов не является психическим расстройством, несмотря на синонимы этого понятия в русском языке.

Всего записей: 4158 | Зарегистр. 03-02-2011 | Отправлено: 20:41 17-10-2020
YuS 2



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
VVL99

Цитата:
как бы это организовать, так, чтобы не получилось каши, где не поймёшь, что к чему и где.

боюсь, что с текущим движком ru-board, не очень получится это реализовать... на других форумах это реализуют проще, один вопрос - один топик, а топики формируются в определенных разделах...

Цитата:
так ещё и после этого сделать какой-то подводящий итог пост, где будут лежать ссылки на решения.

Ну, тут, как бы, это надо просто кому-то на себя взять и делать, но опять таки, боюсь, что это нереализуемо, ибо кому захочется добровольно на себя взваливать доп. нагрузку...  
Наверное, тут это обсуждать - оффтопик, есть другая тема, предназначенная, как раз, для подобного...
 
Добавлено:
KLASS
кстати, тут подумалось, почему бы не ускорить работу... пришло на ум, что вполне можно задействовать streamreader-streamwriter:

Код:
$rd = [io.streamreader]::new('test.txt')
$wr = [io.streamwriter]::new('out3.txt')
 
while ($rd.peek() -ne -1) {
    if (($a = $rd.readline()) -match '\t[\s\p{IsCyrillic}\p{P}\d]+$') {
        $wr.writeline($a)
    }
}
$rd.close()
$wr.close()
 

- у меня работает в 3 раза быстрее...

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 21:34 17-10-2020 | Исправлено: YuS 2, 22:04 17-10-2020
KLASS



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
YuS 2

Цитата:
- у меня работает в 3 раза быстрее...

Так и есть, у меня 20 сек против 7 сек со вторым вариантом.
Файлы на выходе идентичные, кроме в первом случае с BOM, во втором без BOM, но это соббсно и не важно.
 
Добавлено:
Размер файлов чуть разный, это поди из-за BOM?

Всего записей: 11062 | Зарегистр. 12-10-2001 | Отправлено: 22:22 17-10-2020 | Исправлено: KLASS, 22:23 17-10-2020
YuS 2



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KLASS

Цитата:
во втором без BOM

да, там по умолчанию такая кодировка... не помню с чем связано, но вот цитата:

Цитата:
This constructor creates a StreamWriter with UTF-8 encoding without a Byte-Order Mark (BOM), so its GetPreamble method returns an empty byte array. The default UTF-8 encoding for this constructor throws an exception on invalid bytes. This behavior is different from the behavior provided by the encoding object in the Encoding.UTF8 property. To specify a BOM and determine whether an exception is thrown on invalid bytes, use a constructor that accepts an encoding object as a parameter, such as StreamWriter(String, Boolean, Encoding).

т.е. BOM там вызывает какие-то исключения. Но проблема в этом, думаю невелика, главное, что работает быстрее.
 

Цитата:
Размер файлов чуть разный, это поди из-за BOM?

Да, скорее всего.

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 23:00 17-10-2020
VVL99

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
YuS 2 (пост)
Цитата:
задействовать streamreader-streamwriter:  
Теперь по скорости сравнялись с js, оба по ~9 сек. и размер почти одинаковый, но вот результат отличается, т.к. разные регулярки и особенности, хотя js создаёт файл с бом.
 
Добавлено:
Даа, ещё в js результат можно записать в тот же файл.
 
Добавлено:
KLASS
YuS 2
В два раза быстрее последнего варианта на PS
JS
Код:
var fso = new ActiveXObject("Scripting.FileSystemObject"), r = fso.OpenTextFile("Glossary.txt", 1, 0).ReadAll().split("\n"), f2 = fso.CreateTextFile("Glossary_js.txt", 2, 0);
for (var i = 0; i < r.length; i++) {
    !!r[i].match(/\t.*[a-z]+/i) || (f2.Write(r[i] + "\n"))
}

4.5 сек.

----------
Гомосексуальность среди модераторов не является психическим расстройством, несмотря на синонимы этого понятия в русском языке.

Всего записей: 4158 | Зарегистр. 03-02-2011 | Отправлено: 23:08 17-10-2020 | Исправлено: VVL99, 00:03 18-10-2020
YuS 2



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
VVL99  Цитата

Цитата:
хотя js создаёт файл с бом.

да BOM - не проблема, без него пишет по умолчанию просто. Там ведь есть разные конструкторы, с помощью которых это поведение возможно изменить:

Цитата:
To specify a BOM and determine whether an exception is thrown on invalid bytes, use a constructor that accepts an encoding object as a parameter, such as StreamWriter(String, Boolean, Encoding).


Код:
...
$wr = [io.streamwriter]::new('out3.txt',$false,[text.encoding]::utf8)
...
 

 

Цитата:
В два раза быстрее последнего варианта на PS

Думаю, что это из-за более простого шаблона регэкспа... то бишь, меньшее число шагов проверок, неизбежно приведет к более быстрой обработке.

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 00:12 18-10-2020 | Исправлено: YuS 2, 00:14 18-10-2020
VVL99

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
YuS 2 (пост)
Цитата:
Думаю, что это из-за более простого шаблона регэкспа... то бишь, меньшее число шагов проверок, неизбежно приведет к более быстрой обработке.
Хотя я не уверен, что 4.5, возможно дольше, просто непонятно когда он заканчивает работать.
 
Добавлено:
YuS 2 (пост)
Цитата:
$rd = [io.streamreader]::new('test.txt')  
$wr = [io.streamwriter]::new('out3.txt')  
   
while ($rd.peek() -ne -1) {  
    if (($a = $rd.readline()) -match '\t[\s\p{IsCyrillic}\p{P}\d]+$') {  
        $wr.writeline($a)  
    }  
}  
$rd.close()  
$wr.close()  

А вот точная копия конструкции
Код:
var fso = new ActiveXObject("Scripting.FileSystemObject"),
f = fso.OpenTextFile("tab.txt", 1, 0),
f2 = fso.CreateTextFile("tab2_js.txt", 2, 0);
 
while (!f.AtEndOfStream) {
    var l = f.ReadLine();
    !!l.match(/\t.*[a-z]+/i) || (f2.Write(l+"\n"))
};
f.Close();
f2.Close()


----------
Гомосексуальность среди модераторов не является психическим расстройством, несмотря на синонимы этого понятия в русском языке.

Всего записей: 4158 | Зарегистр. 03-02-2011 | Отправлено: 00:21 18-10-2020
KLASS



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
VVL99

Цитата:
В два раза быстрее последнего варианта на PS

Ага, у себя попробовал, действительно первый вариант 4,5 сек.
Выходной файл создается не сразу, только по завершении процесса, когда при втором
варианте файл появляется сразу, размером 0, но заполняется дольше в два раза, порядка 10 сек.

Всего записей: 11062 | Зарегистр. 12-10-2001 | Отправлено: 07:11 18-10-2020
VVL99

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KLASS
Все они примерно одинаково работают, вот ещё один вариант
Код:
var fso = new ActiveXObject("Scripting.FileSystemObject"), r = fso.OpenTextFile("tab.txt", 1, 0).ReadAll().split("\n"), t = "";
for (var i = 0; i < r.length; i++) {
    !!r[i].match(/\t.*[a-z]+/i) || (t += r[i] + "\n")
};
fso.CreateTextFile("tab2_js.txt", 2, 0).Write(t)
Сперва формируем контент, а затем записываем в файл, т.е. появление файла означает, что он уже со всеми данными.
~8.5 сек.
 
Добавлено:
Есть ещё вариант с ("ADODB.Stream"). Плюсы: можно установить кодировку нового файла. Минусы: если файл с таким именем существует, перезаписи не будет.
 
Добавлено:
Лайфхак для JS - https://transfiles.ru/r0y3l
Создаём файл с кодировкой (UTF-8, BOM).

----------
Гомосексуальность среди модераторов не является психическим расстройством, несмотря на синонимы этого понятия в русском языке.

Всего записей: 4158 | Зарегистр. 03-02-2011 | Отправлено: 15:00 18-10-2020 | Исправлено: VVL99, 03:12 19-10-2020
VVL99

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Задача для JS:
Необходимо вывести сообщение с текстом 5-ой строки файла с UTF кодировкой - https://jpegshare.net/images/b5/a4/b5a454360796c664aaefab66237ae59b.png

----------
Гомосексуальность среди модераторов не является психическим расстройством, несмотря на синонимы этого понятия в русском языке.

Всего записей: 4158 | Зарегистр. 03-02-2011 | Отправлено: 19:20 18-10-2020
VVL99

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Задача для JS:
То ли никто не знает, что маловероятно, то ли никому не интересно, и это на компьютерном форуме в теме программирования.

Я уже 5 вариантов накомбинировал.

----------
Гомосексуальность среди модераторов не является психическим расстройством, несмотря на синонимы этого понятия в русском языке.

Всего записей: 4158 | Зарегистр. 03-02-2011 | Отправлено: 17:44 19-10-2020 | Исправлено: VVL99, 21:07 19-10-2020
YuS 2



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
VVL99

Цитата:
То ли никто не знает, что маловероятно, то ли никому не интересно

Задачник по программированию можно и так найти, зачем их придумывать?
эта js - задача, достаточно проста, но непонятна её цель, чтобы вот так вот, от нечего делать, броситься решать её на досуге...
интерес представляют задачи, которые имеют практический смысл... но такие задачи, как правило, не ограничивают конкретным инструментом.

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 20:22 19-10-2020
newhk



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ, приветствую!
Помогите, плиз, сделать красиво ))
 
есть скрипт:

Код:
 
function send-mail {
    param(
        $subj = 'Критическая ситуация!!! Указанные серверы требуют внимания',
        $body = "Указанные службы не запущены: "
    )
    $from = 'robo@domain.ru'
    $to = '2222@domain.ru'
    $server = 'mailsrv'
    $port = 25
    send-mailmessage -fr $from -to $to -smtps $server -port $port -subj $subj -body $body -enc UTF8 # -cred $cred -usessl
}
 
$services = @(
    'SQLSERVERAGENT'
    'MSSQLSERVER'
)
$servers = @(
    'vrt-10'
    'csql-01'
    'csql-02'
    'db-01'
    'db-00'
    'db-03'
    )
 
$date = Get-Date
$log = '\\p59-files\Transfers\service_stopped.log'
Set-Content $log $date
Add-Content $log "============================="
Add-Content $log ""
 
function get-srv {
    foreach ($srv in $servers){
        $a = gsv -comp $srv -name $services | ? status -eq 1|select status,name,machinename
        function myfunc {
            $sess = New-PSSession -ComputerName $srv
            Invoke-Command -Session $sess {
                &cmd /c "chcp 1251 && quser"
            }
            Remove-PSSession $srv
        }
        $b = myfunc
        if ($a){
            Add-Content $log $a
            Add-Content $log $b
            $c = Get-Content $log
            send-mail -body ($c|Out-String)
        }
    }
}
 
get-srv
 

 
Вывод получается такой:
 

Код:
 
21.10.2020 17:11:27
=============================
 
@{Status=Stopped; Name=SQLSERVERAGENT; MachineName=db-01} ’ҐЄгй п Є®¤®ў п бва -Ёж : 1251
 ПОЛЬЗОВАТЕЛЬ          СЕАНС              ID  СТАТУС  БЕЗДЕЙСТВ. ВРЕМЯ ВХОДА
 user1                              2  „ЁбЄ         8:11  20.10.2020 11:28
 user2                               3  „ЁбЄ         2:22  21.10.2020 12:42
 
 

Всего записей: 400 | Зарегистр. 02-02-2009 | Отправлено: 17:23 21-10-2020
YuS 2



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
newhk  Цитата

Цитата:
сделать красиво

Расковыривать чужие скрипты - дело неблагодарное, у каждого может быть свое видение решения...
Задачу надо озвучить и желательно полностью...
Как-то плохо выглядит такая каша из powershell+cmd, да ещё и со вложенными функциями...

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 08:32 22-10-2020
newhk



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ну, я как-то задавал вопрос, мне помогли решить и в скрипте был кусок кода с функцией send-mail.
Я немного не понимаю, почему я не могу в других скриптах это использовать?
Могу конечно сделать в одну строчку команду send-mailmessage, но так красивее )
Собственно, вопрос был как раз про CMD. Чем его заменить, чтобы не пришлось на сервера ставить дополнительный софт, чтобы была информация кто залогинен?
 
Добавлено:
А, вообще, идея такая.
Через определенное количество времени выполняется проверка статуса служб и если какая-то служба не запущена, то происходит дополнительная проверка, кто залогинен на сервере и вся эта инфа отправляется почтой

Всего записей: 400 | Зарегистр. 02-02-2009 | Отправлено: 08:51 22-10-2020
newhk



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Задачу решил с помощью модуля PSTerminalServices
Получилось так:
скрипт

Всего записей: 400 | Зарегистр. 02-02-2009 | Отправлено: 14:57 22-10-2020 | Исправлено: newhk, 15:07 22-10-2020
YuS 2



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
newhk
 Цитата

Цитата:
в скрипте был кусок кода с функцией send-mail.
Я немного не понимаю, почему я не могу в других скриптах это использовать?

Почему не можете? Если функционал подходит для задачи, то и надо его использовать...

Цитата:
Собственно, вопрос был как раз про CMD. Чем его заменить, чтобы не пришлось на сервера ставить дополнительный софт, чтобы была информация кто залогинен?

См. ниже
 
 Цитата

Цитата:
Задачу решил с помощью модуля PSTerminalServices

Можно и так, конечно...
Но необязательно использовать внешние модули...
Например, вот скорректированный вышеприведенный скрипт:

Код:
function send-mail {
    param(
        $subj = 'Критическая ситуация!!! Указанные серверы требуют внимания',
        $body = "Указанные службы не запущены: ",
        $from = 'robo@domain.ru',
        $to = '2222@domain.ru',
        $server = 'mailsrv',
        $port = 25
    )
    send-mailmessage -fr $from -to $to -smtps $server -port $port -subj $subj -body $body -enc UTF8 # -cred $cred -usessl
}
 
<#
function myfunc ($x) {
    $sess = New-PSSession -ComputerName $x
    Invoke-Command -Session $sess {
        &cmd /c "chcp 65001&&quser"
    }
    Remove-PSSession $x
}
#>
 
function get-srv ($servs, $srvcs) {
    foreach ($srv in $servs){
        $a = gsv -comp $srv -name $srvcs | ? status -eq 1|select status,name,machinename
        #$b = myfunc $srv
        $b = (gcim win32_computersystem -comp $srv).username
        if ($a){
            Add-Content $log $a
            Add-Content $log $b
            $c = Get-Content $log
            send-mail -body ($c|Out-String)
        }
    }
}
 
$services = @(
    'SQLSERVERAGENT'
    'MSSQLSERVER'
)
$servers = @(
    'vrt-10'
    'csql-01'
    'csql-02'
    'db-01'
    'db-00'
    'db-03'
)
 
$date = Get-Date
$log = '\\p59-files\Transfers\service_stopped.log'
Set-Content $log $date
Add-Content $log "============================="
Add-Content $log ""
 
get-srv $servers $services

- поправлены расположения функций, также из них убраны внешние зависимости.
Функция с cmd - кодом закомментирована, вместо нее задействован WMI, но кракозябры, при получении вывода cmd, поправлены, т.е. можно и её использовать...

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 23:24 22-10-2020
RL200t

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
gpedit.msc
--Конфигурация компьютера
---Административные шаблоны
----Компоненты Windows
-----Центр обновления Windows
------Включить: «Указать размещение службы обновлений Майкрософт в интрасети» и во всех трёх текстовых полях прописать «localhost».

 
Как сделать это скриптом? Чтобы я просто скрипт на исполнение запустил и была произведена эта настройка?

Всего записей: 910 | Зарегистр. 06-10-2018 | Отправлено: 21:29 31-10-2020 | Исправлено: RL200t, 21:33 31-10-2020
ipmanyak



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
RL200t  
1 - если есть домен, то никакой скрипт не нужен, нужно просто настроить к чему применять политику.
2 - имхо всё это прописывается в реестр, нужно просто  отследить куда вносится, затем экспортировать ветку реестра, а потом уже в скрипте   red add   эту ветку реестра

Код:
 
REG ADD \\SERVER\HKLM\Software\MyCo - Добавляет раздел HKLM\Software\MyCo на удаленном компьютере SERVER
или
REG ADD HKLM\Software\MyCo /v Data /t REG_BINARY /d fe340ead - Добавляет параметр (имя: Data, тип: REG_BINARY, данные: fe340ead)
 
REG ADD HKLM\Software\MyCo /v MRU /t REG_MULTI_SZ /d fax\0mail - Добавляет параметр (имя: MRU, тип: REG_MULTI_SZ, данные: fax\0mail\0\0)  

 
Отследить можно утилитами Русиновича Process Explorer или Process Monitor , настроив фильтры.
https://docs.microsoft.com/ru-ru/sysinternals/downloads/process-utilities

----------
В сортире лучше быть юзером, чем админом...

Всего записей: 11724 | Зарегистр. 10-12-2003 | Отправлено: 21:44 31-10-2020
Открыть новую тему     Написать ответ в эту тему

Страницы: 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

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


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru