如何通过vbscript截取屏幕截图？

Question

我需要知道如何通过vbscript截取屏幕截图 我看到了这个功能

Function CaptureScreenShot(ScreenshotPath )  
  'Generate Name of the Image 
  strimgFileName="Img\Img" & Day(Date)& Month(Date) & Year(Date) & Hour(Now) & Minute(Now) & Second(Now) &".jpg"  
  strImgFile= ScreenshotPath & strimgFileName   
  'Capture failure Screen shot 
  Set objPic = Sys.Desktop.Picture()  
  'Save captured Screen shot 
  ExecutionStatus = objPic.SaveToFile(strImgFile)  
  'Return Captured image name
  CaptureScreenShot=".\" & strimgFileName  
End Function  

但它不起作用！ idk为什么有人能给我一个好的代码 拍摄屏幕截图并将其保存在temp dircetory中 全部