dim y, o 
set o = createObject("WScript.shell")
o.sendkeys "{PRTSC}"
o.run "mspaint.exe"
wscript.sleep 100
o.sendkeys "+{PRTSC}"