Полезные PowerShell скрипты

#requires -version 2
<#
   .SYNOPSIS
        Приводит значения ветки реестра
        HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\*\Count
        к удобочитаемому виду
#>
(gp HKCU:\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\*\Count) | % {
  $rot13 = New-Object "Collections.Generic.Dictionary[Char, Char]"
  $table = {param([Int32[]]$arr, [Int32]$lim)
    $arr | % {
      $$ = if ($_ -le $lim) {$_ + 13} else {$_ - 13}
      $rot13.Add([Char]$_, [Char]$$)
    }
  }
  $table.Invoke(65..90, 77)
  $table.Invoke(97..122, 109)
  "Session Counter      LastLaunchTime Name`n$('-'*7) $('-'*7)      $('-'*14) $('-'*4)"
}{
  $_.PSObject.Properties | ? {$_.Name -notlike 'PS*'} | % {
    $name = -join ($_.Name.ToCharArray() | % {if($rot13.ContainsKey($_)){$rot13[$_]}else{$_}})
    if ($_.Value.Length -eq 16) {
      $time = [BitConverter]::ToInt64($_.Value[8..15], 0)
      '{0,7}{1,8}{2,20} {3}' -f [BitConverter]::ToUInt32($_.Value[0..3], 0), [BitConverter]::ToUInt32(
          $_.Value[4..7], 0
      ), $(if($time -ne 0){[DateTime]::FromFileTime($time)}else{''}), $name
    }
    else {
      '{0,7}{1,8}{2,20} {3}' -f [BitConverter]::ToUInt32($_.Value[4..7], 0), '', '', $name
    }
  }
}

#requires -version 2
<#
   .SYNOPSIS
         Изменяет заголовок хоста PowerShell на часы.
#>
& {
  $rex = '(\d{2}\:){2}\d{2}'
  [void]([PowerShell]::Create()).AddScript({
    while ($true) {
      [Console]::Title = $host.UI.RawUI.WindowTitle -replace $rex, (date -f 'HH:mm:ss')
      Start-Sleep -Seconds 1
    }
  }).BeginInvoke()
}

<#
   .SYNOPSIS
         Рисует разноцветные линии (с текстом и без) в хосте PowerShell.
         Есть один небольшой недостаток: не работает перекрытие рисуемой
         линией приглашения хоста.
   .NOTES
         PowerShell 2 и 4.
#>
$line = {
  param(
    [Int32]$x, [Int32]$y, [String]$msg = $null,
    [ConsoleColor]$fc = 'White', [ConsoleColor]$bc = 'Black'
  )
  
  $pos = ($raw = $host.UI.RawUI).WindowPosition
  $con = $raw.WindowSize
  
  $pos.X += $x
  $pos.Y += $y
  
  switch ([String]::IsNullOrEmpty($msg)) {
    $true  {$msg = "$([Char]32)" * $con.Width}
    $false {$msg += "$([Char]32)" * ($con.Width - $msg.Length)}
  }
  $row = $raw.NewBufferCellArray(@($msg), $fc, $bc)
  
  $raw.SetBufferContents($pos, $row)
}
[Enum]::GetValues([ConsoleColor]) | % {
  &$line 0 ($$ = [Int32]$_) "Строка $$" $_
}

