Programmieren - alles kontrollieren 4.941 Themen, 20.715 Beiträge

Wie ist es möglich zwei programme auf einmal zu starten?

mikethekinga / 1 Antworten / Baumansicht Nickles

Hi Leute hab eine Frage es muss doch möglich sein zwei Programme auf einmal zu starten z.Bsp., Firewall und Browser. Mit dem WSH müsste es doch möglich sein? Hab schon versucht ein Skript damit zuschreiben, bin aber nicht weitergekommen. Kann mir jemand helfen?

bei Antwort benachrichtigen
REPI mikethekinga „Wie ist es möglich zwei programme auf einmal zu starten?“
Optionen

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

Es empfiehlt sich immer, etwas Linux im Hause zu haben.
bei Antwort benachrichtigen