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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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 226 227 228

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

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

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



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть класс AsusPDDrivers.psm1 и скрипт Get-AsusPDDrivesLatest.ps1 его использующий

Код:
using module .\AsusPDDrivers.psm1
 
#$MB = "H110M-A/M.2"
#$MB = "TUF H370-PRO GAMING (WI-FI)"
 
# Название материнской платы должно совпадать с названием на странице МП:
# "https://www.asus.com/us/Motherboards/ROG-STRIX-Z390-E-GAMING/HelpDesk_Download"
$MB = "ROG STRIX Z390-E GAMING"
 
$OS = [OS]::Windows_10_64
 
$AsusPDDrivers = [AsusPDDrivers]::new($OS, $MB)
$AsusPDDrivers.GetLatest()

Как бы организовать проверку обновлений? Есть идеи? Сохранять в файл всё ($DriverTools) и затем сравнивать с Latest ?

Всего записей: 3549 | Зарегистр. 16-08-2012 | Отправлено: 15:31 11-06-2019
YuS_2



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

Цитата:
Как бы организовать проверку обновлений? Есть идеи?

Идея-то есть, но для неё надо получить прямые ссылки и пути к локальным файлам. И всё.
Составляем список пар Source:Destination и прикручиваем к скрипту (первый элемент пары вполне возможно сделать динамическим):
Берем из шапки скрипт, в котором есть и проверка "свежести" удаленного файла и собственно, скачивание (которое при желании можно оформить в фоновую задачу).

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 18:02 11-06-2019 | Исправлено: YuS_2, 18:05 11-06-2019
iNNOKENTIY21



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

Цитата:
Идея-то есть, но для неё надо получить прямые ссылки и пути к локальным файлам. И всё.

Локальные файлы не все в наличии.
Например для моего рабочего компа, видео драйвер на сайте 2017 года и хранить его смысла нет. А сведения, если появится новый драйвер, желательны
 
Так вроде работает Get-AsusPDDriversUpdates.ps1

Код:
using module .\AsusPDDrivers.psm1
 
# Название материнской платы должно совпадать с названием на странице МП:
# https://www.asus.com/us/Motherboards/ROG-STRIX-Z390-E-GAMING/HelpDesk_Download
$MB = "ROG STRIX Z390-E GAMING"
$OS = [OS]::Windows_10_64
$FullName = Join-Path -Path $PSScriptRoot -ChildPath "AsusPDDrivers.xml"
 
$AsusPDDrivers = [AsusPDDrivers]::new($OS, $MB)
$Current = $AsusPDDrivers.DriverTools.Files
 
if (Test-Path -LiteralPath $FullName) {
    [PSCustomObject] $Previous = Import-Clixml -LiteralPath $FullName
    $Current | Where-Object {$Previous.id -notcontains $_.Id}
} else {
    $AsusPDDrivers.GetLatest()
}
 
$Current | Export-Clixml -LiteralPath $FullName -Encoding Unicode -Force

 
Требуется файл AsusPDDrivers.psm1, размещённый в папке со скриптом, из предыдущего моего поста.
Скрипт сохраняет файл AsusPDDrivers.xml в папку, откуда был запущен.


Всего записей: 3549 | Зарегистр. 16-08-2012 | Отправлено: 19:36 11-06-2019
YuS_2



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

Цитата:
А сведения, если появится новый драйвер, желательны

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

Код:
$remotetime = get-date((iwr $_.source -method 'head' -verbose:$false).headers.'last-modified')

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 21:27 11-06-2019 | Исправлено: YuS_2, 21:30 11-06-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
YuS_2
Идея! Но так ссылки на файлы получить, надо загрузить данные, а потом еще и заголовки у каждого файла для извлечения даты. Вроде как в данном случае замороченнее.  Но в копилочку сниппетов добавлю
 
Заметил в Получаемых объектах что у не актуальных, еще и - в начале в Title и Description.
Но полагаться поди не стоит на это, Id надёжнее.

