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

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



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

Цитата:
Нашел забавный скрипт по переназначению папок типа "Загрузки"...

У меня редирект сделало. Но всё самому
Заранее папку создать.
Скопировать desktop.ini и вновь назначенной папке, задать атрибут: Только для чтения
 
Проверил в свойствах Расположение у вновь назначенной — есть.  
В реестре HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
374DE290-123F-4565-9164-39C4925E467B — на новый путь
 
Удалить старую. Проверить в программах. В Edge ссылается на новый.
 
Добавлено:
LevT
Вы использовали мой ник, как я это должен был понимать?
И я совсем не обиделся  

Всего записей: 3519 | Зарегистр. 16-08-2012 | Отправлено: 12:08 19-11-2018
YuS_2



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

Цитата:
А я свои задачки, уже порешал, примерно так:

C API-то всё простым кажется...
Уже вижу, что задачка решена, но пусть будет ещё вариант для других ищущих:

Код:
$yd = "https://yadi.sk/d/hlf1lfC8mKU58"
$fld = '&path=/!_last'
$out_fld = 'out.zip'
$url = "https://cloud-api.yandex.net/v1/disk/public/resources/download?public_key=$yd$fld"
iwr (irm $url).href -out $out_fld


Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 12:25 19-11-2018
farag



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

Цитата:
У меня редирект сделало.

У меня тоже, конечно.
Цитата:
Скопировать desktop.ini и вновь назначенной папке

До этого уже потом дошел. Сейчас гляну...
Да, скачивается в новую папку, но почему по пути %userprofile% в свойствах ярлыка "Загрузки" все равно указывается папка по умолчанию? Вот вопрос...

Всего записей: 2477 | Зарегистр. 27-07-2009 | Отправлено: 12:34 19-11-2018
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть такая функция: Get-AvailableFirefox
Решил я туда enum приделать: Language но облом с дефисом. Как с дефисом бы сделать, возможно?
 
Добавлено:
YuS_2

Цитата:
но пусть будет ещё вариант для других ищущих:  

Так примерно и есть
Но
Цитата:
Значение параметра следует кодировать в URL-формате.

Пришлось усложниться function ConvertTo-EncodedURL

Всего записей: 3519 | Зарегистр. 16-08-2012 | Отправлено: 13:06 19-11-2018 | Исправлено: iNNOKENTIY21, 13:20 19-11-2018
YuS_2



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

Цитата:
Так примерно и есть

Чуть позже доделаю и опубликую скрипт с параметрами, более универсальный. Пока что времени в обрез всё проверить...

Цитата:
Пришлось усложниться  

Прочитав API, тоже сначала заморочился этим, сделал и... в итоге что-то пошло не так, url не понравился командлету или яндексу, уже не помню. Тогда запустил без кодирования и всё заработало...
В общем, попозже выложу скрипт (он пока ещё слишком корявым получился, хоть и работает), а народ, возможно, потестирует и если вылезут какие глюки - поправлю...
 
Добавлено:

Код:
<#
 скачивание файлов c yandex-disk, используется API https://tech.yandex.ru/disk/api/reference/public-docpage/
 Первый параметр (обязательный) - публичный ключ или публичная ссылка файла/каталога яндекс-диска
 Второй параметр - путь к подкаталогу или файлу
 Третий параметр - ключ для запуска скачивания файла/каталога
 Пример использования:
 1. Получение метаинформации:
     а) .\script.ps1 'https://yadi.sk/d/hlf1lfC8mKU58' '/!_last'
     б) .\script.ps1 '0orfHgRGOmkgwFuE7rYB7aj5mqYc+fHoQ12mt3rT5dXGxYQ/8IcYqHCcCAf6aqMeq/J6bpmRyOJonT3VoXnDag=='
 2. Скачивание файла:
     а) .\script.ps1 'https://yadi.sk/d/hlf1lfC8mKU58' '/!_last' -download
     б) .\script.ps1 '0orfHgRGOmkgwFuE7rYB7aj5mqYc+fHoQ12mt3rT5dXGxYQ/8IcYqHCcCAf6aqMeq/J6bpmRyOJonT3VoXnDag==' '/!_last' -d
