VBScript läuft unter XP, unter Vista nicht

[fritsch_cadwork 10]

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 10]

Hallo Christian,

 

 

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

 

Vielleicht könntest du mal die detaillierte Fehlermeldung posten?

 

 

Gruß

 

Dirk

[Cybquest 36]

Ist denn genau die gleiche Filemaker-Version installiert?

Evtl. müsste sonst dieser Teil angepasst werden:

CreateObject("FMPro.Application")