Kod: Tümünü seç

# ============================================================
# Service Management Tool v2.1
# Author       : TRWE_2012
# Development  : TRWE_2012
# System       : Windows 11 - Service Control Manager
# ============================================================

# ------------------------------------------------------------
# FUNCTIONS
# ------------------------------------------------------------

function Exit-Script {
    param([int]$Code = 0)
    Write-Host "Exiting..." -ForegroundColor Yellow
    exit $Code
}

function Show-Header {
    Clear-Host
    Write-Host "============================================" -ForegroundColor Blue
    Write-Host "  Service Management Tool v2.1             " -ForegroundColor Blue
    Write-Host "============================================" -ForegroundColor Blue
    Write-Host ""
}

function Show-ServiceStatus {
    param([string]$ServiceName)

    Write-Host "--- Service Information ---" -ForegroundColor Blue

    $svc = Get-Service -Name $ServiceName -ErrorAction SilentlyContinue
    if (-not $svc) {
        Write-Host "Error: Service not found -> $ServiceName" -ForegroundColor Red
        return
    }

    Write-Host "Name           : $($svc.Name)"
    Write-Host "Display Name   : $($svc.DisplayName)"

    Write-Host -NoNewline "Running State  : "
    if ($svc.Status -eq 'Running') {
        Write-Host "Running" -ForegroundColor Green
    } else {
        Write-Host "$($svc.Status)" -ForegroundColor Red
    }

    Write-Host -NoNewline "Startup Type   : "
    switch ($svc.StartType) {
        'Automatic' { Write-Host "Automatic" -ForegroundColor Green }
        'Manual'    { Write-Host "Manual" -ForegroundColor Yellow }
        'Disabled'  { Write-Host "Disabled" -ForegroundColor Red }
        default     { Write-Host "$($svc.StartType)" -ForegroundColor Yellow }
    }
    Write-Host ""
}

function Show-ServiceList {
    Show-Header
    Write-Host "--- Services on System ---" -ForegroundColor Blue
    Write-Host ""

    $allServices = Get-Service
    $totalCount     = $allServices.Count
    $runningCount   = ($allServices | Where-Object { $_.Status -eq 'Running' }).Count
    $stoppedCount   = ($allServices | Where-Object { $_.Status -eq 'Stopped' }).Count
    $automaticCount = ($allServices | Where-Object { $_.StartType -eq 'Automatic' }).Count
    $manualCount    = ($allServices | Where-Object { $_.StartType -eq 'Manual' }).Count
    $disabledCount  = ($allServices | Where-Object { $_.StartType -eq 'Disabled' }).Count

    Write-Host "--- Overview ---" -ForegroundColor Blue
    Write-Host "Total services       : $totalCount"
    Write-Host -NoNewline "Running              : "
    Write-Host "$runningCount" -ForegroundColor Green
    Write-Host -NoNewline "Stopped              : "
    Write-Host "$stoppedCount" -ForegroundColor Red
    Write-Host -NoNewline "Automatic startup    : "
    Write-Host "$automaticCount" -ForegroundColor Green
    Write-Host -NoNewline "Manual startup       : "
    Write-Host "$manualCount" -ForegroundColor Yellow
    Write-Host -NoNewline "Disabled startup     : "
    Write-Host "$disabledCount" -ForegroundColor Red
    Write-Host ""

    Write-Host "Select a filter:" -ForegroundColor Blue
    Write-Host "  1 - All services"
    Write-Host "  2 - Running services only"
    Write-Host "  3 - Stopped services only"
    Write-Host "  4 - Automatic startup only"
    Write-Host "  5 - Disabled startup only"
    Write-Host "  6 - Manual startup only"
    Write-Host "  7 - Back to menu"
    Write-Host ""
    $filterChoice = Read-Host "Your choice [1-7]"

    Write-Host ""
    switch ($filterChoice) {
        '1' {
            Write-Host "Listing all services..." -ForegroundColor Yellow
            Write-Host ""
            $result = Get-Service | Sort-Object Name
            $result | Format-Table Name, DisplayName, Status, StartType -AutoSize | Out-Host
            Write-Host "Total count : $($result.Count)" -ForegroundColor Blue
        }
        '2' {
            Write-Host "Running services:" -ForegroundColor Green
            Write-Host ""
            $result = Get-Service | Where-Object { $_.Status -eq 'Running' } | Sort-Object Name
            $result | Format-Table Name, DisplayName, Status, StartType -AutoSize | Out-Host
            Write-Host "Total count : $($result.Count)" -ForegroundColor Blue
        }
        '3' {
            Write-Host "Stopped services:" -ForegroundColor Red
            Write-Host ""
            $result = Get-Service | Where-Object { $_.Status -eq 'Stopped' } | Sort-Object Name
            $result | Format-Table Name, DisplayName, Status, StartType -AutoSize | Out-Host
            Write-Host "Total count : $($result.Count)" -ForegroundColor Blue
        }
        '4' {
            Write-Host "Services with Automatic startup:" -ForegroundColor Green
            Write-Host ""
            $result = Get-Service | Where-Object { $_.StartType -eq 'Automatic' } | Sort-Object Name
            $result | Format-Table Name, DisplayName, Status, StartType -AutoSize | Out-Host
            Write-Host "Total count : $($result.Count)" -ForegroundColor Blue
        }
        '5' {
            Write-Host "Services with Disabled startup:" -ForegroundColor Yellow
            Write-Host ""
            $result = Get-Service | Where-Object { $_.StartType -eq 'Disabled' } | Sort-Object Name
            $result | Format-Table Name, DisplayName, Status, StartType -AutoSize | Out-Host
            Write-Host "Total count : $($result.Count)" -ForegroundColor Blue
        }
        '6' {
            Write-Host "Services with Manual startup:" -ForegroundColor Yellow
            Write-Host ""
            $result = Get-Service | Where-Object { $_.StartType -eq 'Manual' } | Sort-Object Name
            $result | Format-Table Name, DisplayName, Status, StartType -AutoSize | Out-Host
            Write-Host "Total count : $($result.Count)" -ForegroundColor Blue
        }
        '7' { return }
        default {
            Write-Host "Invalid selection." -ForegroundColor Red
        }
    }
    Write-Host ""
    Read-Host "Press Enter to continue" | Out-Null
}