#>
 
[cmdletbinding()]
param (
    [parameter(mandatory=$true,helpmessage="Enter public_key or uri+public_key yandex_disk file/folder")]
    [string]$Uri,
    [string]$Path,
    [switch]$Download
)
add-type -ass system.web
$urlapi,$dld,$key,$pth = "https://cloud-api.yandex.net/v1/disk/public/resources",'/download','?public_key=','&path='
if($uri -notmatch '^http'){$uri = [system.web.httputility]::urlencode($uri)}
if($path){$path = [system.web.httputility]::urlencode($path)}
 
function get-metainfo {
    if($path){
        $urlmeta = $urlapi+$key+$uri+$pth+$path
    } else {
        $urlmeta = $urlapi+$key+$uri
    }
    irm $urlmeta  
}
 
function get-download {
    if($path){
        $urldld = $urlapi+$dld+$key+$uri+$pth+$path
    } else {
        $urldld = $urlapi+$dld+$key+$uri
    }
    $udld = (irm $urldld).href
    $reg_fl = [system.web.httputility]::urldecode([string]$($udld -replace '^.*filename=([^&]+)&.*','$1'))
    iwr $udld -out $reg_fl  
}
 
 
if(!$download){
    (get-metainfo)._embedded.items|select name,type,size,created
} else {get-download}

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 16:02 19-11-2018 | Исправлено: YuS_2, 18:53 19-11-2018
LevT



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

Кто-то готов поучаствовать?

Всего записей: 17149 | Зарегистр. 14-10-2001 | Отправлено: 16:07 19-11-2018
farag



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

Код:
 
# https://gist.github.com/aaronparker/cf124f13bb58d95342707527900d307b
$Path = "$env:SystemDrive\Загрузки"
function Set-KnownFolderPath
{
    Param (
        [Parameter(Mandatory = $true)]
        [ValidateSet('Documents', 'Downloads')]
        [string]$KnownFolder,
        
        [Parameter(Mandatory = $true)]
        [string]$Path
    )
    $KnownFolders = @{
        'Documents' = @('FDD39AD0-238F-46AF-ADB4-6C85480369C7','f42ee2d3-909f-4907-8871-4c22fc0bf756');
        'Downloads' = @('374DE290-123F-4565-9164-39C4925E467B','7d83ee9b-2244-4e70-b1f5-5393042af1e4');
    }
    $Type = ([System.Management.Automation.PSTypeName]'KnownFolders').Type
    $Signature = @'
    [DllImport("shell32.dll")]
    public extern static int SHSetKnownFolderPath(ref Guid folderId, uint flags, IntPtr token, [MarshalAs(UnmanagedType.LPWStr)] string path);
'@
    $Type = Add-Type -MemberDefinition $Signature -Name 'KnownFolders' -Namespace 'SHSetKnownFolderPath' -PassThru
    If (Test-Path $Path -PathType Container)
    {
        #  return $Type::SHSetKnownFolderPath([ref]$KnownFolders[$KnownFolder], 0, 0, $Path)
        ForEach ($guid in $KnownFolders[$KnownFolder])
        {
            $Type::SHSetKnownFolderPath([ref]$guid, 0, 0, $Path)
        }
    }
}
 
Set-KnownFolderPath -KnownFolder 'Downloads' -Path $Path
New-ItemProperty -Path "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" -Name "{7D83EE9B-2244-4E70-B1F5-5393042AF1E4}" -Type ExpandString -Value "%SystemDrive%\Загрузки" -Force
Stop-Process -ProcessName explorer
 

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

