Const iNormalFocus = 1
Set objShell = WScript.CreateObject('WScript.Shell')
objShell.Run 'rundll32 ' & chr(34) & '%ProgramFiles(x86)%Windows Photo ViewerPhotoViewer.dll' & chr(34) & ',ImageView_Edit c:\screencap.jpg',iNormalFocus
Wscript.Sleep 300
objShell.AppActivate 'Console1'
Wscript.Sleep 100
objShell.SendKeys '^p'
Wscript.Sleep 900
objShell.SendKeys '%F'
Wscript.Sleep 900
objShell.SendKeys '%P'
Wscript.Sleep 10000
objShell.SendKeys 'X'