Set ws = WScript.CreateObject("WScript.Shell")
Ret = ws.run ("Programm1",0)
Ret = ws.run ("Programm2",0)
Hier mal ein ganzer Script, welcher andere VB Scripte aufruft, funktioniert auch mit Windowsprogrammen !
'***********************************************************************
'* tmstimer.vbs Visual Basic Script für Windows Hostscripting
'***********************************************************************
'* NT Serverseitiger Script zum zeitgesteuertem Aufruf der Tandem
'* Mail Service Scripte. Wird durch den Scheduler alle 5 -30 min gestartet
'* Arbeitet mit dem Taclmacro tms (Tandem Mail Service) zusammen
'***********************************************************************
'***********************************************************************
'Dim der Variablen und Konstanten
dim TextLine
dim MSGString
dim Ret
Const ForReading = 1
Const Datei = "twswap.txt"
Const Daten = "\\tgt_dc1\d\ftpdata\tms\"
'Error-Routine einschalten
on error resume next
'Create des Objektes als FileSystemObject und ShellObject
set fs = CreateObject("Scripting.FileSystemObject")
Set ws = WScript.CreateObject("WScript.Shell")
'Ermitteln der angelegten Tandem Mail Service Dateien
MSGString = "cmd /C dir" & Daten & "tm*.vbs /B > " & Daten & Datei
Ret = ws.run (MSGString,0,true)
'Datei tmswap.txt zum lesen öffnen
set fo = fs.OpenTextFile(Daten & Datei,ForReading, true)
'Zeilenweises Auslesen
do while fo.AtEndOfStream true
TextLine = fo.ReadLine
Ret = ws.run (Daten & TextLine,0,true)
loop
'Datei tmswap schließen
fo.close
'Datei tmswap löschen
set Source = fs.GetFile(Daten & Datei)
Source.Delete
WScript.Quit()
'************************************* Ende der Routine ***************************************
Hoffe es hilft Dir weiter
repi