# ------------------------------------------------------------
# CHECKS
# ------------------------------------------------------------

# Administrator privilege check
$currentIdentity = [Security.Principal.WindowsIdentity]::GetCurrent()
$currentPrincipal = New-Object Security.Principal.WindowsPrincipal($currentIdentity)
$isAdmin = $currentPrincipal.IsInRole([Security.Principal.WindowsBuiltInRole]::Administrator)

if (-not $isAdmin) {
    Write-Host "Warning: This script is not running as Administrator." -ForegroundColor Yellow
    Write-Host "Some operations (start type changes, service start/stop) will fail without elevation." -ForegroundColor Yellow
    Write-Host ""
}

# Service Control Manager availability check (Get-Service cmdlet)
if (-not (Get-Command Get-Service -ErrorAction SilentlyContinue)) {
    Write-Host "Error: Get-Service cmdlet is not available on this system." -ForegroundColor Red
    Exit-Script 1
}

# ------------------------------------------------------------
# MAIN MENU
# ------------------------------------------------------------

while ($true) {
    Show-Header
    Write-Host "--- Main Menu ---" -ForegroundColor Blue
    Write-Host "  1 - List Services"
    Write-Host "  2 - Manage Service (Automatic/Manual/Disabled)"
    Write-Host "  3 - Exit"
    Write-Host ""
    $mainChoice = Read-Host "Your choice [1-3]"

    switch ($mainChoice) {
        '1' {
            Show-ServiceList
        }
        '2' {
            Show-Header

            $serviceName = Read-Host "Enter service name (example: Spooler)"

            if ([string]::IsNullOrWhiteSpace($serviceName)) {
                Write-Host "Empty input. Operation cancelled." -ForegroundColor Yellow
                Start-Sleep -Seconds 1
                continue
            }

            $service = Get-Service -Name $serviceName -ErrorAction SilentlyContinue
            if (-not $service) {
                Write-Host "Error: Service not found -> $serviceName" -ForegroundColor Red
                Read-Host "Press Enter to continue" | Out-Null
                continue
            }

            Write-Host ""
            Show-ServiceStatus -ServiceName $serviceName

            Write-Host "--- Select Startup Type ---" -ForegroundColor Blue
            Write-Host "  1 - Automatic  : Starts automatically at system boot"
            Write-Host "  2 - Manual     : Does not start automatically at boot"
            Write-Host "  3 - Disabled   : Fully locked, cannot be started"
            Write-Host "  4 - Re-enable  : Restore to Manual after Disabled"
            Write-Host "  5 - Back"
            Write-Host ""
            $actionChoice = Read-Host "Your choice [1-5]"

            $startType = $null
            switch ($actionChoice) {
                '1' { $startType = 'Automatic' }
                '2' { $startType = 'Manual' }
                '3' { $startType = 'Disabled' }
                '4' { $startType = 'Manual' }
                '5' { continue }
                default {
                    Write-Host "Invalid selection." -ForegroundColor Red
                    Read-Host "Press Enter to continue" | Out-Null
                    continue
                }
            }

            Write-Host ""
            Write-Host "Action  : Set startup type to $startType" -ForegroundColor Yellow
            Write-Host "Service : $serviceName" -ForegroundColor Yellow
            Write-Host ""
            $confirm = Read-Host "Proceed? (y/n)"

            if ($confirm -ne 'y' -and $confirm -ne 'Y') {
                Write-Host "Operation cancelled." -ForegroundColor Yellow
                Read-Host "Press Enter to continue" | Out-Null
                continue
            }

            Write-Host ""
            try {
                Set-Service -Name $serviceName -StartupType $startType -ErrorAction Stop

                if ($startType -eq 'Disabled' -and $service.Status -eq 'Running') {
                    Stop-Service -Name $serviceName -ErrorAction SilentlyContinue
                }

                Write-Host "Operation completed successfully." -ForegroundColor Green
                Write-Host ""
                Show-ServiceStatus -ServiceName $serviceName
            } catch {
                Write-Host "Error: Operation failed -> $($_.Exception.Message)" -ForegroundColor Red
            }
            Read-Host "Press Enter to continue" | Out-Null
        }
        '3' {
            Exit-Script 0
        }
        default {
            Write-Host "Invalid selection." -ForegroundColor Red
            Start-Sleep -Seconds 1
        }
    }
}

