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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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.
• Сторонние консольные утилиты можно использовать только в виде готового решения и только в рамках сценариев. Никаких обсуждений и обучений работе с утилитами не предусмотрено и прямо запрещено правилами топика.
Шапка и около-темные вопросы |

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



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

Цитата:
зачем два одинаковых оператора,

 
#В языке можно сказать и так, и эдак  
Разрабы не взялись решить за всех, как им будет удобнее #
 
Глобальный приоритет в PS - похожесть на человеческий язык сценариев
(т.е. именно контроллеров, состоящих из нескольких труб/конвейеров и дёргающих готовые повторные инструменты)  
 
На человеческий язык похож SQL.  
В отмеченной "сценарной" - в противоположность "инструментальной" - его части, PS похож ещё больше: дальше просто уже некуда.
 
 
Добавлено:
Выкинь отсюда инструмент повторного использования Get-Info: останется как раз сценарий.
Писать сценарии должно получаться у "домохозяек" - вот им и скрасили пилюлю.

Всего записей: 17149 | Зарегистр. 14-10-2001 | Отправлено: 18:23 25-02-2019 | Исправлено: LevT, 18:45 25-02-2019
YuS_2



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

Цитата:
В языке можно сказать и так, и эдак

Ты в школе учил правило про перестановку слагаемых?
А басню Крылова "Квартет" знаешь?
Это вот про человеков, как раз, которые ввели сущность, по которой плачет бритва Оккама...

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 19:07 25-02-2019
LevT



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
YuS_2
-in и -contains операции некоммутативные
 
В функциональных языках полно подобных пар, когда по вкусу используют скажем композицию f(g) и конверизацию g | f
с той простой целью, чтобы сделать код читаемей (для тех, кто владеет понятиями)
 
По счастью в понятиях -in и -contains способны запутаться только "программисты": домохозяйкам они легче даются
 

Всего записей: 17149 | Зарегистр. 14-10-2001 | Отправлено: 19:15 25-02-2019 | Исправлено: LevT, 19:16 25-02-2019
YuS_2



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

Цитата:
По счастью в понятиях -in и -contains способны запутаться

Ты совсем не понимаешь о чем тебе говорят или пытаешься прикинуться?
1. Это равнозначные операторы:

Код:
$a=1,2,3  
$b=2,3,4  
$a|?{$b -notcontains $_}  
1
$a|?{$_ -notin $b}
1

- найди два отличия... ну, тупость же...
 
2.
Цитата:
это единственные операторы (которые ввели в PS v3.0), у которых синтаксис наиборотошный

 
3. Отдельно отмечу: ввели -(not)in в PS v3.0
 

Цитата:
домохозяйкам они легче даются

Тебе уже говорили: покажи тех домохозяек.

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 19:29 25-02-2019
Death_INN

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Можно этот скрипт переделать под PowerShell?

Код:
'Скрипт правильно обновляет Рабочий стол, очищая (обновляя) кэш иконок командами в 8-ой и 9-ой строках.
'Побочным действием такой очистки кэша и обновления оболочки является создание файлов-отчётов.
'Команды, начинающиеся с 14-ой строки, отвечают за удаление этих логов после паузы в 1 секунду (10-я строка).
'13-я строка указывает сценарию переменную среду %userprofile%, которую Microsoft ® WBSH по умолчанию не понимает.
'Автор скрипта: Аванесян Х.С.
 
Set oShell = WScript.CreateObject ("WScript.Shell")
oShell.run "ie4uinit.exe -show"
oShell.run "ie4uinit.exe -ClearIconCache"
WScript.Sleep 1000
Set objFSO = CreateObject("Scripting.FileSystemObject")
set WshShell = CreateObject("WScript.Shell")
UserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
If objFSO.FileExists(USERPROFILE &"\AppData\Local\Microsoft\Internet Explorer\ie4uinit-ClearIconCache.log") Then
objFSO.DeleteFile USERPROFILE &"\AppData\Local\Microsoft\Internet Explorer\ie4uinit-ClearIconCache.log"
End If
If objFSO.FileExists(USERPROFILE &"\AppData\Local\Microsoft\Internet Explorer\ie4uinit-show.log") Then
objFSO.DeleteFile USERPROFILE &"\AppData\Local\Microsoft\Internet Explorer\ie4uinit-show.log"
End If
If objFSO.FileExists(USERPROFILE &"\AppData\Local\Microsoft\Internet Explorer\brndlog.txt") Then
objFSO.DeleteFile USERPROFILE &"\AppData\Local\Microsoft\Internet Explorer\brndlog.txt"
End If
If objFSO.FileExists(USERPROFILE &"\AppData\Local\Microsoft\Internet Explorer\ie4uinit-UserConfig.log") Then
objFSO.DeleteFile USERPROFILE &"\AppData\Local\Microsoft\Internet Explorer\ie4uinit-UserConfig.log"
End If