Всего записей: 3549 | Зарегистр. 16-08-2012 | Отправлено: 22:27 11-06-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Хочется event-off. Доабвить событие в класс с параметром, в котором передавать объект.
В скрипте подписаться на событие и получить объект. Возможно/как/примеры есть ?

Всего записей: 3549 | Зарегистр. 16-08-2012 | Отправлено: 13:56 12-06-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Обновил немного AsusPDDrivers.psm1 добавлен метод: [PSCustomObject] NotContains([PSCustomObject] $PreviousFiles).
В вызывающем коде, теперь можно делать [PSCustomObject] $New = $AsusPDDrivers.NotContains($Previous), как то так

Код:
using module .\AsusPDDrivers.psm1
 
# Название материнской платы должно совпадать с названием на странице МП:
# "https://www.asus.com/us/Motherboards/ROG-STRIX-Z390-E-GAMING/HelpDesk_Download"
$MB = "ROG STRIX Z390-E GAMING"
$OS = [OS]::Windows_10_64
$FullName = Join-Path -Path $PSScriptRoot -ChildPath "AsusPDDrivers.xml"
 
$AsusPDDrivers = [AsusPDDrivers]::new($OS, $MB)
 
if (Test-Path -LiteralPath $FullName) {
    [PSCustomObject] $Previous = Import-Clixml -LiteralPath $FullName
    [PSCustomObject] $New = $AsusPDDrivers.NotContains($Previous)
 
    if ($New) {
        foreach ($item in $New) {
            [uri] $Uri = [uri]::new($item.DownloadUrl.Global)
            [string] $Name = $Uri.Segments[$Uri.Segments.Count - 1]
            $item
            $Name
            # bla-bla-bla
            #Invoke-WebRequest -Uri $Uri -OutFile $Name
        }
    } else {
        Write-Host "No Updates"
    }
}
 
$AsusPDDrivers.DriverTools.Files |
    Export-Clixml -LiteralPath $FullName -Encoding Unicode -Force

 
Как использовать в консоли PowerShell, последовательно:
 
#Использовать модуль

Код:
using module "К:\Файлу\Путь\AsusPDDrivers\AsusPDDrivers.psm1"

#Создать объект и получить данные со страницы драйверов и утилит, для последующего доступа к данным

Код:
$AsusPDDrivers = [AsusPDDrivers]::new([OS]::Windows_10_64, "ROG STRIX Z390-E GAMING")

#Получить имена секций

Код:
$AsusPDDrivers.GetSectionNames()

#Получить данные о последнем файле в секции BIOS

Код:
$AsusPDDrivers.GetLastInSection("BIOS")

#Получить данные о последних файлах из всех секций

Код:
$AsusPDDrivers.GetLatest() | Format-Table Title, FileSize, ReleaseDate


Всего записей: 3549 | Зарегистр. 16-08-2012 | Отправлено: 20:25 12-06-2019 | Исправлено: iNNOKENTIY21, 21:48 12-06-2019
KOJl6aCKA

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Посоветуйте подходящий BATник для запуска сети в Windows 7.
Что бы "вручную" (Без DHCP) задавались параметры сети, например:
netsh interface ip set address name="Local Area Connection" static 192.168.0.100 255.255.255.0 192.168.0.1 1
 
И инициировалось включение данной сети

Всего записей: 905 | Зарегистр. 03-09-2012 | Отправлено: 09:28 13-06-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Фигня какая то
 
Запускаю скрипт в консоли, один результат: 72 и 74
Запускаю команды в консоли, последовательно из того же скрипта, другой результат: 72 и 2
Снова запускаю скрипт в консоли, результат: 72 и 2
 

 
Архив с файлами для повтора и Команды в консоль, пути, только свои не забудьте

Всего записей: 3549 | Зарегистр. 16-08-2012 | Отправлено: 19:36 13-06-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В связи с MPlayer / MPlayer2 / MPV / MEncoder :: 16:01 13-06-2019
Возникла надобность в

