Find the current lock screen (Windows Spotlight) wallpaper file name (for v1709 & earlier)

find_curr_spotlight_wallpaper_old.vbs

'Finds current lock screen wallpaper file, copies it to Pictures folder and previews it.
'Ramesh Srinivasan, Winhelponline.com
'Created on 1 Sep, '16
'For Windows 10 v1709 and earlier
Dim WshShell: Set WshShell = Createobject("Wscript.Shell")
Dim objFSO: Set objFSO = Createobject("Scripting.Filesystemobject")
On error resume next
sCurrLSI = WshShell.RegRead ("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Lock Screen\Creative\LandscapeAssetPath")
On error goto 0
sDstFL = WshShell.ExpandEnvironmentStrings( "%USERPROFILE%" )
sDstFL = sDstFl & "\Pictures\" & objFSO.GetFileName(sCurrLSI) & ".jpg"
if objFSO.FileExists(sCurrLSI) then
	objFSO.copyfile sCurrLSI, sDstFL
	WshShell.Run sDstFL
else
	Msgbox "Lock Screen image file doesn't exist in the specified location."
end if