title: Vbscript Printscreen to MSpaint
body: <p>Take a screen shot of the active window.</p>
  
  <pre><code>Set Wshshell=CreateObject("Word.Basic")
  WshShell.sendkeys"%{prtsc}"
  WScript.Sleep 1500
  </code></pre>
  
  <p>Run Mspaint and paste.</p>
  
  <pre><code>set Wshshell = WScript.CreateObject("WScript.Shell")
  Wshshell.Run "mspaint"
  WScript.Sleep 500
  
  WshShell.AppActivate "Paint"
  WScript.Sleep 500
  
  WshShell.sendkeys "^(v)"
  WScript.Sleep 1500
  </code></pre>
  
  <p>Here, the operation for Taking screenshot of active window works Fine..
  Also, it starts with mspaint, but the content is not been pasted in the paint file.</p>