Powershell script to set Bing wallpaper as desktop background

bing.ps1

[CmdletBinding()]
Param (
    [ValidateRange(0, 18)] [int] $idx = 0,
    [ValidateSet("en-US", "en-IN")] [string] $mkt = "en-IN"
)
$url = "http://www.bing.com/HPImageArchive.aspx?format=js&n=1&mkt=$mkt&idx=$idx"
$url = "http://www.bing.com" + (Invoke-RestMethod $url).images[0].url
$file = (Resolve-Path "~\Pictures\BingDesktop\").Path + $url.Split('/')[-1].Split('_')[0] + ".jpg"
if (-NOT (Test-Path $file)) { Invoke-WebRequest $url -OutFile $file }
Set-ItemProperty Wallpaper -Path "HKCU:\Control Panel\Desktop" -Value $file
rundll32.exe user32.dll, UpdatePerUserSystemParameters