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