#requires -version 5
function Get-LoadedDrivers {
  <#
    .SYNOPSIS
        Выводит список загруженных драйверов.
    .NOTES
        Несмотря на указанную версию PS, сценарий при минимальных правках (а может даже
        и без оных) вполне работоспособен и на более ранних версиях.
        Author: greg zakharov
  #>
  begin {
    if (($$ = [PSObject].Assembly.GetType(
      'System.Management.Automation.TypeAccelerators'
    ))::Get.Keys -notcontains 'Marshal') {
      [void]$$::Add('Marshal', [Runtime.InteropServices.Marshal])
    }
    
    $NtQuerySystemInformation = [Regex].Assembly.GetType(
      'Microsoft.Win32.NativeMethods'
    ).GetMethod('NtQuerySystemInformation')
    $ret = 0
  }
  process {
    try {
      $ptr = [Marshal]::AllocHGlobal(1024)
      if ($NtQuerySystemInformation.Invoke($null, ($par = [Object[]]@(
          11, $ptr, 1024, $ret
      ))) -ne 0) {
        $ptr = [Marshal]::ReAllocHGlobal($ptr, [IntPtr]$par[3])
        if ($NtQuerySystemInformation.Invoke($null, @(11, $ptr, $par[3], 0)) -ne 0) {
          throw New-Object InvalidOperationException('Unable get correct buffer length.')
        }
      }
      
      0..([Marshal]::ReadInt32($ptr) - 1) | % {$i = 12}{
        New-Object PSObject -Property @{
          Address = '0x{0:x}' -f [Marshal]::ReadInt32($ptr, $i)
          Size    = [Marshal]::ReadInt32($ptr, $i + 4)
          Path    = ([Marshal]::PtrToStringAnsi([IntPtr](
              $ptr.ToInt64() + $i + 20), 256
          )).Split("`0")[0]
        }
        $i += 20 + 256 + 8
      } | Select-Object Address, Size, Path
    }
    catch {
      $_.Exception
    }
    finally {
      if ($ptr) {
        [Marshal]::FreeHGlobal($ptr)
      }
    }
  }
  end {
    [void]$$::Remove('Marshal')
  }
}

#requires -version 2
function Get-ParentProcess {
  <#
    .SYNOPSIS
        Возвращет PID родителя указанного процесса.
    .EXAMPLE
        PS C:\> Get-ParentProcess 1620
 
        Name : explorer
        PID  : 1956
  #>
  param(
    [Parameter(Mandatory=$true, Position=0)]
    [Int32]$Id
  )
 
  [Regex].Assembly.GetType(
    'Microsoft.Win32.NativeMethods'
  ).GetMethods() | ? {
    $_.Name -match '\A(Nt|Open).*Process\Z'
  } | % { Set-Variable $_.Name $_ }
 
  $NtProcessBasicInfo = [Regex].Assembly.GetType(
    'Microsoft.Win32.NativeMethods+NtProcessBasicInfo'
  ).GetConstructor(
    'Public, Instance', $null, [Type[]]@(), $null
  ).Invoke($null)
 
  if (($sph = $OpenProcess.Invoke($null, @(0x400, $false, $Id))).IsInvalid) {
    return
  }
 
  [Int32[]]$ret = @()
  if ($NtQueryInformationProcess.Invoke($null, ($par = [Object[]]@(
    $sph, 0, $NtProcessBasicInfo,
    [Runtime.InteropServices.Marshal]::SizeOf($NtProcessBasicInfo), $ret
  ))) -eq 0) {
    New-Object PSObject -Property @{
      Name = (Get-Process -Id ($$ = $par[2].InheritedFromUniqueProcessId) -ea 0).Name
      PID  = $$
    } | Format-List
  }
 
  $sph.Close()
}

#requires -version 2
function Expand-MsiPackage {
  <#
    .SYNOPSIS
        Распаковывает MSI пакеты.
    .DESCRIPTION
        Для распаковки используется msiexec, что в свою
        очередь накладывает ограничения, определенные
        данной службой.
    .EXAMPLE
        PS E:\dist> Expand-MsiPackage python-3.4.4.msi E:\python
  #>
  param(
    [Parameter(Mandatory=$true, Position=0)]
    [ValidateScript({Test-Path $_})]
    [String]$MsiPackage,
 
    [Parameter(Mandatory=$true, Position=1)]
    [String]$Destination
  )
 
  $MsiPackage = Convert-Path $MsiPackage
 
  if (!(Test-Path $Destination)) {
    [void](ni $Destination -Type directory)
  }
  msiexec /a $MsiPackage /qb TARGETDIR=$Destination
}

