vbscript code to take snapshot of current screen and save into a folder.

From a previous solution
https://www.experts-exchange.com/questions/26944159/VBSCRIPT-that-captures-a-screenshot-and-saves-to-a-jpeg.html

@echo off
REM NirCmd.exe is assumed to be in same folder as this batch file.

set CurrDir=%~dp0
set CurrDir=%CurrDir:~0,-1%

if exist "%CurrDir%\Desktop.scf" del "%CurrDir%\Desktop.scf" > nul

echo [Shell]>"%CurrDir%\Desktop.scf"
echo Command=2 >>"%CurrDir%\Desktop.scf"
REM echo IconFile=explorer.exe,3 >>"%CurrDir%\Desktop.scf"
echo [Taskbar]>>"%CurrDir%\Desktop.scf"
echo Command=ToggleDesktop>>"%CurrDir%\Desktop.scf"

"%CurrDir%\Desktop.scf"

"%CurrDir%\nircmd.exe" cmdwait 4000 savescreenshot "%CurrDir%\ScreenShot.jpg"

"%CurrDir%\Desktop.scf"

if exist "%CurrDir%\Desktop.scf" del "%CurrDir%\Desktop.scf" > nul

Select allOpen in new window

i need vbscript coding.

Same idea with nircmd.exe but in VBS:

http://www.visualbasicscript.com/tm.aspx?high=&m=103621&mpage=1#103623

Just so you know, there is no capability in just VBS script to do this, any VBS solution will be dependent on using other programs or utilities on the system - I've been down this path before...

This can be done in Powershell though, if that was an option?

~bp

thank you