Всего записей: 3050 | Зарегистр. 24-10-2002 | Отправлено: 20:28 25-02-2019
LevT



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

Код:
 
ie4uinit.exe -show
ie4uinit.exe -ClearIconCache  
Start-Sleep 1000  
 
Get-ItemToDelete | Remove-Item -Confirm:$false
 

 
Функцию Get-ItemToDelete напишите сами, используя переменную окружения $env:USERPROFILE
Осилите?
 
 
Добавлено:
Совет
Проверять наличие файлов перед удалением не надо: Remove-Item ругнется красным, но нужный результат обеспечит.  
Можно ругань предотвратить, дописав -ErrorAction SilentlyContinue

Всего записей: 17149 | Зарегистр. 14-10-2001 | Отправлено: 20:36 25-02-2019 | Исправлено: LevT, 20:37 25-02-2019
Death_INN

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LevT, не дорос я еще до функций. Так пойдет?
 
Get-ChildItem -Path "$env:USERPROFILE\AppData\Local\Microsoft\Internet Explorer\*" -Include *.txt,*.log -Force | Remove-Item -Force

Всего записей: 3050 | Зарегистр. 24-10-2002 | Отправлено: 22:32 25-02-2019
LevT



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Death_INN
Если параметры определяют подлежащие удалению файлы именно так, как вы хотите.
Параметра gci -Force кстати не существует
 
А в функции ничего страшного нет  
function Get-ItemToDelete  {
     Get-ChildItem -Path "$env:LOCALAPPDATA\Microsoft\Internet Explorer\*" -Include *.txt,*.log
}
 
Можно и просто через Get-Item написать
 
"$env:LOCALAPPDATA\Microsoft\Internet Explorer\*.txt" | Get-Item  
"$env:LOCALAPPDATA\Microsoft\Internet Explorer\*.log" | Get-Item  
 
или
 
$path = "$env:LOCALAPPDATA\Microsoft\Internet Explorer\"
"$path\*.log","$path\*.txt" | get-item
 

Всего записей: 17149 | Зарегистр. 14-10-2001 | Отправлено: 22:50 25-02-2019 | Исправлено: LevT, 22:50 25-02-2019
iNNOKENTIY21



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

Цитата:
Параметра gci -Force кстати не существует  

да ладно.

Всего записей: 3519 | Зарегистр. 16-08-2012 | Отправлено: 23:04 25-02-2019
Smitis



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

Цитата:
Скрипт правильно обновляет Рабочий стол

Если обновление рабочего стола, то вариант через API без всяких обходных манёвров в виде ie4uinit.

Код:
Add-Type -Namespace WinAPI -Name Shell32 -MemberDefinition @'
    [System.Runtime.InteropServices.DllImport("Shell32.dll")]  
        public static extern int SHChangeNotify(int EventId, int Flags, IntPtr Item1, IntPtr Item2);
'@
[WinAPI.Shell32]::SHChangeNotify(0x08000000,0,0,0)



----------
Разум когда-нибудь победит

Всего записей: 3214 | Зарегистр. 09-02-2003 | Отправлено: 23:20 25-02-2019 | Исправлено: Smitis, 23:29 25-02-2019
Death_INN

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Import-Module : Не удается выполнить сценарий "тута имя", так как он содержит оператор "#requires" для запуска от имени администратора. Текущий сеанс Windows PowerShell выполняется не с правами администратора. Запустите Windows PowerShell от имени администратора, а затем попробуйте запустить данный сценарий еще раз...
 
Как избавиться от этих красных строк? Я не всегда запускаю от имени админа и мне не требуется в этом случае обработка сценариев.

Всего записей: 3050 | Зарегистр. 24-10-2002 | Отправлено: 00:04 26-02-2019 | Исправлено: Death_INN, 00:04 26-02-2019
LevT



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Death_INN
запустить с правами администратора (с элевацией).
Ярлыки такие в винде есть готовые, а можно правой кнопкой по обычному и выбрать "запуск от админа".
 
Добавлено:
iNNOKENTIY21
 
ну да, ошибся.
А чего там форсить-то можно?
Поиск скрытых файлов, что ли?

Всего записей: 17149 | Зарегистр. 14-10-2001 | Отправлено: 00:07 26-02-2019
iNNOKENTIY21



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

Цитата:
А чего там форсить-то можно?
Поиск скрытых файлов, что ли?  

Тут то нет, 4 файла.. а вообще, малоли скрыл кто
Да и Smitis уже предложил вариант получше, для меня по крайней мере.

