lock_scr_photos

' Coded by Velociraptor - 22.04 2016
' www.sordum.net
' Desktop -------------------------------------
Const ssfDESKTOPDIRECTORY = &h10
Set oShell = CreateObject("Shell.Application")
strDesktop = oShell.NameSpace(ssfDESKTOPDIRECTORY).Self.Path
' Environment variables and copy --------------
Dim oFSO, strAppData, objShell
Set objShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
objShell.CurrentDirectory = oFSO.GetParentFolderName(WScript.ScriptFullName)
strAppData=objShell.ExpandEnvironmentStrings("%LOCALAPPDATA%\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets")
oFSO.CopyFolder strAppData , strDesktop &"\sordum.net", True
Set objShell = Nothing
Set oFSO = Nothing
' Extension -----------------------
sVBSPath = strDesktop &"\sordum.net"
with createobject("wscript.shell")
   .currentdirectory = sVBSPath
   .run "%comspec% /c ren *. *.jpg", 0, true
end with
Set objShell = CreateObject("Wscript.Shell")
strPath = "explorer.exe /e," & strDesktop &"\sordum.net"
objShell.Run strPath