- #1
S
sign
Aktives Mitglied
Themenersteller
- Dabei seit
- 20.11.2006
- Beiträge
- 40
- Reaktionspunkte
- 0
' hab folgendes skrip geschrieben. ist eins meiner ersten scripts.
' gibt es eine möglichkeit das mein script wartet bis die installation einer applikation
' abgeschlossen ist und dann vortfährt. mit sleep wir das script ja nur eine zeit angehalten.
Variablen deklarieren
'---------------------------
'konstante
Const str_intro = Applicationen und Patches werden istalliert und konfiguriert
Const str_install = wird installiert
Const str_warten = bitte warten.
Const str_fertig = Installation abgeschlossen
' verbindung zur befehlsbibliothek
Set objShell = CreateObject(WScript.Shell)
Set objAusgabe = WScript.StdOut
' installation
text = str_intro & ,
text = text & str_warten
WScript.Echo text
objAusgabe.Write Adobe Reader & str_install
objAusgabe.Write fortschritt
objShell.Run .\apps\AdobeReader7\ar7.msi /qn
WScript.Echo str_fertig
objAusgabe.Write Java & str_install
objAusgabe.Write fortschritt
objShell.Run .\apps\java\java.exe /s /v /qn
WScript.Echo str_fertig
objAusgabe.Write Flash 9 & str_install
objAusgabe.Write fortschritt
objShell.Run msiexec /i apps\flash9\flash.msi /qb-
WScript.Echo str_fertig
Funktionen
Function fortschritt
For x = 1 To 20
objAusgabe.write .
WScript.Sleep(1000)
Next
End Function
' gibt es eine möglichkeit das mein script wartet bis die installation einer applikation
' abgeschlossen ist und dann vortfährt. mit sleep wir das script ja nur eine zeit angehalten.
Variablen deklarieren
'---------------------------
'konstante
Const str_intro = Applicationen und Patches werden istalliert und konfiguriert
Const str_install = wird installiert
Const str_warten = bitte warten.
Const str_fertig = Installation abgeschlossen
' verbindung zur befehlsbibliothek
Set objShell = CreateObject(WScript.Shell)
Set objAusgabe = WScript.StdOut
' installation
text = str_intro & ,
text = text & str_warten
WScript.Echo text
objAusgabe.Write Adobe Reader & str_install
objAusgabe.Write fortschritt
objShell.Run .\apps\AdobeReader7\ar7.msi /qn
WScript.Echo str_fertig
objAusgabe.Write Java & str_install
objAusgabe.Write fortschritt
objShell.Run .\apps\java\java.exe /s /v /qn
WScript.Echo str_fertig
objAusgabe.Write Flash 9 & str_install
objAusgabe.Write fortschritt
objShell.Run msiexec /i apps\flash9\flash.msi /qb-
WScript.Echo str_fertig
Funktionen
Function fortschritt
For x = 1 To 20
objAusgabe.write .
WScript.Sleep(1000)
Next
End Function