SDstFL = sDstFl & "\Pictures\" & objFSO.GetFileName(sCurrLSI) & ".jpg" SDstFL = WshShell.ExpandEnvironmentStrings( "%USERPROFILE%" ) SCurrLSI = WshShell.RegRead ("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Lock Screen\Creative\LandscapeAssetPath") 'Finds current lock screen wallpaper file, copies it to Pictures folder and previews it.ĭim WshShell: Set WshShell = Createobject("Wscript.Shell")ĭim objFSO: Set objFSO = Createobject("Scripting.Filesystemobject") 'File: find_curr_spotlight_wallpaper_old.vbs
Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") Set WMIUser = GetObject("winmgmts:!\\" & "." & "\root\cimv2") UserName = Mid(UserName, InStr(UserName, "\") + 1)ĭomainName = CreateObject("WScript.Network").UserDomain If InStr(LCase(GetOS), "windows 10") = 0 Then WScript.QuitĭomainName = Mid(UserName, 1, InStr(UserName, "\") - 1) 'Created on 14-May '19 - (c) Ramesh Srinivasan
PHOTO FOLDER LOCK WINDOWS 10
'For Windows 10 build 17134 (v1803) and higher. 'Find current lock screen wallpaper file in Windows 10 To find and open the current lock screen (Windows Spotlight image) wallpaper, here is a VBScript. Using Script to Find the Current Lock Screen Image File You can copy it to your Desktop or Pictures folder, add the. That command opens the Assets folder with the current Windows 10 Spotlight wallpaper file already selected.
Of course, replace with the actual Lock Screen image path you copied from the Registry Editor, and press ENTER Right-click Start, click Run, and then type this: explorer /select,.Double-click the LandscapeAssetPath value and copy the data to the clipboard.These two values hold the file name of the current Windows Spotlight wallpaper image. PortraitAssetPath image applies to mobile devices. The value data for LandscapeAssetPath is what you need, if using a computer.
0 kommentar(er)
