title: how to take screenshot by vbscript?
body: <p>i need know how to take screenshot by vbscript
  i see this function</p>
  
  <pre><code>Function CaptureScreenShot(ScreenshotPath )  
    'Generate Name of the Image 
    strimgFileName="Img\Img" &amp; Day(Date)&amp; Month(Date) &amp; Year(Date) &amp; Hour(Now) &amp; Minute(Now) &amp; Second(Now) &amp;".jpg"  
    strImgFile= ScreenshotPath &amp; strimgFileName   
    'Capture failure Screen shot 
    Set objPic = Sys.Desktop.Picture()  
    'Save captured Screen shot 
    ExecutionStatus = objPic.SaveToFile(strImgFile)  
    'Return Captured image name
    CaptureScreenShot=".\" &amp; strimgFileName  
  End Function  
  </code></pre>
  
  <p>but it's not work! idk why can anyone give me a good codes
  to take screen shot and save it in temp dircetory
  thx all</p>