matsch79
Der mit der Posting-MP
Hallo alle zusammen
Ich nutze zum automatischen Starten von Programmen ein Script,
welches eine Zeitverzögerung erlaubt und mir die Reihenfolge
überläßt, wann was gestartet werden soll.
Dazu nutze ich das Script derzeit 2x mit zwei verschiedenen Intervallen.
Einmal 25 Sekunden und einmal 45 Sekunden.
Wenn der PC zum ersten Mal hochfährt ist es ja auch ganz gut so,
wie ich es mir zurechtgebastelt habe, doch wenn ich einen Neustart
durchführen lasse, dann brauche ich das zweite nicht und es läßt sich
auch nicht wirklich aufhalten.
Meine Frage dazu ist nun, ob es möglich ist, eine Abfrage für 10 Sekunden
oder so einzubauen, so daß es mir bei Anwesenheit erlaubt ist, den Start
zu unterbinden?
Und bei Nichtanwesenheit soll es dann (nach einer gewissen Wartezeit)
ganz normal weiterlaufen und die eingetragenen Programme starten.
Verwendet wird das bei mir als VBS so:
Ich nutze zum automatischen Starten von Programmen ein Script,
welches eine Zeitverzögerung erlaubt und mir die Reihenfolge
überläßt, wann was gestartet werden soll.
Dazu nutze ich das Script derzeit 2x mit zwei verschiedenen Intervallen.
Einmal 25 Sekunden und einmal 45 Sekunden.
Wenn der PC zum ersten Mal hochfährt ist es ja auch ganz gut so,
wie ich es mir zurechtgebastelt habe, doch wenn ich einen Neustart
durchführen lasse, dann brauche ich das zweite nicht und es läßt sich
auch nicht wirklich aufhalten.
Meine Frage dazu ist nun, ob es möglich ist, eine Abfrage für 10 Sekunden
oder so einzubauen, so daß es mir bei Anwesenheit erlaubt ist, den Start
zu unterbinden?
Und bei Nichtanwesenheit soll es dann (nach einer gewissen Wartezeit)
ganz normal weiterlaufen und die eingetragenen Programme starten.
Verwendet wird das bei mir als VBS so:
Code:
Option Explicit
Dim objShell
Dim intWarten
intWarten = 25000 ' Millisekunden
WScript.Sleep intWarten
Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.Exec ("C:\Programme\Programm1\Programm.exe")
objShell.Exec ("C:\Programme\Programm2\Programm.exe")
objShell.Exec ("C:\Programme\Programm3\Programm.exe")
objShell.Exec ("C:\Programme\Programm4\Programm.exe")
objShell.Exec ("C:\Programme\Programm5\Programm.exe")
Zuletzt bearbeitet: