Dim myWs
 
textfile = "was-audio-1.log"
mp3file = "g:\was-audio-1.mp3"
textfile2 = "was-audio-2.log"
mp3file2 = "g:\was-audio-2.mp3"
 
Set myWs = CreateObject("Wscript.Shell") 
 
 
WScript.Echo "----------------- WAS-Audio Updater 1.0 ---------------------"
WScript.Echo "-------------------------------------------------------------"
 
' Schleife Starten
do
  cnt = cnt + 1  
 
	WScript.Echo " " 
    WScript.Echo "--- WAS-Audio mp3 werden aktuallisiert ......."   
	WScript.Echo "--- Der Vorgang kann einige Zeit in Anspruch nehmen"
	WScript.Echo "--- Dieses Fenster darf nicht geschlossen werden"
 
        'hier werden die Veriablen zu Strings zusammengeführt
	comline1 = "was-audio-1.vbs " textfile & " " & mp3file
	comline2 = "was-audio-2.vbs " textfile2 & " " & mp3file2
 
        'Skriptaufruf mit Parameter
	myWs.run comline1,6,false 
	wscript.sleep 3600
 
	myWs.run comline2,6,false 
	wscript.sleep 3600
 
 
    WScript.Echo " " 
    WScript.Echo "--- Alle WAS-Audio mp3 auf neustem Stand"
    WScript.Echo "-------------------------------------------------------------"
    WScript.Echo date & " - " & time 
    WScript.Echo "-------------------------------------------------------------"
 
 
 
    ' Pause
  'Zeitschleife: 3600000 = 1 Stunde' 
  wscript.sleep 3599520
  cnt = cnt - 1
loop until cnt > 2

Alles ist m?glich ..

Beitrag wurde zuletzt am 12.08.09 um 11:40:06 editiert.