' Take a screenshot (capture window) and save it to disk
' using Vbsedit's free Toolkit
Set toolkit = CreateObject("Vbsedit.Toolkit")
For Each window In toolkit.TopLevelWindows
If InStr(1,window.WindowTitle,"vbsedit",vbTextCompare)>0 Then
window.Screenshot "c:\vbsedit.png"
WScript.Quit
End If
Next