Hallo,
das nachfolgende Script lädt ein Programm herunter und soll es in den Taskplaner eintragen. Das auszuführende Programm lädt dann monatlich Vorlagen & Makros für Office von einem Netzlaufwerk nach und erzeugt so einen gewissen Netzwerktraffic (80-100MB je User). Um diesen zu verteilen soll das Programm eben zwischen 10:00 Uhr und 14:00 gestartet werden.
Eine einfache Methode wäre es, 5 Scripte zu erstellen, die sich nur in der Uhrzeit ändern, aber das wäre extrem unhandlich und wir möchten ja auch alle noch lernen.
Spoiler anzeigen
;-----------------------------
; created by puni4
;
;Date:24.06.2007
;Version: 0.1
;
;-----------------------------
Dim $User = "Administrator
DIM $Password = "xxx"
Dim $Ziel = @SystemDir&"\system32\wvupdate"
Dim $Quelle = "\\172.29.52.63\gruppen1643\DB Vorlagen\wvupdate.exe"
Dim $Zeit1= 10:00:00 ;Startzeit des Tasks
Dim $Zeit2= 11:00:00
Dim $Zeit3= 12:00:00
Dim $Zeit4= 13:00:00
Dim $Zeit5= 14:00:00
;Adminrechte setzen
RunAsSet($User,@ComputerName,$Password)
;Temp-Verzeichnis erstellen
DirCreate($Ziel)
;Installationsdateien auf Lokales-Temp-Dir kopieren
FileCopy($Quelle,$Ziel,1)
;Warten damit sichergestellt ist, dass Kopiervorgang abgeschlossen ist
Sleep(10000)
;Starten des WV-Updater in geplanten Tasks
Run(@ComSpec&@SystemDir&"\System32\schtasks.exe /Create /U Administrator /P Passwort /SC MONATLICH /D MO /TN C:\Windows\system32\wvupdate\wvupdate.exe /ST"&$Zeit1,$Ziel,@SW_HIDE)
;Warten um sicherzustellen, dass Installation abgeschlossen ist
Sleep(3000)
;Adminrechte zurücksetzen
RunAsSet()
;Statusmeldung ausgeben
MsgBox(0,"Abgeschlossen","Die Office-Updates werden zukünftig jeden Montag um"&$Zeit1&"Uhr ausgeführt")