function Get-RarContent {
  <#
    .SYNOPSIS
        Получает содержимое RAR-архива.
  #>
  param(
    [Parameter(Mandatory=$true)]
    [ValidateNotNullOrEmpty()]
    [ValidateScript({Test-Path $_})]
    [String]$Path
  )
 
  begin {
    # сигнатура rar
    [Byte[]]$rar = 0x52, 0x61, 0x72, 0x21, 0x1A, 0x07, 0x00
  }
  process {
    try {
      $fs = [IO.File]::OpenRead((Convert-Path $Path))
      $br = New-Object IO.BinaryReader($fs)
 
      if (($cmp = Compare-Object ($br.ReadBytes(7)) $rar -PassThru)) {
        throw New-Object IO.IOException(
          'Specified file is nat a RAR archive, try another.'
        )
      }
      # MAIN_HEAD
      if (($mhd = $br.ReadBytes(7))[2] -ne 0x73) {
        throw New-Object IO.IOException(
          'Структура MAIN_HEAD не была найдена.'
        )
      }
      # прыгаем на первый файл
      [void]$fs.Seek((
        [BitConverter]::ToUInt16($mhd[5..6], 0) - 7
      ), [IO.SeekOrigin]::Current)
      # прогуливаемся по всем доступным значениям
      $content = while ($true) {
        $seg = $br.ReadBytes(7) # начало блока
        if (($bsz = [BitConverter]::ToUInt16($seg[5..6], 0)) -le 7) {
          break # nothing to read
        }
 
        $seg += $br.ReadBytes($bsz - 7) # весь блок
        # проверяем что текущий объект является файлом\папкой
        if ($seg[2] -eq 0x74) {
          [void]$fs.Seek((
            $cmp = [BitConverter]::ToUInt32($seg[7..10], 0) # сжатие
          ), [IO.SeekOrigin]::Current)
 
          if ((
            $atr = [BitConverter]::ToUInt32($seg[28..31], 0)
          ) -band 0x10 -or $atr -band 0x4000) {
            continue # а нафига нам пути папок?!
          }
 
          New-Object PSObject -Property @{
            Name = -join [Char[]]$seg[32..(
              32 + [BitConverter]::ToUInt16($seg[26..27], 0
            ) - 1)]
            Cmpd = $cmp
            Size = [BitConverter]::ToUInt32($seg[11..14], 0)
            Attr = -join (([IO.FileAttributes]$atr).ToString().Split(
              ', ', [StringSplitOptions]::RemoveEmptyEntries
            ) | ForEach-Object { $_[0] })
            #Crc32 = '0x{0:X}' -f ([BitConverter]::ToUInt32($seg[16..19], 0))
          }
        }
        else {
          if ([BitConverter]::ToUInt16($seg[3..4], 0) -band 0x8000) {
            [void]$fs.Seek([BitConverter]::ToUInt32(
              $seg[7..10], 0), [IO.SeekOrigin]::Current
            )
          }
        }
      } # while
    }
    catch { Write-Warning $_ }
    finally {
      if ($br) { $br.Close() }
      if ($fs) { $fs.Dispose() }
    }
  }
  end {
    if ($content) {
      $content | Select-Object Attr, Size, Cmpd, Name |
      Format-Table -AutoSize
    }
  }
}