Всего записей: 3519 | Зарегистр. 16-08-2012 | Отправлено: 00:31 26-02-2019 | Исправлено: iNNOKENTIY21, 00:31 26-02-2019
PhoenixUA



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Death_INN
Когда появляется эта надпись?
При старте консоли Powershell?
Если да, смотреть что в профилях записано.

Всего записей: 2184 | Зарегистр. 17-11-2005 | Отправлено: 00:47 26-02-2019
Death_INN

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
PhoenixUA, да, в профиле импортируются пользовательские модули. Когда они мне нужны, я PowerShell открываю от имени админа. Требуется заткнуть рот PowerShell при запуске не от админа, т.к. я без него знаю, что модули в этом случае не обрабатываются.

Всего записей: 3050 | Зарегистр. 24-10-2002 | Отправлено: 01:17 26-02-2019
PhoenixUA



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Death_INN
Ну проверяй админа в модулях не через requires, а

Код:
([Security.Principal.WindowsPrincipal][Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole]::"Administrator")

Всего записей: 2184 | Зарегистр. 17-11-2005 | Отправлено: 01:33 26-02-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Death_INN
Проверяйте права и если админские импортируйте модули.
В профиль как то так:

Код:

function IsAdministrator {
    <#
    .OUTPUTS
    System.Boolean
    $true - если функция запущена с правами администратора, иначе $false
    .LINK
    https://msdn.microsoft.com/ru-ru/library/system.security.principal.windowsprincipal(v=vs.110).aspx
    .LINK
    https://msdn.microsoft.com/ru-ru/library/system.security.principal.windowsprincipal.isinrole(v=vs.110).aspx
    #>
 
    # Определение текущего пользователя
    $user = [Security.Principal.WindowsIdentity]::GetCurrent()
 
    # Определение пользователя с административными правами
    $admin = [Security.Principal.WindowsBuiltinRole]::Administrator
 
    # Определение роли текущего пользователя, администратор или нет
    (New-Object Security.Principal.WindowsPrincipal $user).IsInRole($admin)
}
 
# Если администратор импортируем модули, иначе ничего не делаем
if (IsAdministrator) {
    Import-Module MyModule
}

Всего записей: 3519 | Зарегистр. 16-08-2012 | Отправлено: 01:35 26-02-2019
PhoenixUA



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
iNNOKENTIY21
Так даже лучше. Я бы только немного сократил (каст вместо нового объекта):

Код:
 
    # Определение текущего пользователя
    [Security.Principal.WindowsPrincipal]$user = [Security.Principal.WindowsIdentity]::GetCurrent()
 
    # Определение пользователя с административными правами
    $admin = [Security.Principal.WindowsBuiltinRole]::Administrator
 
    # Определение роли текущего пользователя, администратор или нет
    $user.IsInRole($admin)
 

Всего записей: 2184 | Зарегистр. 17-11-2005 | Отправлено: 01:47 26-02-2019
farag



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

Код:
 
$a = (Get-Item -Path "HKCU:\Software\Adobe\Adobe Acrobat\DC\AVGeneral\cCommonToolsDesktop").Property[-1]
$a = $a -replace "\D", ""
$a = [int]$a + 1
New-ItemProperty -Path "HKCU:\Software\Adobe\Adobe Acrobat\DC\AVGeneral\cCommonToolsDesktop" -Name "a$a" -Type String -Value OneColumn -Force
 

 
По данному пути много ключей, начиная с a1, заканчивая примерно a28. Мне надо добавить новый ключ на единицу больше в цифре, чтобы не перезаписать старый. Можно ли как-то рациональнее получать число 28, прибавлять к нему 1 и записывать новый ключ уже с именем a29?

Всего записей: 2476 | Зарегистр. 27-07-2009 | Отправлено: 15:05 07-03-2019
LevT



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

Код:
 
PS> [int]("a28".Substring(1)) + 1
29
 

 
или  

Код:
 
1 + "a28".Substring(1)
 

 
Добавлено:
 
Точно так же для типизированного массива объектов: у него есть все те свойства и методы, какие есть у объекта данного типа
(здесь строка)
 

Код:
 
$stringarray = 28..30 | foreach {"a$_"}
1 + ($stringarray.Substring(1) | Sort -Descending | Select -First 1)
 

 
или если угодно
 

Код:
 
1 + ($stringarray .Substring(1)) | measure -Maximum).Maximum
 

 
 
Добавлено:
 
Это опять применение универсального принципа в PS:
Сначала придумай как обработать один объект, а потом точно так же обработай массив.
 
Если не получается придуманное распространить с единичного объекта на массив - стало быть, придумано было неправильно.  
Передумывай, пока не наплодил фуфла!

Всего записей: 17149 | Зарегистр. 14-10-2001 | Отправлено: 15:25 07-03-2019 | Исправлено: LevT, 15:41 07-03-2019
Открыть новую тему     Написать ответ в эту тему

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