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