'Finds current lock screen wallpaper file, copies it to Pictures folder and Previews it.
'Ramesh Srinivasan, Winhelponline.com, WinNote.RU
'Created on Sep 1, 2016
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