Language="VBSCRIPT"

Sub CATMain()

Dim oPDF
Set oPDF = CreateObjekt("WScript.Shell")
oPDF.Run "c:\WKDaten\test.pdf"
Set oPDF=nothing

End Sub