# required -version 3.0
set-alias swatch Set-Watch 
function Set-Watch() {
<#
    .SYNOPSIS
        Запускает фоновый процесс отслеживания изменений файловой системы на основе класса FileSystemWatcher
    .DESCRIPTION
        Существующие фильтры отслеживаемых изменений:
        NotifyFilters.CreationTime
        NotifyFilters.LastAccess
        NotifyFilters.LastWrite
        NotifyFilters.FileName
        NotifyFilters.DirectoryName
        NotifyFilters.Security
        NotifyFilters.Size
        NotifyFilters.Attributes
    .EXAMPLE
        PS C:\> . .\watchdog.ps1           
        PS C:\> swatch -path "d:\test" -filter "*.txt"  -event Created,Deleted 
    .EXAMPLE    
        PS C:\> swatch -path "d:\test" -filter "*.txt"  -event Created,Deleted  -command "start-process notepad.exe" -test
    .LINK 
        [url]https://msdn.microsoft.com/ru-ru/library/system.io.filesystemwatcher(v=vs.110).aspx[/url]
    .LINK
        Remove-Watch
    .LINK
        Disable-Watch
    .LINK 
        Enable-Watch
    .LINK
        Get-Watch
#>
 
[CmdletBinding()] 
param(
    # путь до отслеживаемой директории
    [parameter(Mandatory=$true,Position=1)]
    [alias("p")][string]$path,                           
    [parameter(Mandatory=$true,Position=2)]
    # фильтр типов отслеживаемых файлов
    [alias("f")][string]$filter="*.*",                   
    # задает тип отслеживаемых изменений
    [alias("n")][string]$notify='FileName, LastWrite',   
    # нужно ли рекурсивно отслеживать субдиректории 
    [alias("r")][switch]$recurse,                        
     # событи(e|я) на котор(ое|ые) нужно реагировать
    [parameter(Mandatory=$true,Position=3)]
    [ValidateSet("Created","Deleted","Renamed","Changed")]
    [alias("e")][string[]]$events,                      
    [parameter(Mandatory=$false)]
    # строковые идентифкаторы событий
    [alias("name")][string[]]$id=@(),
    # действие которое нужно выполнить - передается одной строкой вместе с аругментами
    [string]$command,                                    
    # вывод переданных аргументов
    [switch]$test
    )
 
  
    $fsw = New-Object IO.FileSystemWatcher -Property @{
        Path = $path
        Filter = $filter
        IncludeSubdirectories = $recurse
        NotifyFilter = [IO.NotifyFilters]$notify
    }
    Set-Variable __watcher -Value $fsw -Scope Script
 
    Set-Variable command -Value $command -Scope Script
    
    $action = {
        #$command  = Get-Variable command -valueOnly -Scope Global
        $fullPath   = $event.SourceEventArgs.FullPath
        $fileName   = $event.SourceEventArgs.Name
        $changeType = $event.SourceEventArgs.ChangeType
        $timeStamp  = $event.TimeGenerated
        Write-Host "The file '$fileName' was $changeType at $timeStamp"
        
 
        if (![String]::IsNullOrEmpty($command)) {
            Invoke-Expression $command 
        }
 
    }
    
    $calls = [Collections.ArrayList]::new()
    
    for ($i=0; $i -lt $events.length; $i++) {
        
        if ($id.Length -eq $events.Length){
            $jobname = $id[$i]   
        } else {
            $jobname = $events[$i]
        }
        
        $params = @{SourceIdentifier = $jobname; Action = $action}
        if ((get-job).Name -ccontains $jobname) {
            Write-Host "Задание $jobname уже существует" -f Red
            
        } else {
            $regEvent = Register-ObjectEvent $fsw $events[$i] @params
            $calls.Add($regEvent)|Out-Null 
        }
        
    }
 
    # выводим аргументы функции
    if ($test) {
        $MyInvocation.BoundParameters.GetEnumerator() | Foreach { 
            echo "-$($_.Key): $($_.Value)"
        }
        $MyInvocation.UnboundArguments
        '----------------------------'
    }
 
    return $calls
}
 
set-alias unwatch Disable-Watch
function Disable-Watch() {
<#
    .SYNOPSIS
        Временно отключает обработку событий
    .LINK 
        Enable-Watch
    .LINK
        Remove-Watch
    .LINK
        Get-Watch
    .LINK
        Set-Watch
#>
    if ($__watcher) {
        $__watcher.EnableRaisingEvents = $false
        Write-Host "Отслеживание событий отключено" -f Yellow -b DarkGray
    }
}
 