Код:
[char[]] "powershell.exe -NoLogo -NoProfile -ExecutionPolicy ByPass -Сommand ""mpv (Get-Clipboard)""" | Where-Object {$_ -gt 127}

Визуально фиг отловишь

Всего записей: 3549 | Зарегистр. 16-08-2012 | Отправлено: 21:53 13-06-2019
ipmanyak



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KOJl6aCKA
netsh interface ip set address name="Подключение по локальной сети" static 192.168.0.100 255.255.255.0 192.168.0.1 1  
netsh interface set interface name = "Подключение по локальной сети" admin = DISABLED
netsh interface set interface name = "Подключение по локальной сети" admin = ENABLED
Добавить альтернативный DNS сервер.
netsh interface ip add dns "Подключение по локальной сети"  192.168.0.5
"Подключение по локальной сети"   должно быть набрано  ЕМНИП в кодировке 1251 и уже должно существовать в системе точно с таким именем.
Можно переименовать интерфейс  
netsh interface set interface name=”Подключение по локальной сети” newname=”Local Area Connection”
Можно поступить по другому, всё настроить на одном компе, затем
netsh -c interface dump > C:\my-config.txt
файл C:\my-config.txt несем на другой комп, а там
Восстановить сетевые настройки из файла конфигурации.
netsh -f C:\my-config.txt
 
 


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

Всего записей: 11789 | Зарегистр. 10-12-2003 | Отправлено: 09:42 14-06-2019 | Исправлено: ipmanyak, 09:50 14-06-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В связи с фигней часть скрипта для обновлений ушла в функцию в файл модуля.
Подробнее...

Всего записей: 3549 | Зарегистр. 16-08-2012 | Отправлено: 14:11 15-06-2019 | Исправлено: iNNOKENTIY21, 14:28 15-06-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кто не писал свой backup скрипт… давно дело было
 
Set-ArchiveAttribute.ps1

Код:
Param
(
    [Parameter(Mandatory=$true)]
    #Набор файлов. (Пример: $files = Get-ChildItem -Path "c:\Documents\Test\" -Recurse -File -Force).
    [System.IO.FileSystemInfo[]]
    $files,
 
    [Parameter(Mandatory=$true)]
    [ValidateLength(2,2)]
    #Выполняемая операция: (Установить атрибут архивный: A+, Снять атрибут архивный: A-, Инвертировать атрибут архивный: A!).
    [String]
    $operation
)
 
#Проверка, есть ли файлы в списке, если нет, прервать скрипт.
if (!($files)) { Throw "набор файлов пуст." }
 
switch($operation)
{
    'A+'  
    {
        #Установить атрибут архивный.
        ForEach ($file in $files)
        {
            $file.Attributes = $file.Attributes.Archive -bor ([System.IO.FileAttributes]::Archive)
        }
    }
 
    'A-'
    {
        #Снять атрибут архивный.
        ForEach ($file in $files)
        {
            $file.Attributes = $file.Attributes.Archive -band ([System.IO.FileAttributes]::Archive)
        }
    }
 
    'A!'
    {
        #Инвертировать атрибут архивный.
        ForEach ($file in $files)
        {
            $file.Attributes = $file.Attributes -bxor ([System.IO.FileAttributes]::Archive)
        }
    }
 
    default
    {
        Throw "$operation неопознано. Введите выполняемую операцию: (Установить атрибут архивный: A+, Снять атрибут архивный: A-, Инвертировать атрибут архивный: A!)."
    }
}

Всего записей: 3549 | Зарегистр. 16-08-2012 | Отправлено: 14:58 16-06-2019
KOJl6aCKA

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

