Hey ich hab für mich auf der arbeit einen Autoinstaller geschreiben.
Aber als erstes geht mein dank an m-obi der mir sehr geholfen hat! Und an einen der mir grade vom namen nicht einfällt der mir die grund kenntisse gezeigt hat.
nun zu meinem Script Ich bin stolz drauf xD
Mein grund war das ich auf der arbeit (it systemelektroniker) auf neurechnern grundProgramme installieren muss. Und das wollte ich den rechner selbst machen lassen
<|Programm Liste von denen die installiert werden|>
WinXP:
IE 8
Windows Media Player 11
Adobe Flash
Adobe Reader
Nero Free
Avira (Singel)
Kaspersky (Multi) <-- Halb Untendet
Windows 7:
Adobe Flash
Adobe Reader
Nero Free
Avira (Singel)
Kaspersky (Multi) <-- Halb Untendet
Windows XP
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: Kevin Brach
Script Function:
Autoinstaller LSC
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit];Auswahlfenster:
GUICreate("LSC-Computer.de Installer! by Kevin",325,100)
GUICtrlCreateLabel("Wähle nun aus auf welchem System Installiert werden soll!",10,10)
$singleButton=GUICtrlCreateButton("Single-Core",30,40,120,50)
$MultiButton=GUICtrlCreateButton("Multi-Core",150,40,120,50);okay...
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE ;wenn der Benutzer auf das rote X klickt, dann:
Exit;Beenden
Case $SingleButton
$cores=1
ExitLoop
Case $MultiButton
$cores=2
ExitLoop
EndSwitch
WEnd
GUIDelete()
;~ MsgBox(64,"Test: $cores=",$cores)
run("IE8-WindowsXP-x86-DEU.exe")
winwaitactive("Windows Internet Explorer 8 installieren")
send("!e")
sleep(50)
send("!w")
send("!m")
send("!w")
winwaitactive("Windows Internet Explorer 8 installieren","Die Internet Explorer-Installation wurde abgeschlossen.")
send("!t")
winwaitactive("Windows Internet Explorer 8 installieren","Die Internet Explorer-Installation wurde abgeschlossen.")
send("!t")
send("!j")
send("{SPACE}")
;Fallunterscheidung:Reader
Run ("AdbeRdr920_de_DE.exe")
WinWaitActive("Adobe Reader 9.2 - Assistent")
Send("!w")
Sleep(3000)
Send("!i")
WinWaitActive("Adobe Reader 9.2 - Assistent","Fertigstellen")
Send("!f")
;Fallunterscheidung:Flash
run("install_flash_player.exe")
winwaitactive("Adobe Flash Player Plugin Installation: Installiere")
winwaitactive("Adobe Flash Player Plugin Installation: Fertig")
controlclick("Adobe Flash Player Plugin Installation: Fertig","",1)
;Fallunterscheidung:Nero
run("Nero-9.4.12.708_lite.exe")
winwaitactive("Nero 9 Lite - Installation","Willkommen bei der Installation von Nero 9 Lite")
send("!W")
controlclick("Nero 9 Lite - Installation","Ask.com(R) als Standard-Browser-Suche definieren", 1276)
controlclick("Nero 9 Lite - Installation","Ask.com(R) als Startseite einrichten", 1149)
send("!w")
send("!w")
WinWaitActive("Nero 9 Lite - Installation")
controlclick("Nero 9 Lite - Installation","Ich akzeptiere die Lizenzbedingungen", 1016)
send("!w")
winwaitactive("Nero 9 Lite - Installation","Installationstyp auswählen")
send("!w")
WinWaitActive("Nero 9 Lite - Installation","Systemanforderungen")
controlclick("Nero 9 Lite - Installation","Installieren", 1265)
Do
Sleep(100)
Until ControlCommand("Nero 9 Lite - Installation","",1, "IsEnabled")
controlclick("Nero 9 Lite - Installation","&Weiter >", 1)
WinWaitActive("Nero 9 Lite - Installation","Helfen Sie uns, die Nero Software zu verbessern")
[/autoit] [autoit][/autoit] [autoit]ControlClick("Nero 9 Lite - Installation","&Weiter", 1)
[/autoit] [autoit][/autoit] [autoit]WinWaitActive("Nero 9 Lite - Installation","Installation erfolgreich durchgeführt")
[/autoit] [autoit][/autoit] [autoit]ControlClick("Nero 9 Lite - Installation","Installation erfolgreich durchgeführt", 1)
;Fallunterscheidung:mediaplayer
Run("wmp11-windowsxp-x86-DE-DE.exe")
winwaitactive("Windows Media Player 11","Echtheit der Windows-Kopie überprüfen")
sleep(100)
controlclick("Windows Media Player 11","Echtheit der Windows-Kopie überprüfen", 39305)
winwaitactive("Windows Media Player 11","Vielen Dank, dass Sie sich für Windows Media Player 11 entschieden haben.")
send("!s")
winwaitactive("Windows Media Player 11","Willkommen")
controlclick("Windows Media Player 11","&Expresseinstellungen (empfohlen)", 1122)
send("!e")
sleep("1000")
send("!f")
WINWAITACTIVE("Windows Media Player")
send("!{F4}");Soll den start verhinden bzw beenden
If $cores=1 Then
opt("TrayIcomDebug", 1)
run ("avira_antivir_personal_de.exe")
sleep(1000)
send("{SPACE}")
winwait("Avira AntiVir Personal - Free Antivirus","Um fortzufahren, klicken Sie")
WinActivate("Avira AntiVir Personal - Free Antivirus","Um fortzufahren, klicken Sie")
send("!W")
send("!W")
sleep(60)
send("!a")
sleep (60)
send("!W")
winwait("Avira AntiVir Personal - Free Antivirus","Ich bestätige, dass ich die Avira AntiVir")
WinActivate("Avira AntiVir Personal - Free Antivirus","Ich bestätige, dass ich die Avira AntiVir")
send("{SPACE}")
sleep(1000)
send("!w")
sleep(50)
send("!w")
winwaitactive("Avira AntiVir Personal - Free Antivirus Lizenz-Assistenten")
controlclick("Avira AntiVir Personal - Free Antivirus Lizenz-Assistenten","",1070)
send("!W")
winwait("Avira AntiVir Personal - Free Antivirus","Installation beendet")
controlclick("Avira AntiVir Personal - Free Antivirus","Readme.txt anzeigen", 1034)
controlclick("Avira AntiVir Personal - Free Antivirus","Fertig stellen", 12325)
winwait("Konfigurationsassistent")
controlclick("Konfigurationsassistent","&Weiter", 12324)
winwait("Konfigurationsassistent","Heuristic")
controlclick("Konfigurationsassistent","&Weiter", 12324)
send("!W")
send("!W")
winwait("Konfigurationsassistent","Wir empfehlen Ihnen nun eine kurze Systemprüfung")
send("!W")
controlclick("Konfigurationsassistent","Fertig stellen", 12325)
runwait("Update")
run("Nero-9.4.12.708_lite.exe")
winwaitactive("Nero 9 Lite - Installation","Willkommen bei der Installation von Nero 9 Lite")
send("!W")
controlclick("Nero 9 Lite - Installation","Ask.com(R) als Standard-Browser-Suche definieren", 1276)
controlclick("Nero 9 Lite - Installation","Ask.com(R) als Startseite einrichten", 1149)
send("!w")
send("!w")
WinWaitActive("Nero 9 Lite - Installation")
controlclick("Nero 9 Lite - Installation","Ich akzeptiere die Lizenzbedingungen", 1016)
winwaitactive("Nero 9 Lite - Installation","Installationstyp auswählen")
MsgBox(0, "Fertig!!!", "Bitte Starte den PC neu !")
Else
run ("kav9.0.0.736de.exe")
winwaitactive ("Kaspersky Anti-Virus 2010")
ControlClick("Kaspersky Anti-Virus 2010", "", 295)
winwaitactive ("Kaspersky Anti-Virus 2010", "ENDNUTZER-LIZENZVERTRAG FÜR KASPERSKY LAB SOFTWARE")
ControlClick("Kaspersky Anti-Virus 2010", "", 295)
winwaitactive ("Kaspersky Anti-Virus 2010", "Kaspersky Security Network")
ControlClick("Kaspersky Anti-Virus 2010", "", 323)
Sleep(100) ; verweilzeit
ControlClick("Kaspersky Anti-Virus 2010", "", 326)
WinWaitActive("Konfigurationsassistent für Kaspersky Anti-Virus")
ControlClick("Konfigurationsassistent für Kaspersky Anti-Virus", "", 62510)
sleep(100)
ControlClick("Konfigurationsassistent für Kaspersky Anti-Virus", "", 49020)
MsgBox(0, "Fertig!!!", "Ab hier musst du weiter machen !Dann bist du fertig!")
EndIf
Und für Win 7
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
Author: Kevin Brach
Script Function:
Autoinstaller LSC
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit];Auswahlfenster:
GUICreate("LSC-Computer.de Installer! by Kevin",325,100)
GUICtrlCreateLabel("Wähle nun aus auf welchem System Installiert werden soll!",10,10)
$singleButton=GUICtrlCreateButton("Single-Core",30,40,120,50)
$MultiButton=GUICtrlCreateButton("Multi-Core",150,40,120,50);okay...
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE ;wenn der Benutzer auf das rote X klickt, dann:
Exit;Beenden
Case $SingleButton
$cores=1
ExitLoop
Case $MultiButton
$cores=2
ExitLoop
EndSwitch
WEnd
GUIDelete()
;~ MsgBox(64,"Test: $cores=",$cores)
Run ("AdbeRdr920_de_DE.exe")
WinWaitActive("Adobe Reader 9.2 - Assistent")
Send("!w")
Send("!i")
WinWaitActive("Adobe Reader 9.2 - Assistent","Fertigstellen")
Send("!f")
;Fallunterscheidung:Flash
run("install_flash_player.exe")
winwaitactive("Adobe Flash Player Plugin Installation: Installiere")
winwaitactive("Adobe Flash Player Plugin Installation: Fertig")
controlclick("Adobe Flash Player Plugin Installation: Fertig","",1)
;Fallunterscheidung:Nero
run("Nero-9.4.12.708_lite.exe")
winwaitactive("Nero 9 Lite - Installation","Willkommen bei der Installation von Nero 9 Lite")
send("!W")
controlclick("Nero 9 Lite - Installation","Ask.com(R) als Standard-Browser-Suche definieren", 1276)
controlclick("Nero 9 Lite - Installation","Ask.com(R) als Startseite einrichten", 1149)
send("!w")
send("!w")
WinWaitActive("Nero 9 Lite - Installation")
controlclick("Nero 9 Lite - Installation","Ich akzeptiere die Lizenzbedingungen", 1016)
send("!w")
winwaitactive("Nero 9 Lite - Installation","Installationstyp auswählen")
send("!w")
WinWaitActive("Nero 9 Lite - Installation","Systemanforderungen")
controlclick("Nero 9 Lite - Installation","Installieren", 1265)
Do
Sleep(100)
Until ControlCommand("Nero 9 Lite - Installation","",1, "IsEnabled")
controlclick("Nero 9 Lite - Installation","&Weiter >", 1)
WinWaitActive("Nero 9 Lite - Installation","Helfen Sie uns, die Nero Software zu verbessern")
ControlClick("Nero 9 Lite - Installation","&Weiter", 1)
WinWaitActive("Nero 9 Lite - Installation","Installation erfolgreich durchgeführt")
ControlClick("Nero 9 Lite - Installation","Installation erfolgreich durchgeführt", 1)
If $cores=1 Then
opt("TrayIcomDebug", 1)
run ("avira_antivir_personal_de.exe")
send("{SPACE}")
winwait("Avira AntiVir Personal - Free Antivirus","Um fortzufahren, klicken Sie")
WinActivate("Avira AntiVir Personal - Free Antivirus","Um fortzufahren, klicken Sie")
send("!W")
send("!W")
send("!a")
send("!W")
winwait("Avira AntiVir Personal - Free Antivirus","Ich bestätige, dass ich die Avira AntiVir")
WinActivate("Avira AntiVir Personal - Free Antivirus","Ich bestätige, dass ich die Avira AntiVir")
send("{SPACE}")
send("!w")
sleep(50)
send("!w")
winwaitactive("Avira AntiVir Personal - Free Antivirus Lizenz-Assistenten")
controlclick("Avira AntiVir Personal - Free Antivirus Lizenz-Assistenten","",1070)
send("!W")
winwait("Avira AntiVir Personal - Free Antivirus","Installation beendet")
controlclick("Avira AntiVir Personal - Free Antivirus","Readme.txt anzeigen", 1034)
controlclick("Avira AntiVir Personal - Free Antivirus","Fertig stellen", 12325)
winwait("Konfigurationsassistent")
controlclick("Konfigurationsassistent","&Weiter", 12324)
winwait("Konfigurationsassistent","Heuristic")
controlclick("Konfigurationsassistent","&Weiter", 12324)
send("!W")
send("!W")
winwait("Konfigurationsassistent","Wir empfehlen Ihnen nun eine kurze Systemprüfung")
send("!W")
controlclick("Konfigurationsassistent","Fertig stellen", 12325)
runwait("Update")
run("Nero-9.4.12.708_lite.exe")
winwaitactive("Nero 9 Lite - Installation","Willkommen bei der Installation von Nero 9 Lite")
send("!W")
controlclick("Nero 9 Lite - Installation","Ask.com(R) als Standard-Browser-Suche definieren", 1276)
controlclick("Nero 9 Lite - Installation","Ask.com(R) als Startseite einrichten", 1149)
send("!w")
send("!w")
WinWaitActive("Nero 9 Lite - Installation")
controlclick("Nero 9 Lite - Installation","Ich akzeptiere die Lizenzbedingungen", 1016)
winwaitactive("Nero 9 Lite - Installation","Installationstyp auswählen")
MsgBox(0, "Fertig!!!", "Bitte Starte den PC neu !")
Else
run ("kav9.0.0.736de.exe")
winwaitactive ("Kaspersky Anti-Virus 2010")
ControlClick("Kaspersky Anti-Virus 2010", "", 295)
winwaitactive ("Kaspersky Anti-Virus 2010", "ENDNUTZER-LIZENZVERTRAG FÜR KASPERSKY LAB SOFTWARE")
ControlClick("Kaspersky Anti-Virus 2010", "", 295)
winwaitactive ("Kaspersky Anti-Virus 2010", "Kaspersky Security Network")
ControlClick("Kaspersky Anti-Virus 2010", "", 323)
Sleep(100) ; verweilzeit
ControlClick("Kaspersky Anti-Virus 2010", "", 326)
WinWaitActive("Konfigurationsassistent für Kaspersky Anti-Virus")
ControlClick("Konfigurationsassistent für Kaspersky Anti-Virus", "", 62510)
sleep(100)
ControlClick("Konfigurationsassistent für Kaspersky Anti-Virus", "", 49020)
MsgBox(0, "Fertig!!!", "Ab hier musst du weiter machen !Geht leider nicht anders....Aber dann bist du fertig!")
EndIf
Vll kann ja einer was mit den Programm teilen anfangen oder so bei mri laufen sie super ! auf XP und Win7