set-alias watch Enable-Watch    
function Enable-Watch() {
<#
    .SYNOPSIS
        Включает обработку событий
    .LINK
        Disable-Watch
    .LINK
        Remove-Watch
    .LINK
        Get-Watch
    .LINK
        Set-Watch
#>    
    if ($__watcher) {
        $__watcher.EnableRaisingEvents = $true
        Write-Host "Отслеживание событий включено" -f Green -b DarkGray
    }
}
 
set-alias gwatch Get-Watch    
function Get-Watch() {
<#
    .SYNOPSIS
        Получает сторожевой объект для установки новых свойств (если указаны)
        и возвращает его 
    .EXAMPLE    
        PS C:\> (gwatch).filter = "*.*"     # установить новый файловый фильтр
        PS C:\> gwatch -Filter *.*
    .EXAMPLE    
        PS C:\> (gwatch).path= "c:\windows" # установить новую директорию для отслеживания
        PS C:\> gwatch -Path "c:\windows" 
    .EXAMPLE
        PS C:\> gwatch -NotifyFilter "Filename,LastWrite,LastAccess" -Filter "*.*"
    .EXAMPLE
        PS C:\> gwatch -IncludeSubdirectories
        PS C:\> gwatch -IncludeSubdirectories:$false
    .OUTPUTS
       FileSystemWatcher 
    .LINK
        Set-Watch
    .LINK
        Disable-Watch
    .LINK
        Remove-Watch
    .LINK
        Get-Watch 
#>    
param(
    [string]$Path,
    [string]$Filter,
    [switch][Boolean]$IncludeSubdirectories,
    [string]$NotifyFilter
 
)    
    if ($__watcher -eq $null) {
        Write-Host "Объект FileSystemWatcher не определен" -f Red
    } else { 
        
        $type_watcher = $__watcher.gettype()
        $MyInvocation.BoundParameters.GetEnumerator() | %{ 
           $key = $_.Key
           $value = $_.Value
           if ($key -eq "NotifyFilter") {
                $value = [IO.NotifyFilters]$value
           }
           if ($key -eq "IncludeSubdirectories") {
                [Boolean]$value = $value
           }
           $prop = $type_watcher.GetProperty($key)
           $prop.SetValue($__watcher, $value)
        }
        
        return $__watcher
    }
} 
 
 
set-alias rwatch Remove-Watch 
function Remove-Watch() {
<#
    .SYNOPSIS
        Удаляет задание по списку имен, либо все
    .EXAMPLE    
        PS C:\> rwatch Created,Deleted    # удалить задания по именам 
    .EXAMPLE    
        PS C:\> rwatch                    # удалить все задания
    .LINK 
        Set-Watch
#>     
    
    [CmdletBinding()]  
    param(
    [string[]]$names
    )
    if ($names.Length -eq 0) { 
        $names = (get-job).Name
    }
 
    
    
    foreach ($jobname in $names) {
        if ((get-job).Name -ccontains $jobname) {
            Unregister-Event $jobname -Force
            Remove-Job -Name $jobname -Force
            Write-Host "Задание $jobname удалено" -f Green -b DarkGray
        } else {
           Write-Host "Задание $jobname не найдено" -f Yellow -b DarkMagenta
        }
    }
    Set-Variable __watcher -Value $null -Scope Script
}

#requires -version 2
<#
   .SYNOPSIS
        Скрипт показывает время выполнения запроса на каждом контроллере домена
        фактически тест производительности, доступности и времени отклика
#>
 
import-module ActiveDirectory
 
Get-Date
 
$obj=[ADSI]"LDAP://RootDSE"
$domain=$obj.defaultNamingContext # Узнать имя домена в Powershell
$comps=Get-ADComputer -filter * -SearchBase "OU=Domain Controllers,$domain" | Select-Object DNSHostName
 
Write-Host "HostName - IPV4Address - ResponseTime(ms) - ScriptTime(sec)"
 