Read-Host "`nPress ENTER to exit."

Kod: Tümünü seç

# ============================================================
# Directory Inventory Lister (Recursive Browser)
# System : Windows 11
# ============================================================

function Show-Header {
    Clear-Host
    Write-Host "============================================" -ForegroundColor Blue
    Write-Host "  Directory Inventory Lister                " -ForegroundColor Blue
    Write-Host "============================================" -ForegroundColor Blue
    Write-Host ""
}

function Remove-TargetItem {
    param([System.IO.FileSystemInfo]$Item)

    if (-not (Test-Path -LiteralPath $Item.FullName)) {
        Write-Host "This item was already deleted or no longer exists." -ForegroundColor Yellow
        return
    }

    $confirmDelete = Read-Host "Delete '$($Item.Name)'? (yes/no)"
    if ($confirmDelete -match '^(y|yes)$') {
        try {
            if ($Item.PSIsContainer) {
                Remove-Item -LiteralPath $Item.FullName -Recurse -Force -ErrorAction Stop
            } else {
                Remove-Item -LiteralPath $Item.FullName -Force -ErrorAction Stop
            }
            Write-Host "'$($Item.Name)' permanently deleted." -ForegroundColor Green
        } catch {
            Write-Host "Error: Could not delete item -> $($_.Exception.Message)" -ForegroundColor Red
        }
    } else {
        Write-Host "Deletion cancelled." -ForegroundColor Yellow
    }
}

function Invoke-DirectoryBrowser {
    param([string]$Path)

    while ($true) {
        Show-Header
        Write-Host "Path: $Path" -ForegroundColor Blue
        Write-Host ""

        if (-not (Test-Path -LiteralPath $Path -PathType Container)) {
            Write-Host "Error: Directory no longer exists -> $Path" -ForegroundColor Red
            Read-Host "Press Enter to go back" | Out-Null
            return
        }

        $items = @(Get-ChildItem -LiteralPath $Path -Force)

        Write-Host "--- Items in Directory (all types) ---" -ForegroundColor Blue
        if ($items.Count -eq 0) {
            Write-Host "No items found in this directory." -ForegroundColor Yellow
        } else {
            for ($i = 0; $i -lt $items.Count; $i++) {
                $typeLabel = if ($items[$i].PSIsContainer) { "[DIR]" } else { "[FILE]" }
                Write-Host ("{0,3} - {1,-6} {2}" -f ($i + 1), $typeLabel, $items[$i].Name)
            }
            Write-Host ""
            Write-Host "Total items: $($items.Count)" -ForegroundColor Blue
        }

        $subDirs = @($items | Where-Object { $_.PSIsContainer })
        Write-Host ""
        Write-Host "--- Subdirectories ---" -ForegroundColor Blue
        if ($subDirs.Count -eq 0) {
            Write-Host "No subdirectories found." -ForegroundColor Yellow
        } else {
            for ($i = 0; $i -lt $subDirs.Count; $i++) {
                Write-Host ("{0,3} - {1}" -f ($i + 1), $subDirs[$i].Name)
            }
            Write-Host "Total subdirectories: $($subDirs.Count)" -ForegroundColor Blue
        }

        Write-Host ""
        if ($items.Count -eq 0) {
            Read-Host "Press Enter to go back" | Out-Null
            return
        }

        $numberInput = Read-Host "Enter the sequence number of the object (or press Enter to go back)"

        if ([string]::IsNullOrWhiteSpace($numberInput)) {
            return
        }

        $selectedIndex = 0
        if (-not [int]::TryParse($numberInput, [ref]$selectedIndex) -or $selectedIndex -lt 1 -or $selectedIndex -gt $items.Count) {
            Write-Host "Invalid number." -ForegroundColor Red
            Read-Host "Press Enter to continue" | Out-Null
            continue
        }

        $selectedItem = $items[$selectedIndex - 1]

        if ($selectedItem.PSIsContainer) {
            Write-Host ""
            Write-Host "'$($selectedItem.Name)' is a directory." -ForegroundColor Blue
            Write-Host "  1 - View contents (browse inside)"
            Write-Host "  2 - Delete directly (including all contents)"
            Write-Host "  3 - Cancel"
            $subChoice = Read-Host "Your choice [1-3]"

            switch ($subChoice) {
                '1' { Invoke-DirectoryBrowser -Path $selectedItem.FullName }
                '2' { Remove-TargetItem -Item $selectedItem; Read-Host "Press Enter to continue" | Out-Null }
                default { Write-Host "Cancelled." -ForegroundColor Yellow; Start-Sleep -Seconds 1 }
            }
        } else {
            Remove-TargetItem -Item $selectedItem
            Read-Host "Press Enter to continue" | Out-Null
        }
    }
}

