Auto-Installation

Jonathan

Hallo Community,

über ein Jahr ist's nun her, das ich nix mehr mit Auto It gemacht habe Nun melde ich mich zurück. Es ist zwar nix spektakuläres, aber ich muss ja erstmal wieder reinkommen

Zum Projekt:

Wer kennt das nicht... Man installiert seinen PC neu, und danach muss man alles neu installieren. Drum habe ich mal ein paar Autoinstallationsscripte gebastelt. Mit der Zeit kommen sicherlich (hoffentlich auch von euch) weitere Scripte dazu

Adobe Flash Player (Jonathan)

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Version: 1.0
Author: Jonathan

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------
#RequireAdmin
$filename = "install_flash_player.exe" ; Lokaler Speichername
Func download()
$download = InetGet("http://fpdownload.adobe.com/get/flashplayer/current/install_flash_player.exe",@TempDir&"\install_flash_player.exe",1,1)
ProgressOn("Download",$filename,"0%","","",18)
Do
Sleep(100)
ProgressSet(InetGetInfo($download,0)/InetGetInfo($download,1)*100,Round(InetGetInfo($download,0)/InetGetInfo($download,1)*100,1) & "%")
Until InetGetInfo($download,2)
ProgressOff()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

func install()
ShellExecute(@TempDir&"\install_flash_player.exe")
WinWait("Installationsprogramm für Adobe® Flash® Player")
ControlClick("Installationsprogramm für Adobe® Flash® Player","",200) ;Lizenzbedingungen zustimmen
ControlClick("Installationsprogramm für Adobe® Flash® Player","",102) ; Installieren Button drücken
if ProcessExists("firefox.exe") Then ProcessClose("firefox.exe") ; Falls Firefox offen ist, Firefox schließen
do
Sleep(100)
ControlClick("Installationsprogramm für Adobe® Flash® Player","",102) ; Fertig button drücken
Until not WinExists("Installationsprogramm für Adobe® Flash® Player") ; Prüfen ob Installation Fertig ist (Fenster geschlossen)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

download()
install()

[/autoit]

