Hallo,

ist es es möglich aus einem VBScript ein weiteres VBScript aufzurufen und dabei ein Objekt zu übergeben?

Vielen Dank für eure Hilfe schon mal im Voraus

Gruß

Kerstin

Hallo Kerstin

Bin mir nicht ganz sicher ob ich verstehe was du meinst, aber wenn es darum geht, dass du Code verwenden willst, der in einem anderen File steht, dann kann ich dir das hier vorschlagen.

Der Gedanke dahinter ist, dass du nicht das Objekt übergibst, sondern die Prozeduren und Funktionen von der anderen Datei reinholst.

Der Code für's reinfetzen ist - wie du siehst - nicht von mir. Aber er tut, vielleicht tut er eben auch grad deswegen

Programmablauf

Ich erstelle ein Folderobjekt [Set demofolder = filesys.GetFolder("C:\temp")] im Main.vbs. Dieses wird dann an eine Prozedur Folderinfo im Sub.vbs File übergeben. D.h. eigentlich eben nicht, das Sub.vbs File steht komplett im Main.vbs Programmcode. Analog einem Include im Web.

Annahmen:
Ich gehe davon aus, dass es ein C:\temp Verzeichnis gibt und dass meine beiden Beispieldateien im gleichen Folder (e.g. C:\temp) liegen.

Hmm.. hoffe das war irgendwie verständlich ...

Lass mich wissen, ob tut ^^ und sonst nachfragen ..

gruss
moll

P.S. Ach ja, das war so ein schneller Schuss. Vielleicht gibt's auch noch andere Lösungen ...


----------------------- main.vbs ------------------------------
Option Explicit
Dim filesys, demofolder

' Test program for the IncludeFile and ReadConfigFile functions.
' Author: Christian d'Heureuse (sourcecode.biz - Professional Source Code for Software Developers)


Dim fso: set fso = CreateObject("Scripting.FileSystemObject")

' Includes a file in the global namespace of the current script.
' The file can contain any VBScript source code.
' The path of the file name must be specified relative to the
' directory of the main script file.

Private Sub IncludeFile (ByVal RelativeFileName)
Dim ScriptDir: ScriptDir = fso.GetParentFolderName(WScript.ScriptFullName)
Dim FileName: FileName = fso.BuildPath(ScriptDir,RelativeFileName)
IncludeFileAbs FileName
End Sub

' Includes a file in the global namespace of the current script.
' The file can contain any VBScript source code.
' The path of the file name must be specified absolute (or
' relative to the current directory).

Private Sub IncludeFileAbs (ByVal FileName)
Const ForReading = 1
Dim f: set f = fso.OpenTextFile(FileName,ForReading)
Dim s: s = f.ReadAll()
ExecuteGlobal s
End Sub

IncludeFile "sub.vbs"

Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder("C:\temp")

Folderinfo demofolder



-------------------------- sub.vbs ----------------------

Sub Folderinfo(meinObjekt)
wscript.echo "Erstelldatum: " & meinObjekt.DateCreated
end Sub

Hallo Moll,

erstmal vielen Dank für deine Antwort.

Was ich möchte ist eigentlich aus einem VBScript heraus ein anderes VBScript aufrufen. Ich mache das mit Shell.run. Dabei würde ich gerne ein Objekt an das aufzurufende Script übergeben. Ich bin nicht mal sicher, ob das überhaupt machbar ist. Das Script, aus dem ich das andere Script aufrufe befindet sich in einer einer vorhandenen Branchensoftware, also nicht in einer Datei.

Hoffentlich habe ich mich jetzt etwas verständlicher ausgedrückt.

Fällt dir dazu etwas ein?

Vielen Dank und viele Grüße

Kerstin

Hallo Kerstin

Hmm, wenn du an das Script der Branchenlösung nicht ran kommst, dann seh ich im Moment auch nix.

Du kannst zwar dein Objekt Serialisieren und somit den Status des Objekt irgendwo abspeichern, aber dann müsstest du es auch in der Branchenlösung wieder importieren können. Und dazu musste an den Code kommen.

Ansonsten fällt mir im Moment gar nix dazu ein. Tut mir leid.

Gruss
moll