Codigo Para Copiar o Capturar Pantalla Con Vbscript

Ahora vengo con algo nuevo algo que creía que no se podía y que mucho creo que pensaban lo mismo, pero de tanto buscar y buscar por fin di con el clavo.

Se trata de copiar o capturar la pantalla de nuestro escritorio utilizando vbscript cosa que creía imposible, para después aguardarla en un archivo de word.

Sin mas que decir les dejare el código y al final el link de mi vídeo donde demuestro el uso de el.

option explicit
dim excel,word,doc   ''declaramos las variables

set excel=createobject("excel.application")  '' creamos el objecto excel
set word=createobject("word.application")    ''creamos el objecto word

excel.Application.SendKeys ("%{1068}") ''se pulsa la tecla para capturar pantalla y se copea al porta papeles
msgbox "pantalla capturada"  '' mensaje de pantalla capturada

Set doc = word.Documents.Add() '' se crea el documento de word
word.Selection.Paste  '' pega lo que se encuentra en el porta papeles
doc.saveas "C:\Users\Flamer\Desktop\img.doc" '' guarda el documento de word creado
word.quit '' cierra el objecto word

Link de mi vídeo: https://www.youtube.com/watch?v=Ho4lJgV6ugA

Saludos Flamer y creo que vbscript cada día me sorprende mas