ICQ 7.5 Pro7-Version BETA(Jonathan)

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Version: 1.0
Author: Jonathan

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------
#RequireAdmin
$filename = "install_pro7_icq7.exe" ; Lokaler Speichername
Func download()
$download = InetGet("http://ftp.icq.com/pub/ICQ7/install_pro7_icq7.exe",@TempDir&"\"&$filename,1,1)
ProgressOn("Download",$filename,"0%","","",18)
Do
Sleep(100)
ProgressSet(Round(InetGetInfo($download,0)/InetGetInfo($download,1)*100,1),Round(InetGetInfo($download,0)/InetGetInfo($download,1)*100,1) & "%")
Until InetGetInfo($download,2)
ProgressOff()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

func install()
ShellExecute(@TempDir&"\"&$filename)
ToolTip("Auf Fenster warten")
WinWait("ICQ7.5")
Sleep(3000)
MouseClick("left",0,0)
Do
Until ControlGetFocus("ICQ7.5") = "Button2"
Sleep(200)
ControlClick("ICQ7.5","",13) ; Bedingungen aktzeptieren
Sleep(200)
ControlClick("ICQ7.5","",16) ; Weiter
Sleep(200)
ControlClick("ICQ7.5","",42) ; Auswahlmenü ausklappen
Sleep(200)
ControlClick("ICQ7.5","",33) ; Werbung weg
ControlClick("ICQ7.5","",34) ; ,,
ControlClick("ICQ7.5","",35) ; ,,
ControlClick("ICQ7.5","",16) ; Weiter
Sleep(200)
ToolTip("Auf Ende warten")
MouseClick("left",0,0)
do
Sleep(100)
Until ControlGetFocus("ICQ7.5") = "Button17"

[/autoit] [autoit][/autoit] [autoit]

ControlClick("ICQ7.5","",60) ; sofort starten ausschalten
ControlClick("ICQ7.5","",61) ; schnellstart icon deaktivieren
ControlClick("ICQ7.5","",68) ; Beenden

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

download()
install()

[/autoit]

Skype (Jonathan)

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Version: 1.3
Author: Jonathan

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------
#RequireAdmin
$filename = "SkypeSetup.exe" ; Lokaler Speichername
Func download()
$download = InetGet("http://download.skype.com/partner/trackable/259/SkypeSetup.exe",@TempDir&"\"&$filename,1,1)
ProgressOn("Download",$filename,"0%","","",18)
Do
Sleep(100)
ProgressSet(Round(InetGetInfo($download,0)/InetGetInfo($download,1)*100,1),Round(InetGetInfo($download,0)/InetGetInfo($download,1)*100,1) & "%")
Until InetGetInfo($download,2)
ProgressOff()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

func install()
ShellExecute(@TempDir&"\"&$filename)
ToolTip("Auf Fenster warten")
WinWait("Skype")
Sleep(500)
Send("{enter}")
;ControlClick("Skype","",3342866) ; Next Button drücken
Sleep(200)
ControlClick("Skype","",3408836) ; google chrome abwählen
ControlClick("Skype","",3342866) ; Next Button drücken
Sleep(200)
ToolTip("Aufs Ende warten")
Do
Until ControlGetFocus("Skype") = "TButton1"
ControlClick("Skype","",2818540) ; Ende Button drücken
Sleep(1000)
WinWait("Skype")
WinClose("Skype")
Sleep(500)
WinClose("Skype")
EndFunc
download()
install()

[/autoit]

AutoIt 3.3.6.1 (Jonathan)

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Version: 1.3
Author: Jonathan

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------
#RequireAdmin
$filename = "autoit-v3-setup.exe" ; Lokaler Speichername
Func download()
$download = InetGet("http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe",@TempDir&"\"&$filename,1,1)
ProgressOn("Download",$filename,"0%","","",18)
Do
Sleep(100)
ProgressSet(Round(InetGetInfo($download,0)/InetGetInfo($download,1)*100,1),Round(InetGetInfo($download,0)/InetGetInfo($download,1)*100,1) & "%")
Until InetGetInfo($download,2)
ProgressOff()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

func install()
ShellExecute(@TempDir&"\"&$filename)
WinWait("AutoIt v3")
ControlClick("AutoIt v3","",1) ; Next Button drücken
Sleep(200)
ControlClick("AutoIt v3","",1) ; Lizentvereinbarung aktzeptieren
Sleep(200)
ControlClick("AutoIt v3","",1) ; Next button (Neuinstallation)
Sleep(200)
ControlClick("AutoIt v3","",1) ; Next button (Run the Script)
Sleep(200)
ControlClick("AutoIt v3","",1) ; Next button (Komplette Installation)
Sleep(200)
ControlClick("AutoIt v3","",1) ; Install-Button
do
Sleep(100)
ControlClick("AutoIt v3","",1) ; beenden
Until WinExists("AutoIt v3") = 0 ; Prüfen ob Installation Fertig ist (Fenster geschlossen)
Sleep(1500)
ProcessClose("hh.exe")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

download()
install()

[/autoit]

Hoffe euch gefällts, und ihr helft etwas mit Weitere Scripte bitte per PN zu mir, füge Sie dann hier oben ein

**Xorianator**

*hust*
Schön ware eine Datenbank auf einem FTP, vllt mit folgendem format:

Programmname#Programmlink#Programmversion

MfG

DevFly

Hmmm, warum ein script machen wenn es auch per Silent schalter geht z.B. für Adobe Flash wäre es -install davon findet man noch viele mehr

Da ich mich mit den Thema schon auseinader gesetzt habe. Kann ich dir noch das empfehlen: http://www.kalytta.com/wihu.php

Es gibt zwar einige Programme da geht kein Silent da ergibt es sinn ein Autoit script zu schreiben. Aber warum die arbeit machen wenns auch einfach geht

Genial wäre schön eine Datenbank mit allen Silent Schaltern und Autoit scripten aber das macht viel arbeit wenn das dann auch noch automaitsch gehen soll das er die Programme noch aktuell hat wirds richtig schwierig.

Aber dein Ansatz ist nicht verkehrt mich kotzt das auch immer an alles nach zu installieren. Ich hab mir auch schon angewöhnt alle Portable zu nutzen. Rüber kopieren und verknüpfung anlegen fertig

Gruss DevFly

Jonathan

Zitat von DevFly

Hmmm, warum ein script machen wenn es auch per Silent schalter geht z.B. für Adobe Flash wäre es -install davon findet man noch viele mehr

Warum mach ich mir dann die Arbeit :pinch: Naja aber Für Skype / ICQ gibts das glaube ich nicht..

**BugFix**

Zitat von Jonathan

Wer kennt das nicht... Man installiert seinen PC neu, und danach muss man alles neu installieren.

Ich kenn das nicht.
Image zurückspielen und nach (max.) 10 min ist der PC neu mit allen Standardprogrammen, die im Image sind.

**AspirinJunkie**

Da ich auch des öfteren mal Rechner neu installiere hab ich mir auch mal ein kleines Skript geschrieben welches AutoIt komplett installiert (mit Beta, SciTE4AutoIt, OrganizeIncludes und deutscher Hilfe):

Spoiler anzeigen

[autoit]

#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

[/autoit] [autoit][/autoit] [autoit]

#include "BuildInZIP.au3"

[/autoit] [autoit][/autoit] [autoit]

HttpSetUserAgent("Chrome")

[/autoit] [autoit][/autoit] [autoit]

Global $hSplash = SplashTextOn("AutoIt-Installer", "Willkommen zum AutoIt-Setup", 300, 100)
OnAutoItExitRegister("beenden")

[/autoit] [autoit][/autoit] [autoit]

DownloadFiles()
InstallAll()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func InstallAll()
ControlSetText($hSplash, "", "Static1", "Installiere AutoIt3")
InstallAutoIt(@TempDir & '\AutoIt\Au3Setup.exe')
TakeOwn(@ProgramFilesDir & '\AutoIt3')

[/autoit] [autoit][/autoit] [autoit]

ControlSetText($hSplash, "", "Static1", "Installiere AutoIt3 Beta")
InstallAutoItBeta(@TempDir & '\AutoIt\Au3BetaSetup.exe')
TakeOwn(@ProgramFilesDir & '\AutoIt3')

[/autoit] [autoit][/autoit] [autoit]

ControlSetText($hSplash, "", "Static1", "Installiere SciTE4AutoIt")
ShellExecuteWait(@TempDir & '\AutoIt\SciTESetup.exe', "/S /NCRC")
TakeOwn(@ProgramFilesDir & '\AutoIt3')

[/autoit] [autoit][/autoit] [autoit]

; SciTE Übersetzung
ControlSetText($hSplash, "", "Static1", "Installiere SciTE Übersetzung")
FileMove(@TempDir & '\AutoIt\locale.properties', @ProgramFilesDir & '\AutoIt3\SciTE\locale.properties', 1)

[/autoit] [autoit][/autoit] [autoit]

ControlSetText($hSplash, "", "Static1", "Installiere Organize Includes")
InstallOrganizeIncludes(@TempDir & '\AutoIt\OI.zip')

[/autoit] [autoit][/autoit] [autoit]

ControlSetText($hSplash, "", "Static1", "Installiere deutsche Hilfedateien")
; Hilfedateien
FileMove(@TempDir & '\AutoIt\Hilfe\AutoIt.chm', @ProgramFilesDir & '\AutoIt3\AutoIt.chm', 1)
FileMove(@TempDir & '\AutoIt\Hilfe\AutoIt3.chm', @ProgramFilesDir & '\AutoIt3\AutoIt3.chm', 1)
FileMove(@TempDir & '\AutoIt\Hilfe\UDFs3.chm', @ProgramFilesDir & '\AutoIt3\UDFs3.chm', 1)
FileSetAttrib(@ProgramFilesDir & '\AutoIt3\AutoIt.chm', "-RASHNOT")
FileSetAttrib(@ProgramFilesDir & '\AutoIt3\AutoIt3.chm', "-RASHNOT")
FileSetAttrib(@ProgramFilesDir & '\AutoIt3\UDFs3.chm', "-RASHNOT")

[/autoit] [autoit][/autoit] [autoit]

TakeOwn(@ProgramFilesDir & '\AutoIt3')
EndFunc ;==>InstallAll

[/autoit] [autoit][/autoit] [autoit]

Func TakeOwn(Const $sDir)
ShellExecuteWait("takeown.exe", '/F "' & $sDir & '" /R /D Y')
ShellExecuteWait("Icacls.exe", '"' & $sDir & '" /T /C /grant ' & @UserName & ':F')
EndFunc ;==>TakeOwn

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func InstallOrganizeIncludes(Const $sOIPath)
_BuildInZIP($sOIPath, @ProgramFilesDir & '\AutoIt3\SciTE\', True)

[/autoit] [autoit][/autoit] [autoit]

Local $hFFFF = FileFindFirstFile(@ProgramFilesDir & '\AutoIt3\SciTE\OrganizeIncludes\*.au3')
Local $sOIAu3Name = FileFindNextFile($hFFFF)

[/autoit] [autoit][/autoit] [autoit]

Local $sText = '# 36 OrganizeIncludes' & @CRLF _
& '#command.36.*.au3="$(autoit3dir)\beta\autoit3.exe" "$(SciteDefaultHome)\OrganizeIncludes\' & $sOIAu3Name & '" "$(FilePath)"' & @CRLF _
& 'command.36.*.au3="$(autoit3dir)\autoit3.exe" "$(SciteDefaultHome)\OrganizeIncludes\' & $sOIAu3Name & '" "$(FilePath)"' & @CRLF _
& 'command.name.36.*.au3=OrganizeIncludes' & @CRLF _
& 'command.save.before.36.*.au3=1' & @CRLF _
& 'command.is.filter.36.*.au3=1' & @CRLF _
& 'command.shortcut.36.*.au3=Ctrl+Shift+Alt+I' & @CRLF

[/autoit] [autoit][/autoit] [autoit]

FileWrite(@ProgramFilesDir & '\AutoIt3\SciTE\Properties\au3.properties', $sText)
;FileWrite(@UserProfileDir & '\SciTEUser.properties', $sText)
EndFunc ;==>InstallOrganizeIncludes

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func InstallAutoIt(Const $sAu3Path)
Local $hWin
Local $iPID = Run($sAu3Path)

[/autoit] [autoit][/autoit] [autoit]

$hWin = WinWait("AutoIt v", "Welcome to the AutoIt")
ControlClick($hWin, "", 1)

[/autoit] [autoit][/autoit] [autoit]

$hWin = WinWait("AutoIt v", "License Agreement")
ControlClick($hWin, "", 1)

[/autoit] [autoit][/autoit] [autoit]

Do
If WinExists("AutoIt v", "You are running a 64-bit Operating System.") Then
$hWin = WinGetHandle("AutoIt v", "You are running a 64-bit Operating System.")
ControlClick($hWin, "", 1201) ; Button Use Native x64 Tools
ControlClick($hWin, "", 1)
ExitLoop
ElseIf WinExists("AutoIt v", "Defaults for *.au3") Then
ExitLoop
EndIf
Sleep(250)
Until 0

[/autoit] [autoit][/autoit] [autoit]

$hWin = WinWait("AutoIt v", "Defaults for *.au3")
ControlClick($hWin, "", 1202)
ControlClick($hWin, "", 1)

[/autoit] [autoit][/autoit] [autoit]

$hWin = WinWait("AutoIt v", "Choose Components")
ControlClick($hWin, "", 1)

[/autoit] [autoit][/autoit] [autoit]

$hWin = WinWait("AutoIt v", "Choose Install Location")
ControlClick($hWin, "", 1)

[/autoit] [autoit][/autoit] [autoit]

$hWin = WinWait("AutoIt v", "Completing the AutoIt")
ControlCommand($hWin, "", 1203, "UnCheck", "")
ControlClick($hWin, "", 1)

[/autoit] [autoit][/autoit] [autoit]

ProcessWaitClose($iPID)
EndFunc ;==>InstallAutoIt

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func InstallAutoItBeta(Const $sAu3Path)
Local $hWin
Local $iPID = Run($sAu3Path)

[/autoit] [autoit][/autoit] [autoit]

$hWin = WinWait("AutoIt v", "Please note, this is BETA")
ControlClick($hWin, "", 2)

[/autoit] [autoit][/autoit] [autoit]

$hWin = WinWait("AutoIt v", "Welcome to the AutoIt")
ControlClick($hWin, "", 1)

[/autoit] [autoit][/autoit] [autoit]

$hWin = WinWait("AutoIt v", "License Agreement")
ControlClick($hWin, "", 1)

[/autoit] [autoit][/autoit] [autoit]

Do
If WinExists("AutoIt v", "You are running a 64-bit Operating System.") Then
$hWin = WinGetHandle("AutoIt v", "You are running a 64-bit Operating System.")
ControlClick($hWin, "", 1201) ; Button Use Native x64 Tools
ControlClick($hWin, "", 1)
ExitLoop
ElseIf WinExists("AutoIt v", "Choose Components") Then
ExitLoop
EndIf
Sleep(250)
Until 0

[/autoit] [autoit][/autoit] [autoit]

$hWin = WinWait("AutoIt v", "Choose Components")
ControlClick($hWin, "", 1)

[/autoit] [autoit][/autoit] [autoit]

$hWin = WinWait("AutoIt v", "Completing the AutoIt")
ControlCommand($hWin, "", 1203, "UnCheck", "")
ControlClick($hWin, "", 1)

[/autoit] [autoit][/autoit] [autoit]

ProcessWaitClose($iPID)
EndFunc ;==>InstallAutoItBeta

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _DownFile($sSourceLink, $sTargetPath, $sText = "")
Local $hInet = InetGet($sSourceLink, $sTargetPath, 1 + 2 + 16, 1)

[/autoit] [autoit][/autoit] [autoit]

Do
Sleep(200)
ControlSetText($hSplash, "", "Static1", "Downloade " & $sText & @CRLF & @CRLF & Round(InetGetInfo($hInet, 0) / 1024) & "kB / " & Round(InetGetInfo($hInet, 1) / 1024) & "kB")
Until InetGetInfo($hInet, 2)

[/autoit] [autoit][/autoit] [autoit]

InetClose($hInet)
EndFunc ;==>_DownFile

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func DownloadFiles()
Local Enum $sAutoItLink, $sHilfeLink, $sSciteLink, $sSciteTransLink, $sOrganizeIncludesLink
Local $iBytes
Local $aLinks = GetNewestAutoItDownloads()

[/autoit] [autoit][/autoit] [autoit]

DirCreate(@TempDir & "\AutoIt")

[/autoit] [autoit][/autoit] [autoit]

_DownFile($aLinks[0], @TempDir & '\AutoIt\Au3Setup.exe', "AutoIt")
_DownFile($aLinks[5], @TempDir & '\AutoIt\Au3BetaSetup.exe', "AutoIt Beta")

[/autoit] [autoit][/autoit] [autoit]

_DownFile($aLinks[1], @TempDir & '\AutoIt\Hilfe.zip', "Hilfedateien")
ControlSetText($hSplash, "", "Static1", "Entpacke Hilfedateien")
DirCreate(@TempDir & '\AutoIt\Hilfe\')
_BuildInZIP(@TempDir & '\AutoIt\Hilfe.zip', @TempDir & '\AutoIt\Hilfe\', True)

[/autoit] [autoit][/autoit] [autoit]

_DownFile($aLinks[2], @TempDir & '\AutoIt\SciTESetup.exe', "SciTE4AutoIt")
_DownFile($aLinks[3], @TempDir & '\AutoIt\locale.properties', "SciTE Übersetzung")
_DownFile($aLinks[4], @TempDir & '\AutoIt\OI.zip', "Organize Includes")
EndFunc ;==>DownloadFiles

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func GetNewestAutoItDownloads()
Local $aRet[6]

[/autoit] [autoit][/autoit] [autoit]

ControlSetText($hSplash, "", "Static1", "Ermittle neueste Downloads")
Local $sDownSources = BinaryToString(InetRead("http://translation.autoit.de/autoitinfo/autoit_downloads.php"))
If $sDownSources = "" Then Return SetError(1, @error, -1)

[/autoit] [autoit][/autoit] [autoit]

; AutoIt-Setup
$aRegExpRet = StringRegExp($sDownSources, 'Stabil.+?href="(.+?)"', 3)
If Not @error Then $aRet[0] = $aRegExpRet[0]

[/autoit] [autoit][/autoit] [autoit]

; Hilfedateien
$aRegExpRet = StringRegExp($sDownSources, 'Hilfe Deutsch.+?href="(.+?)"', 3)
If Not @error Then $aRet[1] = $aRegExpRet[0]

[/autoit] [autoit][/autoit] [autoit]

; SciTE
$aRegExpRet = StringRegExp($sDownSources, 'SciTE.+?href="(.+?)"', 3)
If Not @error Then $aRet[2] = $aRegExpRet[0]

[/autoit] [autoit][/autoit] [autoit]

; SciTE Übersetzung
$aRet[3] = "http://scite-files.googlecode.com/svn-history/trunk/translations/locale.de.properties"

[/autoit] [autoit][/autoit] [autoit]

; OrganizeIncludes:
$aRet[4] = "http://www.autoitscript.com/forum/index.php?app=core&module=attach&section=attach&attach_app=core&module=attach&section=attach&attach_id=29947"

[/autoit] [autoit][/autoit] [autoit]

$aRegExpRet = StringRegExp($sDownSources, 'Beta.+?href="(.+?)"', 3)
If Not @error Then $aRet[5] = $aRegExpRet[0]
#cs
$sDownSources = BinaryToString(InetRead("http://www.autoitscript.com/forum/topic/111554-organize-includes-in-scite4autoit3"))
If (Not @error) And ($sDownSources <> "") Then
$aRegExpRet = StringRegExp($sDownSources, '(?s)Attached File$s$.+?href="(.+?)"', 3)
If Not @error Then $aRet[4] = $aRegExpRet[0]
ConsoleWrite($aRet[4] & @CRLF)
EndIf
#ce

[/autoit] [autoit][/autoit] [autoit]

Return $aRet
EndFunc ;==>GetNewestAutoItDownloads

[/autoit] [autoit][/autoit] [autoit]

Func beenden()
ControlSetText($hSplash, "", "Static1", "räume auf")
DirRemove(@TempDir & '\AutoIt', 1)
EndFunc ;==>beenden

[/autoit]

Zusätzlich wird die _BuildInZip.au3 von BugFix benötigt.
Es ist nicht ganz ausgereift da ich es nur schnell für mich persönlich geschrieben hatte aber vielleicht kann es ja jemand zumindestens als Vorlage verwenden.

moritz1243

Hi,

gut wäre auch noch wenn du die scrips vereinst, sodass man script mit gui hat in dem mal alles auswählen kann.

grüße Moritz