VBScript läuft unter XP, unter Vista nicht

[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

[d.stegemann]

Hallo Christian,


das könnte evtl. mit UAC zusammenhängen...

Vielleicht könntest du mal die detaillierte Fehlermeldung posten?


Gruß

Dirk

[Cybquest]

Ist denn genau die gleiche Filemaker-Version installiert?
Evtl. müsste sonst dieser Teil angepasst werden:

CreateObject("FMPro.Application")