VBScript {PRTSC} geht nicht?

[wowa]

Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 200
Wshshell.SendKeys "{PRTSC}"
WScript.Sleep 3000
WshShell.Run "msPaint"
WScript.Sleep 200
Wshshell.SendKeys ("^v")
WScript.Sleep 200
Wshshell.SendKeys ("%{F4}")
Wshshell.SendKeys ("~")
WScript.Sleep 200
Wshshell.SendKeys ("C:\Users\xxxx\AppData\Local\Temp\bild.jpg")
Wshshell.SendKeys ("~")
WScript.Sleep 20
Wshshell.SendKeys ("{LEFT}")
Wshshell.SendKeys ("~") 

weiß einer vielleicht wo hier der Fehler ist oder geht die {PRTSC} Funktion nicht bei win 7
oder gibt es noch eine bessere Möglichkeit ein Bild vom Desktop mit einer .vbs speichern zu lasen?
Danke