How to take screenshot using VBScript?

'**************************************************

'Taking Screenshot using word object

Set oWordBasic = CreateObject("Word.Basic")

oWordBasic.SendKeys "{prtsc}" 

oWordBasic.AppClose "Microsoft Word"

Set oWordBasic = Nothing

WScript.Sleep 2000

'Opening Paint Application

set WshShell = CreateObject("WScript.Shell")

WshShell.Run "mspaint"

WScript.Sleep 2000

'Some times Paint Application is not activating properly

'To activate MS Paint properly i have minimized and restored the opened windows

set shl=createobject("shell.application")  

shl.MinimizeAll  

WScript.Sleep 1000

shl.UndoMinimizeAll

Set shl=Nothing

WScript.Sleep 1000

'Activating Paint Application

WshShell.AppActivate "untitled - Paint"

WScript.Sleep 1000

'Paste the captured Screenshot

WshShell.SendKeys "^v"

WScript.Sleep 500

'Save Screenshot

WshShell.SendKeys "^s"

WScript.Sleep 500

WshShell.SendKeys "c:\test.bmp"

WScript.Sleep 500

WshShell.SendKeys "{ENTER}"

'Release Objects

Set WshShell=Nothing

WScript.Quit

'************************************************** 

I got some issues when i have activated using WshShell.AppActivate "untitled - Paint".
Then I tried minimizing and Restoring the opened windows using shell.Application and its working fine.
If WshShell.AppActivate "untitled - Paint" statement is working good for you then remove the maximize, minimize script block to save time.