fritsch_cadwork

Hallo Leute, folgendes Skript läuft optimal unter XP. Unter Vista passiert leider garnichts. Option Explicit Dim fmApp, fmDocs, fmDoc Dim theFile, theScript ' check that there were 2 arguments If WScript.Arguments.Count <> 2 Then ' do nothing at all, fail silently Else theFile = WScript.Arguments.Unnamed.Item(0) theScript = WScript.Arguments.Unnamed.Item(1) ' hook into FileMaker Set fmApp = CreateObject("FMPro.Application") fmApp.Visible = True ' get the collection of open files Set fmDocs = fmApp.Documents ' go find our target file For Each fmDoc In fmDocs If InStr(LCase(fmDoc.fullname), LCase(thefile)) > 0 Then ' this is our file, run the script fmDoc.dofmscript (thescript) End If Next End If ' clean up Set fmDoc = Nothing Set fmDocs = Nothing Set fmApp = Nothing Das Skript soll das Programm Filemaker 5.5 öffnen und in diesem Programm ein Skript ausführen. In Vista passiert erstmal garnichts. Wenn ich das Skript aus einer Admin-Shell starte, sagt er mir das er das Objekt nicht erzeugen kann gruß, christian