Всего записей: 2477 | Зарегистр. 27-07-2009 | Отправлено: 16:43 19-11-2018 | Исправлено: farag, 16:43 19-11-2018
LevT



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

Глянь ещё на это  

Всего записей: 17149 | Зарегистр. 14-10-2001 | Отправлено: 17:18 19-11-2018
westlife



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

Цитата:
но вот иконку не хочет автоматически менят

При изменении расположения нужно еще указывать путь в  
HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders, и удалять его, если восстанавливать.
А также важно наличие правильного desktop.ini, с правильными атрибутами.
Ну и не забывать о параметрах доступа.
Дополнительно

Всего записей: 1390 | Зарегистр. 12-12-2006 | Отправлено: 17:52 19-11-2018
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
farag
Для того, что бы применялся desktop.ini, нужно, что бы у содержащей его папки, был атрибут: Только для чтения
 

 
Может в этом дело.
 
Добавлено:
Немножко профиля, для удобств
 
Alt+F6 — Замена псевдонимов в строке ввода на полное написание их команды • demo-gif:
Набираем iwr и нажимаем Alt+F6

 
Добавлено:
Set-HostSize

Всего записей: 3519 | Зарегистр. 16-08-2012 | Отправлено: 21:31 19-11-2018
farag



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
iNNOKENTIY21
М-да, я заметил насчет атрибута...
теперь, вроде, работает

Код:
 
# https://gist.github.com/aaronparker/cf124f13bb58d95342707527900d307b
# Условно
IF (!(Test-Path $env:SystemDrive\Загрузки))
{
    New-Item -Path $env:SystemDrive\Загрузки -Type Directory -Force
}
IF (!(Test-Path $env:SystemDrive\Документы))
{
    New-Item -Path $env:SystemDrive\Документы -Type Directory -Force
}
function Set-KnownFolderPath
{
    Param (
        [Parameter(Mandatory = $true)]
        [ValidateSet('Documents', 'Downloads')]
        [string]$KnownFolder,
        
        [Parameter(Mandatory = $true)]
        [string]$Path
    )
    $KnownFolders = @{
        'Documents' = @('FDD39AD0-238F-46AF-ADB4-6C85480369C7','f42ee2d3-909f-4907-8871-4c22fc0bf756');
        'Downloads' = @('374DE290-123F-4565-9164-39C4925E467B','7d83ee9b-2244-4e70-b1f5-5393042af1e4');
    }
    $Type = ([System.Management.Automation.PSTypeName]'KnownFolders').Type
    $Signature = @'
    [DllImport("shell32.dll")]
    public extern static int SHSetKnownFolderPath(ref Guid folderId, uint flags, IntPtr token, [MarshalAs(UnmanagedType.LPWStr)] string path);
'@
    $Type = Add-Type -MemberDefinition $Signature -Name 'KnownFolders' -Namespace 'SHSetKnownFolderPath' -PassThru
    #  return $Type::SHSetKnownFolderPath([ref]$KnownFolders[$KnownFolder], 0, 0, $Path)
    ForEach ($guid in $KnownFolders[$KnownFolder])
    {
        $Type::SHSetKnownFolderPath([ref]$guid, 0, 0, $Path)
    }
    Attrib +r $Path
}
Set-KnownFolderPath -KnownFolder Downloads -Path "$env:SystemDrive\Загрузки"
New-ItemProperty -Path "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" -Name "{7D83EE9B-2244-4E70-B1F5-5393042AF1E4}" -Type ExpandString -Value "%SystemDrive%\Загрузки" -Force
Set-KnownFolderPath -KnownFolder Documents -Path "$env:SystemDrive\Документы"
New-ItemProperty -Path "HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" -Name "{F42EE2D3-909F-4907-8871-4C22FC0BF756}" -Type ExpandString -Value "%SystemDrive%\Документы" -Force
Stop-Process -ProcessName explorer
 

 
И вот такую штуку нарыл. Может, пригодится.
https://gallery.technet.microsoft.com/scriptcenter/Set-FolderIcon-0bd56629
 
