How to take screenshot using VBScript

Dim dt
dt=now
set WshShell = CreateObject("WScript.Shell")
WshShell.Run "taskmgr.exe"
WScript.Sleep 2000
WshShell.SendKeys "% x"
Set oWordBasic = CreateObject("Word.Basic")
oWordBasic.SendKeys "{prtsc}"
oWordBasic.AppClose "Microsoft Word"
WScript.Sleep 2000
WshShell.SendKeys "% n"
WshShell.Run("C:\\ScreenShots\\ScreenShots.docx")
WScript.Sleep 1000
WshShell.SendKeys "% x"
WScript.Sleep 1000
WshShell.SendKeys dt
WshShell.SendKeys "^v"
WScript.Sleep 500
WshShell.SendKeys "^s"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 5000
WshShell.Run "taskkill /im winword.exe", , True
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
Set WshShell=Nothing
WScript.Quit