Wsustainable

0.2024.324-preview

View/2-ApplySettings.ps1

Function Global:Set-MainWindowSettings{
    Function Set-ValueWsusPool($ItemName, $DisplayName, $NewValue){
        Try{
            $BeforeValue = (Get-ItemProperty $CurrentConfig.Wsus.IisWsusPoolPath -Name $ItemName).Value
            Set-ItemProperty -Path (Get-ItemProperty $CurrentConfig.Wsus.IisWsusPoolPath).PsPath -Name ($ItemName) -Value ($NewValue)
            $AfterValue = (Get-ItemProperty $CurrentConfig.Wsus.IisWsusPoolPath -Name $ItemName).Value
            Write-Verbose "$DisplayName <$ItemName>: (Before: $BeforeValue, Request: $NewValue, After: $AfterValue)"
        }
        Catch{
            Write-Warning "[Set-ValueWsusPool] Failed to apply $DisplayName <$ItemName>: (Before: $BeforeValue, Request: $NewValue)`n$($_.Exception.Message)"
        }

    }
    Function Set-SqlMinimumMemorySize($MinimumMemorySize){
        $SqlQueryPath = (Join-Path $ProgramDataDirectory "Set-SqlMinimumMemorySize.sql")
        (Get-Content (Join-Path (Get-Module Wsustainable).ModuleBase "Assets\Set-SqlMinimumMemorySize.sql.txt") -Encoding UTF8).Replace("{Value}", $MinimumMemorySize) | Out-File $SqlQueryPath -Encoding UTF8
        If ($CurrentConfig.MaintenanceSql.SqlCmdMode -eq "psmodule"){
            Try{
                Invoke-Sqlcmd -ServerInstance "\\.\pipe\Microsoft##WID\tsql\query" -InputFile $SqlQueryPath -Encrypt Optional
            }
            Catch{
                Write-Warning "[Set-ValueWsusPool] Failed to apply SqlMinimumMemorySize by Invoke-Sqlcmd`n$($_.Exception.Message)"
            }
        }
        Else{
            Try{
                $ExitCode = (Start-Process (Get-SqlCmdPath) -ArgumentList "-S $WsusSqlServerName -q ""exit(SELECT @@VERSION)""" -Wait -NoNewWindow -PassThru).ExitCode
                If ($ExitCode -ne -102){
                    Write-Warning "[Set-ValueWsusPool] Failed to apply SqlMinimumMemorySize by SQLCMD.exe $(Get-SqlCmdPath)`nExitcode: $ExitCode"
                }
            }
            Catch{
                Write-Warning "[Set-ValueWsusPool] Failed to apply SqlMinimumMemorySize by SQLCMD.exe $(Get-SqlCmdPath)`n$($_.Exception.Message)"
            }
        }
    }
    Write-Verbose "Checking selected configuration..."

    # Options
    
    # ChooseProducts
    If ($Global:CurrentConfig.ChooseProducts."Windows 11".Configure){
        $Global:CurrentConfig.ChooseVersions."Windows 11" = $Windows11Products | Sort-Object Version -Unique | Select-Object Version, @{Name="arm64";Expression={$_.SelectedArm64}}, @{Name="x64";Expression={$_.SelectedX64}}
    }
    If ($Global:CurrentConfig.ChooseProducts."Windows 10".Configure){
        $Global:CurrentConfig.ChooseVersions."Windows 10" = $Windows10Products | Sort-Object Version -Unique | Select-Object Version, @{Name="arm64";Expression={$_.SelectedArm64}}, @{Name="x64";Expression={$_.SelectedX64}}, @{Name="x86";Expression={$_.SelectedX86}}
    }
    If ($Global:CurrentConfig.ChooseProducts."Visual Studio".Configure){
        $Global:CurrentConfig.ChooseVersions."Visual Studio" = $VisualStudioProducts | Sort-Object Version -Unique | Select-Object Version
    }
    #$Global:CurrentConfig.ChooseProducts."Microsoft Edge".x86 = $MainWindow.FindName("SynWindowsChooseMsEdgeX86CheckBox").IsChecked
    #$Global:CurrentConfig.ChooseProducts."Microsoft Edge".x64 = $MainWindow.FindName("SynWindowsChooseMsEdgeX64CheckBox").IsChecked
    #$Global:CurrentConfig.ChooseProducts."Microsoft Edge".arm64 = $MainWindow.FindName("SynWindowsChooseMsEdgeArm64CheckBox").IsChecked

    # ApproveRule
    #$Global:CurrentConfig.ApproveRule = ($MainWindow.FindName("ApproveRuleList").DataContext | Select-Object "FeatureUpdates", "QualityUpdates", "ApproveWaitDays", "TargetGroupName", "TargetGroupNameDisplayText", "ToStringWithoutTargetGroupName")
    #$MainWindow.FindName("ApproveRuleList").DataContext | ForEach-Object{
    # Write-Verbose "-> $($_.TargetGroupName): [QualityUpdates:$($_.QualityUpdates)], [ApproveWaitDays:$($_.ApproveWaitDays)]"
    #}

    $CurrentConfig | ConvertTo-Json -Depth 10 | Out-File -FilePath (Join-Path $ProgramDataDirectory "Config.json") -Encoding UTF8

    # Schedule
    If ($MainWindow.FindName("EditiingScheduleTriggersExpander").IsExpanded){
        Write-Verbose "EditiingScheduleTriggersCheckBox is checked."
        $Schedule = $MainWindow.FindName("ScheduleTab").DataContext

        $DaysOfWeek = 0
        $WeeksOfMonth = 0

        # Weekly
        If ($Schedule.Sunday){$DaysOfWeek += [MSFT_ScheduledTaskDaysOfWeek]::Sunday}
        If ($Schedule.Monday){$DaysOfWeek += [MSFT_ScheduledTaskDaysOfWeek]::Monday}
        If ($Schedule.Tuesday){$DaysOfWeek += [MSFT_ScheduledTaskDaysOfWeek]::Tuesday}
        If ($Schedule.Wednesday){$DaysOfWeek += [MSFT_ScheduledTaskDaysOfWeek]::Wednesday}
        If ($Schedule.Thursday){$DaysOfWeek += [MSFT_ScheduledTaskDaysOfWeek]::Thursday}
        If ($Schedule.Friday){$DaysOfWeek += [MSFT_ScheduledTaskDaysOfWeek]::Friday}
        If ($Schedule.Saturday){$DaysOfWeek += [MSFT_ScheduledTaskDaysOfWeek]::Saturday}
   
        If ($Schedule.First -and $Schedule.Second -and $Schedule.Third -and $Schedule.Fourth -and $Schedule.Last){
            $Schedule.First = $False
            $Schedule.Second = $False
            $Schedule.Third = $False
            $Schedule.Fourth = $False
            $Schedule.Last = $False

            $Schedule.LoadedWeeksOfMonth = $False
            Write-Verbose "-> switch to weekly mode."
        }
        ElseIf ($Schedule.First -or $Schedule.Second -or $Schedule.Third -or $Schedule.Fourth -or $Schedule.Last){
            # Monthly
            If ($Schedule.First){$WeeksOfMonth += [MSFT_ScheduledTaskWeeksOfMonth]::First}
            If ($Schedule.Second){$WeeksOfMonth += [MSFT_ScheduledTaskWeeksOfMonth]::Second}
            If ($Schedule.Third){$WeeksOfMonth += [MSFT_ScheduledTaskWeeksOfMonth]::Third}
            If ($Schedule.Fourth){$WeeksOfMonth += [MSFT_ScheduledTaskWeeksOfMonth]::Fourth}
            If ($Schedule.Last){$WeeksOfMonth += [MSFT_ScheduledTaskWeeksOfMonth]::Last}

            $Schedule.LoadedWeeksOfMonth = $True
            Write-Verbose ([String]::Format("-> switch to Montyhly mode. First:{0}, Second:{1}, Third:{2}, Fourth:{3}, Last:{4}", $Schedule.First, $Schedule.Second, $Schedule.Third, $Schedule.Fourth, $Schedule.Last))
        }
        Else {
            $Schedule.LoadedWeeksOfMonth = $False
            Write-Verbose "-> switch to weekly mode."
        }

        $ScheduleService = New-Object -ComObject Schedule.Service
        $ScheduleService.Connect()

        $ScheduleTask = $ScheduleService.NewTask(0)
        $ScheduleTask.RegistrationInfo.Description = "Optimize-WsusContents"
        $ScheduleTask.RegistrationInfo.Author = "Wsustainable"
        $ScheduleTask.Settings.Enabled = $True
        #$ScheduleTask.Settings.AllowDemandStart = $True
        $ScheduleTask.Settings.WakeToRun = $True

        $ScheduleTask.Principal.UserId = "System"
        $ScheduleTask.Principal.RunLevel = 1 #TASK_RUNLEVEL_HIGHEST

        $ScheduleTaskAction = $ScheduleTask.Actions.Create(0)
        $ScheduleTaskAction.Path = "%WinDir%\system32\WindowsPowerShell\v1.0\powershell.exe"
        $ScheduleTaskAction.Arguments = ("-ExecutionPolicy ByPass -Command ""Import-Module Wsustainable; Optimize-WsusContents -Config " + "'" + "$(Join-Path $ProgramDataDirectory "Config.json")'""")

        If ($Schedule.LoadedWeeksOfMonth){
            $ScheduleTaskTrigger = $ScheduleTask.Triggers.Create([MSFT_ScheduledTaskTrigger]::MonthlyDayOfWeek)
            $ScheduleTaskTrigger.DaysOfWeek = $DaysOfWeek
            $ScheduleTaskTrigger.MonthsOfYear = 4095
            $ScheduleTaskTrigger.WeeksOfMonth = $WeeksOfMonth
        }
        ElseIf ($Schedule.Sunday -and $Schedule.Monday -and $Schedule.Tuesday -and $Schedule.Wednesday -and $Schedule.Thursday -and $Schedule.Friday -and $Schedule.Saturday){
            $ScheduleTaskTrigger = $ScheduleTask.Triggers.Create([MSFT_ScheduledTaskTrigger]::Daily)
        }
        ElseIf ($Schedule.Sunday -or $Schedule.Monday -or $Schedule.Tuesday -or $Schedule.Wednesday -or $Schedule.Thursday -or $Schedule.Friday -or $Schedule.Saturday){
            $ScheduleTaskTrigger = $ScheduleTask.Triggers.Create([MSFT_ScheduledTaskTrigger]::Weekly)
            $ScheduleTaskTrigger.DaysOfWeek = $DaysOfWeek
        }
        Else{
            $ScheduleTaskTrigger = $ScheduleTask.Triggers.Create([MSFT_ScheduledTaskTrigger]::Daily)
        }
        
        $ScheduleTaskTrigger.StartBoundary = (Get-Date $MainWindow.FindName("WeeklyScheduleDateTimePicker").Value -Format s)
        Write-Verbose "-> Time: $($ScheduleTaskTrigger.StartBoundary)"
        #$ScheduleTaskTrigger.Enabled = $True

        $ScheduleService.GetFolder("\").RegisterTaskDefinition("Optimize-WsusContents", $ScheduleTask, [MSFT_TaskCreation]::CreateOrUpdate,"","",[MSFT_TaskLogonType]::LogonServiceAccount)

        If ($StartTask){
            Start-ScheduledTask -TaskName $TaskName
        }
    }

    Set-SqlMinimumMemorySize -MinimumMemorySize $MainWindow.FindName("SqlMinimumMemoryTextBox").Value

    # Quata
    If ($MainWindow.FindName("ConfigureFileQuotaCheckBox").IsChecked){
        $WsusContentDirectory = (Get-ItemProperty "HKLM:\SOFTWARE\Microsoft\Update Services\Server\Setup").ContentDir
        If (@(Get-FsrmQuota | Where-Object Path -like $WsusContentDirectory)[0] -eq $Null){
            New-FsrmQuota -Path $WsusContentDirectory -Size ([System.UInt64]($MainWindow.FindName("QuotaSizeTextBox").Value * 1073741824))
        }
        Else{
            Set-FsrmQuota -Path $WsusContentDirectory -Size ([System.UInt64]($MainWindow.FindName("QuotaSizeTextBox").Value * 1073741824))
        }
    }

    # IIS
    If (Test-IisWsusPoolPath){
        Write-Verbose "IIS Wsus pool:"
        Set-ValueWsusPool -ItemName "queueLength" -DisplayName $MainWindow.FindName("WsusQueueLengthLabel").Tag -NewValue ([System.Int64]$MainWindow.FindName("WsusQueueLengthTextBox").Value)
        Set-ValueWsusPool -ItemName "cpu.limit" -DisplayName $MainWindow.FindName("WsusCpuLimitLabel").Tag -NewValue ([System.Int64]$MainWindow.FindName("WsusCpuLimitTextBox").Value)
        Set-ValueWsusPool -ItemName "failure.rapidFailProtectionInterval" -DisplayName $MainWindow.FindName("WsusRapidFailProtectionIntervalLabel").Tag -NewValue (New-TimeSpan -Minutes $MainWindow.FindName("WsusRapidFailProtectionIntervalTextBox").Value).ToString()
        Set-ValueWsusPool -ItemName "failure.rapidFailProtectionMaxCrashes" -DisplayName $MainWindow.FindName("WsusRapidFailProtectionMaxCrashesLabel").Tag -NewValue ([System.Int64]$MainWindow.FindName("WsusRapidFailProtectionMaxCrashesTextBox").Value)
        Set-ValueWsusPool -ItemName "recycling.periodicRestart.privateMemory" -DisplayName $MainWindow.FindName("WsusPeriodicRestartPrivateMemoryLabel").Tag -NewValue ([System.Int64]$MainWindow.FindName("WsusPeriodicRestartPrivateMemoryTextBox").Value)
        Set-ValueWsusPool -ItemName "recycling.periodicRestart.memory" -DisplayName $MainWindow.FindName("WsusPeriodicRestartMemoryLabel").Tag -NewValue ([System.Int64]$MainWindow.FindName("WsusPeriodicRestartMemoryTextBox").Value)
    }

}