foreach ($comp in $comps) {
    Write-Host $comp.DNSHostName "- " -NoNewline # Вывод строки без переноса (без символа завершения строки)
 
    # Передать IP Адрес в переменную для дальнейшего использования
    $ipAddress = Test-Connection -ComputerName $comp.DNSHostName -Count 1  | Select -ExpandProperty IPV4Address
    Write-Host $ipAddress.IPAddressToString "- " -NoNewline
 
    # Передать в переменную время отклика компьютера (ping)
    $ipTime = Test-Connection -ComputerName $comp.DNSHostName -Count 1  | Select -ExpandProperty ResponseTime
    Write-Host $ipTime "- " -NoNewline
 
    # Вычислить время работы скрипта
    $watch = [System.Diagnostics.Stopwatch]::StartNew()
    $watch.Start()  # Запуск таймера
 
    # Запрос информации о пользователях в Active Directory
    # в небольших доменах можно расширить фильтр, вместо "A*" использовать "*"
    Get-ADUser -Server $comp.DNSHostName -Filter 'Name -Like "A*"' -Properties * > null
 
    $watch.Stop()   # Остановка таймера
    Write-Host "$($watch.Elapsed.Seconds).$($watch.Elapsed.Milliseconds)"
}

(Get-DomainController -Domain $env:USERDNSDOMAIN).Name

Get-DomainController -Domain $env:USERDNSDOMAIN | ForEach {
 
    $comp = $_.Name
    $ConnectionResult = Test-Connection -ComputerName $comp -Count 1
    $GetADUserResult  = Measure-Command -Expression {Get-ADUser -Server $comp -Filter {Name -Like "A*"} -Properties * | Out-Null}
 
    [PSCustomObject]@{
        HostName           = $comp
        IPV4Address        = $ConnectionResult.IPV4Address.IPAddressToString
        'ResponseTime, ms' = $ConnectionResult.ResponseTime
        'ScriptTime, sec'  = $GetADUserResult.TotalSeconds
    }
 
}

$drivers = Export-WindowsDriver -Online -Destination .\drv
$drivers | ft ProviderName, ClassName, Date, Version -auto | Out-File .\drivers.txt

Get-ChildItem -File ".\" -Recurse -Filter "*.inf" | ForEach-Object { PNPUtil.exe -i -a $_.FullName}

gci * -Recurse:((Get-Date).DayOfWeek -eq 'Thursday')

$FtpPath   = 'ftp://my.ftpurl.ru/docs/'
$LocalPath = 'C:\files\docs\'
$FtpLogin  = 'john77'
$FtpPass   = 'qwe123'
 
Sync-FtpFolder $ftpPath $localPath $FtpLogin $FtpPass

param (
 
    [Parameter(Mandatory)]
    [string]
    $Command,
 
    [Parameter(Mandatory = $false)]
    [int[]]
    $FColor = (50,200,255),
 
    [Parameter(Mandatory = $false)]
    [int[]]
    $TColor = (100,50,255)
)
 
if ($PSEdition -eq 'Core') { $esc = "`e" }
else { $esc = [char] 27 }
 
 
$text = Invoke-Expression $Command | Out-String
$text = $text -split '\n' -replace '\s+$'
 
 
foreach ($s in $text)
{
    if ($s.Length -gt $width) { $width = $s.Length}
}
 
for ($i = 0; $i -lt $text.Length; $i++)
{
    if ($text[$i].Length -lt $width) { $text[$i] += (([string][char]32) * ($width - $text[$i].Length)) }
}
 
$HStepR, $HStepG, $HStepB =
0..2 | ForEach-Object {
 
    [int] (($TColor[$_] - $FColor[$_]) / 2 / $text.Length)
}
 
$WStepR, $WStepG, $WStepB =
0..2 | ForEach-Object {
 
    [int] (($TColor[$_] - $FColor[$_]) / 2 / $width)
}
 