# --- GET TARGET DIRECTORY FROM USER ---
Show-Header
$targetDir = Read-Host "Enter the full path of the directory to inspect"

if (-not (Test-Path -LiteralPath $targetDir -PathType Container)) {
    Write-Host "Error: Directory not found -> $targetDir" -ForegroundColor Red
    Read-Host "`nPress ENTER to exit."
    exit 1
}

Invoke-DirectoryBrowser -Path $targetDir

Read-Host "`nPress ENTER to exit."

Kod: Tümünü seç

# ============================================================
# PowerShell Script Shortcut Creator
# System : Windows 11
# ============================================================

function Show-Header {
    Clear-Host
    Write-Host "============================================" -ForegroundColor Blue
    Write-Host "  PowerShell Script Shortcut Creator        " -ForegroundColor Blue
    Write-Host "============================================" -ForegroundColor Blue
    Write-Host ""
}

Show-Header

# --- GET SCRIPT PATH FROM USER ---
$scriptPath = Read-Host "Enter the full path of the .ps1 script"

if (-not (Test-Path -LiteralPath $scriptPath -PathType Leaf)) {
    Write-Host "Error: File not found -> $scriptPath" -ForegroundColor Red
    Read-Host "`nPress ENTER to exit."
    exit 1
}

if ([System.IO.Path]::GetExtension($scriptPath) -ne ".ps1") {
    Write-Host "Error: The specified file is not a .ps1 script." -ForegroundColor Red
    Read-Host "`nPress ENTER to exit."
    exit 1
}

$resolvedPath = (Resolve-Path -LiteralPath $scriptPath).Path
$scriptName = [System.IO.Path]::GetFileNameWithoutExtension($resolvedPath)

# --- ASK WHETHER TO KEEP THE WINDOW OPEN AFTER THE SCRIPT ENDS ---
$keepOpenInput = Read-Host "Keep the PowerShell window open after the script finishes? (yes/no)"
$noExitFlag = if ($keepOpenInput -match '^(y|yes)$') { "-NoExit " } else { "" }

# --- DETERMINE DESKTOP PATH (locale-independent) ---
$desktopPath = [Environment]::GetFolderPath("Desktop")
$shortcutPath = Join-Path $desktopPath "$scriptName.lnk"

if (Test-Path -LiteralPath $shortcutPath) {
    $overwrite = Read-Host "A shortcut named '$scriptName.lnk' already exists on the Desktop. Overwrite it? (yes/no)"
    if ($overwrite -notmatch '^(y|yes)$') {
        Write-Host "Operation cancelled." -ForegroundColor Yellow
        Read-Host "`nPress ENTER to exit."
        exit 0
    }
}

# --- CREATE THE SHORTCUT ---
try {
    $wshShell = New-Object -ComObject WScript.Shell
    $shortcut = $wshShell.CreateShortcut($shortcutPath)

    $shortcut.TargetPath = "$env:SystemRoot\System32\WindowsPowerShell\v1.0\powershell.exe"
    $shortcut.Arguments = "$($noExitFlag)-ExecutionPolicy Bypass -File `"$resolvedPath`""
    $shortcut.WorkingDirectory = [System.IO.Path]::GetDirectoryName($resolvedPath)
    $shortcut.IconLocation = "$env:SystemRoot\System32\WindowsPowerShell\v1.0\powershell.exe,0"
    $shortcut.Description = "Shortcut for $scriptName.ps1"
    $shortcut.Save()

    Write-Host ""
    Write-Host "Shortcut created successfully:" -ForegroundColor Green
    Write-Host $shortcutPath -ForegroundColor Green
} catch {
    Write-Host ""
    Write-Host "Error: Could not create shortcut -> $($_.Exception.Message)" -ForegroundColor Red
}

Read-Host "`nPress ENTER to exit."