[小ネタ] EC2 Windows Serverの壁紙について

# 最新のモジュール(Ver.1.3.2003040)から処理を一部引用

# Import-WallpaperUtil.ps1
function Import-WallpaperUtil
{
    try 
    {
        $check = [WallpaperUtil]
    }
    catch
    {
        Add-Type -TypeDefinition @"
            using System.Runtime.InteropServices;
            using System;

            namespace WallpaperUtil {

                public static class Helper {
                    private static uint SPI_SETDESKWALLPAPER = 20;
                    private static uint SPI_GETDESKWALLPAPER = 115;
                    private static uint SPIF_UPDATEINIFILE = 0x01;
                    private static uint SPIF_SENDWININICHANGE = 0x02;
                    private static uint MAX_PATH = 1024;

                    public static void SetWallpaper(string src) {
                        PInvoke.SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, src, SPIF_UPDATEINIFILE | SPIF_SENDWININICHANGE);
                    }

                    public static String getWallpaper() {
                        var path = new String('\0', (int)MAX_PATH);
                        PInvoke.SystemParametersInfo(SPI_GETDESKWALLPAPER, MAX_PATH, path, SPIF_UPDATEINIFILE | SPIF_SENDWININICHANGE);
                        path = path.Substring(0, path.IndexOf('\0'));
                        return path;
                    }
                }

                public static class PInvoke {
                    [DllImport("user32.dll", CharSet = CharSet.Auto)]
                    public static extern uint SystemParametersInfo(
                        uint action, uint uParam, string vParam, uint winIni);
                }
            }
"@
    }

# Set-Wallpaper.ps1より引用
function Set-Wallpaper
{
    param (
        [Parameter(Position=0)]
        [switch] $Initial
    )

    if (Test-NanoServer)
    {
        return
    }

    # Import the wallpaper util methods.
    Import-WallpaperUtil

    # ・・・中略・・・

    try
    {
        Add-Type -AssemblyName System.Windows.Forms

        $fontStyle = "Calibri"
        $fontSize = 12

        Write-Log "Rendering instance information on wallpaper"

        $width = [System.Windows.Forms.SystemInformation]::PrimaryMonitorSize.Width
        $height = [System.Windows.Forms.SystemInformation]::PrimaryMonitorSize.Height

        $textfont = New-object System.Drawing.Font($fontStyle, $fontSize, [System.Drawing.FontStyle]::Regular)
        $textBrush = New-Object Drawing.SolidBrush ([System.Drawing.Color]::White)

        $proposedSize = New-Object System.Drawing.Size([int]$width, [int]$height)
        $messageSize = [System.Windows.Forms.TextRenderer]::MeasureText($message, $textfont, $proposedSize)

        if (-not $currentWallpaperPath)
        {
            # Check and create a new wallpaper if no wallpaper is set in current system.
            Write-Log "No wallpaper is set.. Setting wallpaper with custom color"
            $bgrRectangle = New-Object Drawing.Rectangle(0, 0, [int]$width, [int]$height)
            $bgrBrush = New-Object System.Drawing.SolidBrush([System.Drawing.Color]::Navy)
            $bmp = New-object System.Drawing.Bitmap([int]$width, [int]$height)
            $graphics = [System.Drawing.Graphics]::FromImage($bmp)
            $graphics.FillRectangle($bgrBrush, $bgrRectangle)
        }
        else
        {
            # Get the bitmap from the current wallpaper and set the size to be fit in screen.
            Write-Log "Wallpaper found.. Rendering instance information on current wallpaper"
            $srcBmp = [System.Drawing.Bitmap]::FromFile($originalWallpaperPath)
            $bmp = New-Object System.Drawing.Bitmap($srcBmp, $width, $height)
            $graphics = [System.Drawing.Graphics]::FromImage($bmp)
            $srcBmp.Dispose()
        }

        # Set the position and size of the text box with rectangle.
        $rec = New-Object System.Drawing.RectangleF(($width - $messageSize.Width - 20), 30, ($messageSize.Width + 20), $messageSize.Height)
        $graphics.TextRenderingHint = [System.Drawing.Text.TextRenderingHint]::AntiAlias
        $graphics.DrawString($message, $textfont, $textBrush, $rec)

        # Save the new wallpaper in destination defined above.
        $bmp.Save($customWallpaperPath, [System.Drawing.Imaging.ImageFormat]::Jpeg)

        # Finally, set the wallpaper!
        [WallpaperUtil.Helper]::SetWallpaper($customWallpaperPath)

        Write-Log "Successfully rendered instance information on wallpaper"
    }
    catch 
    {
        Write-Log ("Failed to render instance information on wallpaper {0}" -f $_.Exception.Message)
    }
    finally
    {
        if ($graphics)
        {
            $graphics.Dispose()
        }
        if ($bmp)
        {
            $bmp.Dispose()
        }
    }

    # Before finishing the script, complete the log.
    Complete-Log
}