LevT
У меня так на русской Win.
Подробнее...

Всего записей: 2477 | Зарегистр. 27-07-2009 | Отправлено: 09:04 20-11-2018 | Исправлено: farag, 09:05 20-11-2018
LevT



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
farag
ну, то есть ключи везде одинаковы - и этим можно безопасно пользоваться.

Всего записей: 17149 | Зарегистр. 14-10-2001 | Отправлено: 09:54 20-11-2018
farag



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

Код:
 
# https://p0w3rsh3ll.wordpress.com/2018/11/08/about-file-associations/
$ParentACL = Get-Acl -Path "HKLM:\SOFTWARE\Microsoft\Windows Defender\Spynet"
$k = [Microsoft.Win32.Registry]::LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows Defender\Spynet",'ReadWriteSubTree','TakeOwnership')
$acl  = $k.GetAccessControl()
$null = $acl.SetAccessRuleProtection($false,$true)
$rule = New-Object System.Security.AccessControl.RegistryAccessRule ($ParentACL.Owner,'FullControl','Allow')
$null = $acl.SetAccessRule($rule)
$rule = New-Object System.Security.AccessControl.RegistryAccessRule ($ParentACL.Owner,'SetValue','Deny')
$null = $acl.RemoveAccessRule($rule)
$null = $k.SetAccessControl($acl)
 

Всего записей: 2477 | Зарегистр. 27-07-2009 | Отправлено: 11:44 20-11-2018
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Еще одна функия: Функция для проверки ярлыков
 
Добавлено:
[PowerShell] Test-ShortcutTargetPath - Pastebin.com

Всего записей: 3519 | Зарегистр. 16-08-2012 | Отправлено: 23:57 20-11-2018
farag



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Может, кому-нибудь что-то да и пригодится: https://gist.github.com/farag2/

Всего записей: 2477 | Зарегистр. 27-07-2009 | Отправлено: 16:23 22-11-2018
westlife



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
farag
По WMI. Чтобы кириллицу выводило:  
[Console]::OutputEncoding = [System.Text.Encoding]::GetEncoding("cp866")
 
Или лучше так, пример:
Get-CimInstance -ClassName Win32_VideoController | select Caption, VideoModeDescription | ft
Get-CimInstance -ClassName Win32_OperatingSystem | select Caption,OSArchitecture,Version | ft
 
Может еще от шрифта зависеть.

Всего записей: 1390 | Зарегистр. 12-12-2006 | Отправлено: 18:13 22-11-2018 | Исправлено: westlife, 18:15 22-11-2018
farag



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

Цитата:
По WMI. Чтобы кириллицу выводило:

А ты о чем?..

Всего записей: 2477 | Зарегистр. 27-07-2009 | Отправлено: 19:35 22-11-2018
westlife



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

Цитата:
А ты о чем?..

Да, я глянул по твоей ссылке ан гитхаб, попробовал, не отображает, проверил как можно исправить, и отписал. Я стараюсь wmi использовать в самом крайнем случае, так как медленный, не попадалось такое с отображением в нем.

Всего записей: 1390 | Зарегистр. 12-12-2006 | Отправлено: 20:04 22-11-2018
farag



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
westlife
Господи, я и забыл ). Да, я знаю о команде (использовал).
 
Добавлено:
westlife
А как его в cmd вставить?

Всего записей: 2477 | Зарегистр. 27-07-2009 | Отправлено: 20:14 22-11-2018
westlife



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
farag
Я не обратил внимание что cmd, так как у вас были на PS все время.
Проверил в cmd и так нормально показывает.

Всего записей: 1390 | Зарегистр. 12-12-2006 | Отправлено: 22:22 22-11-2018
Открыть новую тему     Написать ответ в эту тему

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