Private Declare Function ... in *.vbs

[FriFra]

Irgendwie stört sich der Scripting-Host beim Ausführen eines VB-Scriptes am Schlüsselwort "Function" .
Hat jemand eine Idee, wie man in VBS externe Funktionen deklariert?

Der Code Funktioniert unter VB, VBA, und Lotus Notes ... VB-Script will nicht

Code:

Private Declare Function GetMails_File Lib "localmail.dll" (ByVal Mailfile As String, ByVal KillDuplicates As Integer, ByVal RealNameEnabled As Integer, ByVal RealNameSimulated As Integer, ByVal FromOutlook As Integer, ByVal FromOpera As Integer, ByVal FromNetscape As Integer, ByVal FromLotusNotes As Integer, ByVal FromEudora As Integer, ByVal FromPegasus As Integer, ByVal FromTheBat As Integer) As Integer

[Christian Seehase]

Moin FriFra,

die genaue Syntax hab' ich jetzt auch nicht im Kopf, aber bei VBS kann man m.E. nicht direkt Funktionen importieren, sondern sie werden als Objekte eingebunden, z.B. so

Das FileSystemObjekt enthält dann eine Methode GetFolder usw.

Code:

Set obj_FSO = CreateObject("Scripting.FileSystemObject")
Set obj_lokalAccounts = obj_FSO.GetFolder("C:\Dokumente und Einstellungen")

Du müsstest das Ganze dann wohl als Com-Objekt realisieren.

[FriFra]

Aber auf sehr vielen Rechnern ist durch Office ja VBA verfügbar, d.h. mit einem VBA-Objekt wäre doch alles machbar...

[Christian Seehase]

Moin FriFra,

Dein Problem war doch VBS?
Das ist zumindest der Weg, den ich für VBS kenne, was allerdings nicht heissen soll, dass es der einzige Weg sein muss.
Für VBA kenne ich überhaupt keinen Weg

[FriFra]

Zitat von Christian Seehase:

Moin FriFra,

Dein Problem war doch VBS?
Das ist zumindest der Weg, den ich für VBS kenne, was allerdings nicht heissen soll, dass es der einzige Weg sein muss.
Für VBA kenne ich überhaupt keinen Weg

In VBA funktioniert das Einbinden externer Funktionen aus DLL's problemlos (identisch zu VB)...