Wallpaer PS script

function Set-Wallpaper {

    param (

        [string]$Path,

        [ValidateSet('Tile', 'Center', 'Stretch', 'Fill', 'Fit', 'Span')]

        [string]$Style = 'Fill'

    )

    begin {

        try {

            Add-Type @"

                using System;

                using System.Runtime.InteropServices;

                using Microsoft.Win32;

                namespace Wallpaper

                {  public enum Style : int

                    {  Tile, Center, Stretch, Fill, Fit, Span, NoChange

                    }

                    public class Setter

                    {

                        public const int SetDesktopWallpaper = 20;

                        public const int UpdateIniFile = 0x01;

                        public const int SendWinIniChange = 0x02;

                        [DllImport( "user32.dll", SetLastError = true, CharSet = CharSet.Auto )]

                        private static extern int SystemParametersInfo ( int uAction, int uParam, string lpvParam, int fuWinIni );

                        public static void SetWallpaper ( string path, Wallpaper.Style style )

                        {

                            SystemParametersInfo( SetDesktopWallpaper, 0, path, UpdateIniFile | SendWinIniChange );

                            RegistryKey key = Registry.CurrentUser.OpenSubKey( "Control Panel\\Desktop", true );

                            switch( style )

                            {

                                case Style.Tile :

                                key.SetValue( @"WallpaperStyle", "0" ) ;

                                key.SetValue( @"TileWallpaper", "1" ) ;

                                break;

                                case Style.Center :

                                key.SetValue( @"WallpaperStyle", "0" ) ;

                                key.SetValue( @"TileWallpaper", "0" ) ;

                                break;

                                case Style.Stretch :

                                key.SetValue( @"WallpaperStyle", "2" ) ;

                                key.SetValue( @"TileWallpaper", "0" ) ;

                                break;

                                case Style.Fill :

                                key.SetValue( @"WallpaperStyle", "10" ) ;

                                key.SetValue( @"TileWallpaper", "0" ) ;

                                break;

                                case Style.Fit :

                                key.SetValue( @"WallpaperStyle", "6" ) ;

                                key.SetValue( @"TileWallpaper", "0" ) ;

                                break;

                                case Style.Span :

                                key.SetValue( @"WallpaperStyle", "22" ) ;

                                key.SetValue( @"TileWallpaper", "0" ) ;

                                break;

                                case Style.NoChange :

                                break;

                            }

                            key.Close();

                        }

                    }

                }

"@

        } catch {}

        $StyleNum = @{

            Tile = 0

            Center = 1

            Stretch = 2

            Fill = 3

            Fit = 4

            Span = 5

        }

    }

    process {

        [Wallpaper.Setter]::SetWallpaper($Path, $StyleNum[$Style])

        sleep -s 5

        [Wallpaper.Setter]::SetWallpaper($Path, $StyleNum[$Style])

    }

}

#App Details

$str_App = 'INWPC000001ENGC1 - Inspire Wallpaper Update'

$str_PackageCode = 'INWPC000001ENGC1'

#Create Log folder

$Str_ProgramData = $env:ProgramData

$Str_LogFolder = "$Str_ProgramData\IntuneWin32Apps"

if(!(Test-Path -Path $Str_LogFolder )){

  New-Item -ItemType directory -Path $Str_LogFolder

}

$str_LogFile = "$Str_LogFolder\IntuneWin32Apps.log"

#Write App

$str_LogEntry = "$(Get-Date) ; $str_App"

Add-Content $str_LogFile $str_LogEntry

#Write Version

$str_LogEntry = "$(Get-Date) ; Version 1"

Add-Content $str_LogFile $str_LogEntry

#Write Start to Log File

$str_LogEntry = "$(Get-Date) ; Install Starting"

Add-Content $str_LogFile $str_LogEntry

# Setting up Wallaper

$StrLAppdata = $env:LOCALAPPDATA

$str_folder = split-path $script:MyInvocation.MyCommand.Path

$Str_Wallpaper = "$StrLAppdata\Unilever"

if(!(Test-Path -Path $Str_Wallpaper )){

  New-Item -ItemType directory -Path $Str_Wallpaper

}

$Source_path=Join-Path -Path $str_folder -ChildPath "\C19"

$Des_Path=Join-path -Path $StrLAppdata -ChildPath "\Unilever\"

Copy-item $Source_Path -Destination $Des_Path -Force -Recurse -Verbose

#Checking the screen resolution

Add-Type -AssemblyName System.Windows.Forms

$Resolution= "{0}x{1}" -f [System.Windows.Forms.SystemInformation]::PrimaryMonitorSize.Width,[System.Windows.Forms.SystemInformation]::PrimaryMonitorSize.Height

write-host $Resolution

#Write Log

$str_LogEntry = "$(Get-Date) ; ScreenResolution is: $Resolution"

Add-Content $str_LogFile $str_LogEntry

#Setting wallpaper based on screen resolution

if ($Resolution  -eq '1920x1080')

{ start-process (Set-WallPaper -Path "$StrLAppdata\Unilever\C19\Wallpaper1.jpg" -Style Fill)

  $str_LogEntry = "$(Get-Date) ; Wallpaper Set: $StrLAppdata\Unilever\C19\Wallpaper1.jpg"

  Add-Content $str_LogFile $str_LogEntry

}

elseif ($Resolution  -eq '2133x1600')

{ start-process (Set-WallPaper -Path "$StrLAppdata\Unilever\C19\Wallpaper2.jpg" -Style Fill)

  $str_LogEntry = "$(Get-Date) ; Wallpaper Set: $StrLAppdata\Unilever\C19\Wallpaper2.jpg"

  Add-Content $str_LogFile $str_LogEntry

}

elseif ($Resolution  -eq '4000x2250')

{ start-process (Set-WallPaper -Path "$StrLAppdata\Unilever\C19\Wallpaper3.jpg" -Style Fill)

  $str_LogEntry = "$(Get-Date) ; Wallpaper Set: $StrLAppdata\Unilever\C19\Wallpaper3.jpg"

  Add-Content $str_LogFile $str_LogEntry

}

else

{ start-process (Set-WallPaper -Path "$StrLAppdata\Unilever\C19\Wallpaper2.jpg" -Style Fill)

  $str_LogEntry = "$(Get-Date) ; Default Wallpaper Set: $StrLAppdata\Unilever\C19\Wallpaper2.jpg"

  Add-Content $str_LogFile $str_LogEntry

}

if (!(Test-Path -Path "HKCU:\SOFTWARE\Unilever\Packages")){

New-Item -Path "HKCU:\SOFTWARE\Unilever\Packages" -Force

}

New-ItemProperty "HKCU:\SOFTWARE\Unilever\Packages" -Name "INWPC000001ENGC1_Installed" -Value "Intune_WP_Installed" -PropertyType "String" -Force | Out-Null

#Close Log File

$str_LogEntry = "-----------------------"

Add-Content $str_LogFile $str_LogEntry