$StartR = $FColor[0]
$StartG = $FColor[1]
$StartB = $FColor[2]
 
for ($i = 0; $i -lt $text.Length; $i++)
{
    $red   = $StartR += $HStepR
    $green = $StartG += $HStepG
    $blue  = $StartB += $HStepB
 
    for ($j = 0; $j -lt $width; $j++)
    {
        $red   += $WStepR 
        $green += $WStepG
        $blue  += $WStepB
 
        [string] $str += "$esc[1;38;2;${red};${green};${blue}m$($text[$i][$j])" 
    }
 
    $str
    $str = $null
}
 
"$esc[0m"

param (
              
    [Parameter (Mandatory = $false)]
    [Switch]
    $WindowSize
)
 
if ($WindowSize)
{
    $buffer = $Host.UI.RawUI.WindowSize
}
 
else
{
    $buffer =
    @{
         'Width'  = $Host.UI.RaeUI.WindowSize.Width
         'Height' = 3000
     } 
}
 
$Host.UI.RawUI.BufferSize = $buffer

    write-host "Включить удаленный рабочий стол" -ForegroundColor Green
    write-host "-------------------------------" -ForegroundColor Green
    (Get-WmiObject Win32_TerminalServiceSetting -Namespace root\cimv2\TerminalServices).SetAllowTsConnections(1,1)
    (Get-WmiObject -Class "Win32_TSGeneralSetting" -Namespace root\cimv2\TerminalServices -Filter "TerminalName='RDP-tcp'").SetUserAuthenticationRequired(0)
    Enable-NetFirewallRule -DisplayGroup "Дистанционное управление рабочим столом"
    write-host "Готово" -ForegroundColor Green
    read-host  "`nНажмите любую клавишу для продолжения"

    write-host "Английская раскладка по умолчанию" -ForegroundColor Green
    write-host "---------------------------------" -ForegroundColor Green
    Set-WinUserLanguageList -LanguageList en-US,ru -Force
    write-host "Готово" -ForegroundColor Green
    read-host  "`nНажмите любую клавишу для продолжения"

    write-host "Включение сетевого обнаружения" -ForegroundColor Green
    write-host "------------------------------" -ForegroundColor Green
    netsh advfirewall firewall set rule group="Обнаружение сети" new enable=Yes
    write-host "Готово" -ForegroundColor Green
    read-host  "`nНажмите любую клавишу для продолжения"

    write-host "Установка Hyper-V" -ForegroundColor Green
    write-host "-----------------" -ForegroundColor Green
    Enable-WindowsOptionalFeature -Online -FeatureName Microsoft-Hyper-V -All
    Enable-WindowsOptionalFeature -Online –FeatureName "TelnetClient"
    write-host "Завершено" -ForegroundColor Green
    read-host  "`nНажмите любую клавишу для продолжения"

    write-host "Отключение OneDrive" -ForegroundColor Green
    write-host "-------------------" -ForegroundColor Green
    Stop-Process -Name OneDrive -Force -ErrorAction SilentlyContinue
    Start-Process -FilePath "$env:SystemRoot\SysWOW64\OneDriveSetup.exe" -ArgumentList "/uninstall" -Wait
    Stop-Process -Name explorer
    Remove-ItemProperty -Path HKCU:\Environment -Name OneDrive -Force -ErrorAction SilentlyContinue
    Remove-Item -Path "$env:ProgramData\Microsoft OneDrive" -Recurse -Force -ErrorAction SilentlyContinue
    Unregister-ScheduledTask -TaskName *OneDrive* -Confirm:$false
    IF ((Get-ChildItem -Path $env:USERPROFILE\OneDrive -ErrorAction SilentlyContinue | Measure-Object).Count -eq 0)
    {
        Remove-Item -Path $env:USERPROFILE\OneDrive -Recurse -Force -ErrorAction SilentlyContinue
    }
    else
    {
        Write-Error "$env:USERPROFILE\OneDrive folder is not empty"
    }
    Wait-Process -Name OneDriveSetup -ErrorAction SilentlyContinue
    Remove-Item -Path $env:LOCALAPPDATA\Microsoft\OneDrive -Recurse -Force -ErrorAction SilentlyContinue
    $Error.RemoveAt(0)
    write-host "Готово" -ForegroundColor Green
    read-host  "`nНажмите любую клавишу для продолжения"

    write-host "Удаление стандартных приложений по списку:" -ForegroundColor Green
    write-host "------------------------------------------" -ForegroundColor Green
    Get-AppxPackage Microsoft.Appconnector | Remove-AppxPackage
    Get-AppxPackage Microsoft.SkypeApp | Remove-AppxPackage
    Get-AppxPackage 9E2F88E3.Twitter | Remove-AppxPackage
    Get-AppxPackage Microsoft.ConnectivityStore | Remove-AppxPackage
    Get-AppxPackage Microsoft.Messaging | Remove-AppxPackage
    Get-AppxPackage Microsoft.Getstarted | Remove-AppxPackage
    Get-AppxPackage Microsoft.WindowsPhone | Remove-AppxPackage
    Get-AppxPackage Microsoft.3DBuilder | Remove-AppxPackage
    Get-AppxPackage Microsoft.CommsPhone | Remove-AppxPackage
    Get-AppxPackage Microsoft.BingFinance | Remove-AppxPackage
    Get-AppxPackage Microsoft.MicrosoftSolitaireCollection | Remove-AppxPackage
    Get-AppxPackage Microsoft.BingNews | Remove-AppxPackage
    Get-AppxPackage Microsoft.BingSports | Remove-AppxPackage
    Get-AppxPackage Microsoft.People | Remove-AppxPackage
    Get-AppxPackage Microsoft.WindowsAlarms | Remove-AppxPackage
    Get-AppxPackage Microsoft.MicrosoftOfficeHub | Remove-AppxPackage
    Get-AppxPackage Microsoft.Office.OneNote | Remove-AppxPackage
    Get-AppxPackage Microsoft.Office.Sway | Remove-AppxPackage
    Get-AppxPackage Microsoft.XboxApp | Remove-AppxPackage
    Get-AppxPackage Microsoft.WindowsMaps | Remove-AppxPackage
    Get-AppxPackage Microsoft.BingWeather | Remove-AppxPackage
    Get-AppxPackage Microsoft.ZuneVideo | Remove-AppxPackage
    Get-AppxPackage Microsoft.ZuneMusic | Remove-AppxPackage
    Get-AppxPackage king.com.CandyCrushSodaSaga | Remove-AppxPackage
    write-host "Удаление завершено" -ForegroundColor Green
    read-host  "`nНажмите любую клавишу для продолжения"

    write-host "Установлена часовая зона: Новосибирское стандартное время" -ForegroundColor Green
    Set-TimeZone -Name "Новосибирское стандартное время"
    read-host  "`nНажмите любую клавишу для продолжения"

$hndl = (gps -Id $PID).MainWindowHandle
 
WinApi -re Void ShowWindowAsync($hndl, 2) 
sleep 1
WinApi ShowWindowAsync($hndl, 4)

WinApi -dll 'Shell32.dll' -re Int ShellExecuteW(
    0,
    "runas",
    "notepad.exe",
    "",
    "",
    1
)

$mSpeed = [IntPtr]::Zero
 
WinApi SystemParametersInfo(112, 0, [ref]$mSpeed, 0)
 
$mSpeed

$wHandles = [Collections.Generic.List[IntPtr]]::new()
 
$callBack = {[OutputType([Bool])]Param([IntPtr]$handle,[IntPtr]$p)
    $true
    $wHandles.add($handle)
}
 
WinApi EnumWindows($callBack, [IntPtr]::Zero)
 
$wHandles

$perc  = [int] ($free / ($size / 100) / 22)