Цитата:
netsh interface ip set address name="Подключение по локальной сети" static 192.168.0.100 255.255.255.0 192.168.0.1 1  
netsh interface set interface name = "Подключение по локальной сети" admin = DISABLED
netsh interface set interface name = "Подключение по локальной сети" admin = ENABLED
Добавить альтернативный DNS сервер.
netsh interface ip add dns "Подключение по локальной сети"  192.168.0.5
"Подключение по локальной сети"   должно быть набрано  ЕМНИП в кодировке 1251 и уже должно существовать в системе точно с таким именем.
Можно переименовать интерфейс  
netsh interface set interface name=”Подключение по локальной сети” newname=”Local Area Connection”
Можно поступить по другому, всё настроить на одном компе, затем
netsh -c interface dump > C:\my-config.txt
файл C:\my-config.txt несем на другой комп, а там
Восстановить сетевые настройки из файла конфигурации.
netsh -f C:\my-config.txt
 
 
 

ipmanyak
Спасибо! Сработало!
 

Всего записей: 905 | Зарегистр. 03-09-2012 | Отправлено: 14:10 19-06-2019
Baltazar500



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Почему такой вариант цикла
Код:
for /f %%a in ('dir /s /b') do echo %%a>>123.txt && echo 123
даёт к выхлопу каждой строки в текстовый файл прибавку в виде пробела в конце строки, а такой вариант
Код:
for /f %%a in ('dir /s /b') do (
echo %%a>>123.txt
echo 123
)
его не даёт ?

Всего записей: 2140 | Зарегистр. 19-09-2011 | Отправлено: 03:58 20-06-2019 | Исправлено: Baltazar500, 04:01 20-06-2019
NIKZZZZ



Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Baltazar500
Строка вообще не корректна -
echo %%a>>123.txt, последний символ %%a интерпретируется как номер потока, вот корректный вариант -

Код:
for /f %%a in ('dir /s /b') do >>123.txt echo %%a&& echo 123

Всего записей: 5365 | Зарегистр. 08-02-2006 | Отправлено: 04:28 20-06-2019
Baltazar500



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

Всего записей: 2140 | Зарегистр. 19-09-2011 | Отправлено: 08:00 20-06-2019
farag



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

Код:
 
Write-Host "Errors" -BackgroundColor Red
$Error.Clear()
# Много кода
 

Можно ли без try/catch после исполнения всего кода оформить в таблицу описание ошибки и строку?

Код:
 
$Exception.Message
$InvocationInfo.ScriptLineNumber
 

 
Как-то так

Код:
 
($Error | ForEach-Object {
    [PSCustomObject]@{
        "Error"    = $_.Exception.Message
        "Line"    = $_.InvocationInfo.ScriptLineNumber
    }
} | Format-Table | Out-String).Trim()
 

Всего записей: 2481 | Зарегистр. 27-07-2009 | Отправлено: 13:05 20-06-2019 | Исправлено: farag, 14:14 20-06-2019
LevT



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
farag
Непонятно, что ты хочешь получить.
 
Чем не устраивает  

Код:

$custErr = $Error | ForEach-Object {
    [PSCustomObject]@{
        "Line"    = $_.InvocationInfo.ScriptLineNumber
        "Error"   = $_.Exception.Message
    }
}
 
$custErr | Format-Table -Autosize
?

Всего записей: 17293 | Зарегистр. 14-10-2001 | Отправлено: 15:02 20-06-2019 | Исправлено: LevT, 15:05 20-06-2019
farag



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LevT
Шо бы пробела не было между заголовком Write-Host "Errors" -BackgroundColor Red

Код:
 
"Error"    = $_.Exception.Message | Where-Object -FilterScript {$_.Exception.Message -notcontains "HRESULT"}
 

Почему не убирает из выдачи строки типа?

Код:
 
Сбой развертывания с HRESULT: 0x80073CFA, Сбой удаления. Обратитесь к поставщику программного обеспечения. (Исключение из HRESULT: 0x80073CFA)...  
 

Всего записей: 2481 | Зарегистр. 27-07-2009 | Отправлено: 15:14 20-06-2019 | Исправлено: farag, 15:20 20-06-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 226 227 228

Компьютерный форум 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