С помощю:
nircmd.exe
http://soft.oszone.net/program/7092/NirCmd/
Код:
@Echo off
@if "%1" neq "*" (
mshta vbscript:Execute("CreateObject(""WScript.Shell"").Run """"""%~f0"""" *"",0,False:Close()"^)
exit/b
)
ping -n 2 localhost>Nul
Start %Windir%\nircmd.exe savescreenshot Screenshot.png
Exit /b