Checkboxen abgleich über Progressbar

    ich habe bei mir durchaus die zeilen zum großteil eingerückt...eben weil es übersichtlicher ist, allerdings wird das hier irgendwie nicht so dargestellt wie bei mir im autoit-editor?

    ich bin für jeden tip dankbar, auch wenn das script doch recht lang ist, ich habs schon mehrfach "auseinandergerissen" und umgebaut...insofern wenn sich das mit mehreren funktionen irgendwie sinnvoller gestalten lässt....bin ich sofort dabei...daran soll es nicht scheitern.......kannst du mir an einem meiner IF-Anweisungen mal zeigen wie das dann als Funktion aussehen könnte und wie der aufruf über den Startbutton dann richtig funktioniert?

    startbutton -> startet 1 funktion .......das kann ich aktuell nachvollziehen...aber wie geht es das
    start-button -> starte mehrere funktionen nacheinander..... funktioniert? ?(

    EDIT: ahhh hab da gerade diesen Thread hier gefunden:
    Link entfernt

    ....das werde ich mal testen :)

    Edit Oscar: Keine Links zu Botforen! Link entfernt.

    2 Mal editiert, zuletzt von Oscar (5. Dezember 2011 um 13:47)

    so hab mein script nun ordentlich umgebaut ;)

    hab auch schon wieder einiges mit dem auf der Seite vorher versucht, aber ich bekomm es einfach nicht hin. :S

    kann mir jemand sagen an welchen stellen ich was einbauen muss damit ich endlich zum ziel komme? ?(

    In dem script unten ist nun von der Progressbar noch gar nichts eingebaut...


    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus
    $Form1_1 = GUICreate("AVP Installationsmenü", 451, 525, 287, 194)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked") ; deklariert das beim klicken des X die Funktion "Closeclicked" geschehen soll
    $Group1 = GUICtrlCreateGroup("Elsa Installation", 24, 48, 194, 105)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    Global $Checkbox[26], $nMsg
    $Checkbox[1] = GUICtrlCreateCheckbox("BK.bat starten", 248, 344, 160, 17)
    $Checkbox[2] = GUICtrlCreateCheckbox("Elsa installieren", 32, 72, 160, 17)
    $Checkbox[3] = GUICtrlCreateCheckbox("Elsa Anpassungen", 32, 96, 160, 17)
    $Checkbox[4] = GUICtrlCreateCheckbox("SVGView installieren", 32, 120, 160, 17)
    $Checkbox[5] = GUICtrlCreateCheckbox("Benutzer einrichten", 248, 72, 160, 17)
    $Checkbox[6] = GUICtrlCreateCheckbox("BS-Hintergrund rot", 248, 96, 160, 17)
    $Checkbox[7]= GUICtrlCreateCheckbox("Kaspersky installieren", 248, 392, 160, 17)
    $Checkbox[8] = GUICtrlCreateCheckbox("BS-Hintergrund klassisch", 248, 120, 160, 17)
    $Checkbox[9] = GUICtrlCreateCheckbox("BGInfo starten", 248, 368, 160, 17)
    $Checkbox[10] = GUICtrlCreateCheckbox("IE SSL 2.0", 32, 352, 160, 17)
    $Checkbox[11] = GUICtrlCreateCheckbox("Java Update deaktivieren", 248, 168, 160, 17)
    $Checkbox[12] = GUICtrlCreateCheckbox("FF Profil-Installation", 32, 304, 160, 17)
    $Checkbox[13] = GUICtrlCreateCheckbox("Popup-Blocker Archiv", 32, 328, 160, 17)
    $Checkbox[14] = GUICtrlCreateCheckbox("IE SSL 2.0 + Proxy Kennwort", 32, 376, 184, 17)
    $Checkbox[15] = GUICtrlCreateCheckbox("Flash-Player IE installieren", 32, 400, 160, 17)
    $Checkbox[16] = GUICtrlCreateCheckbox("€-Währungstool deaktivieren", 248, 144, 160, 17)
    $Checkbox[17] = GUICtrlCreateCheckbox("Citrix-Einrichtung", 248, 192, 160, 17)
    $Checkbox[18] = GUICtrlCreateCheckbox("Opticlient Fehler beheben", 248, 216, 160, 17)
    $Checkbox[19] = GUICtrlCreateCheckbox("Druckwarteschl. neustarten", 248, 464, 160, 17)
    $Checkbox[20] = GUICtrlCreateCheckbox("SAP Buchhaltung installieren", 32, 200, 160, 17)
    $Checkbox[21] = GUICtrlCreateCheckbox("SAP Logon einrichten", 32, 224, 160, 17)
    $Checkbox[22] = GUICtrlCreateCheckbox("Hardcopy registrieren", 248, 240, 160, 17)
    $Checkbox[23] = GUICtrlCreateCheckbox("Outlook einrichten", 248, 264, 160, 17)
    $Checkbox[24] = GUICtrlCreateCheckbox("TKP Client inst. in DEG", 248, 416, 160, 17)
    $Checkbox[25] = GUICtrlCreateCheckbox("TKP Client inst. im Standort", 248, 440, 160, 17)

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

    $Group2 = GUICtrlCreateGroup("SAP Installation", 24, 176, 194, 81)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group3 = GUICtrlCreateGroup("Browser Installation", 24, 280, 194, 153)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group4 = GUICtrlCreateGroup("Benutzer-Profil", 240, 48, 194, 249)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group5 = GUICtrlCreateGroup("Sonstiges", 240, 320, 194, 177)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    $Button3 = GUICtrlCreateButton("Zurücksetzen", 24, 485, 90, 25)
    $Button2 = GUICtrlCreateButton("Beenden", 128, 485, 90, 25)
    $Button1 = GUICtrlCreateButton("Start", 24, 450, 194, 25)

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

    $Label1 = GUICtrlCreateLabel("Welche Installationen sollen durchgeführt werden?", 32, 16, 243, 17)

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

    GUISetState(@SW_SHOW, $Form1_1)

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

    GUICtrlSetOnEvent($Button1, "startbutton") ;deklariert das die Funktion "startbutton" geschehen soll wenn der Button gedrückt wird.
    GUICtrlSetOnEvent($Button2, "endebutton") ;deklariert das die Funktion "endebutton" geschehen soll wenn der Button gedrückt wird.
    GUICtrlSetOnEvent($Button3, "resetbutton") ;deklariert das die Funktion "resetbutton" geschehen soll wenn der Button gedrückt wird.
    HotKeySet("^!x", "endebutton") ; Notfall-Exit per STRG + ALT + X

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

    While 1
    Sleep(1000) ; Im Leerlauf bummeln
    WEnd

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

    Func CLOSEClicked() ;schliesst beim klicken des X das Fenster
    Exit
    EndFunc

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

    Func startbutton() ; startet den Ablauf der Installationen nach Prüfung ob die Checkboxen ausgewählt wurden
    MsgBox(48, "Installationsstart", "Die ausgewählten Installationen starten nun!" & @CR & @CR & "Ein Abbruch ist über STRG + ALT + X möglich!" )

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

    Global $Benutzer_1, $Domaene
    Global $Benutzer_2, $Kennwort_2
    Global $Benutzer_3, $Kennwort_3, $Alias_3

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

    If BitAND (GUICtrlRead($Checkbox[5]), $GUI_CHECKED) And BitAND (GUICtrlRead($Checkbox[17]), $GUI_CHECKED) Then ; prüft ob die Auswahl plausibel ist und gibt falls dem nicht so ist eine Fehlermeldung aus und bricht ab.
    MsgBox(16, "Fehler bei der Auswahl", "Die Punkte Benutzer einrichten und Citrix-Einrichtung"& @CR & "können nicht zusammen ausgewählt werden."& @CR & @CR & "Der Ablauf wird abgebrochen!")
    return 0
    EndIf

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

    If BitAND (GUICtrlRead($Checkbox[6]), $GUI_CHECKED) And BitAND (GUICtrlRead($Checkbox[8]), $GUI_CHECKED) Then ; prüft ob die Auswahl plausibel ist und gibt falls dem nicht so ist eine Fehlermeldung aus und bricht ab.
    MsgBox(16, "Fehler bei der Auswahl", "Die Punkte BS-Hintergrund rot und BS-Hintergrund klassisch"& @CR & "können nicht zusammen ausgewählt werden."& @CR & @CR & "Der Ablauf wird abgebrochen!")
    return 0
    EndIf

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

    If BitAND (GUICtrlRead($Checkbox[24]), $GUI_CHECKED) And BitAND (GUICtrlRead($Checkbox[25]), $GUI_CHECKED) Then ; prüft ob die Auswahl plausibel ist und gibt falls dem nicht so ist eine Fehlermeldung aus und bricht ab.
    MsgBox(16, "Fehler bei der Auswahl", "Eine TKP Installation in DEG und im auswärtigen Standort" & @CR & "ist nicht plausibel!" & @CR & @CR & "Der Ablauf wird abgebrochen!")
    return 0
    EndIf

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

    If BitAND (GUICtrlRead($Checkbox[5]), $GUI_CHECKED) then check5_1() ; Variablen mit Benutzerdaten für lokale Installation als Administrator füllen
    If bitand (GUICtrlRead($Checkbox[17]), $GUI_CHECKED) then check17_1() ; Variablen mit Benutzerdaten für Citrix-Installation füllen
    If BitAND (GUICtrlRead($Checkbox[23]), $GUI_CHECKED) then check23_1() ; Variablen mit Benutzerdaten für Outlook-Einrichtung füllen

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

    If BitAND (GUICtrlRead($Checkbox[1]), $GUI_CHECKED) then check1()
    If bitand (GUICtrlRead($Checkbox[2]), $GUI_CHECKED) then check2()
    If BitAND (GUICtrlRead($Checkbox[3]), $GUI_CHECKED) then check3() ;Elsa-Anpassungen vornehmen
    If bitand (GUICtrlRead($Checkbox[4]), $GUI_CHECKED) then check4()
    If BitAND (GUICtrlRead($Checkbox[5]), $GUI_CHECKED) then check5() ; Benutzer lokal als Administrator einrichten (Verwendet Variablen von weiter oben!)
    If BitAND (GUICtrlRead($Checkbox[6]), $GUI_CHECKED) then check6() ;Bildschirmhintergrund rot
    if BitAND (GUICtrlRead($Checkbox[7]), $GUI_CHECKED) then check7()
    If BitAND (GUICtrlRead($Checkbox[8]), $GUI_CHECKED) then check8() ;Bildschirmhintergrund Klassisch
    If BitAND (GUICtrlRead($Checkbox[9]), $GUI_CHECKED) then check9()
    If bitand (GUICtrlRead($Checkbox[10]), $GUI_CHECKED) then check10() ; SSl 2.0 im IE aktivieren
    If BitAND (GUICtrlRead($Checkbox[11]), $GUI_CHECKED) then check11() ; Java-Update deaktivieren Java-Version 6.0.1 bis 6.0.27 + 6.0.29
    If BitAND (GUICtrlRead($Checkbox[12]), $GUI_CHECKED) then check12() ;Firefox-Profilinstallation
    If bitand (GUICtrlRead($Checkbox[13]), $GUI_CHECKED) then check13() ;Firefox Popup-Blocker für 10.58.60.72 deaktivieren
    If bitand (GUICtrlRead($Checkbox[14]), $GUI_CHECKED) then check14() ; iproxy prüfen und SSl 2.0 im IE aktivieren
    If bitand (GUICtrlRead($Checkbox[15]), $GUI_CHECKED) then check15()
    If bitand (GUICtrlRead($Checkbox[16]), $GUI_CHECKED) then check16() ; Excel Eurowährungstool deaktivieren
    If bitand (GUICtrlRead($Checkbox[17]), $GUI_CHECKED) then check17() ; Citrix-Einrichtung
    If bitand (GUICtrlRead($Checkbox[18]), $GUI_CHECKED) then check18()
    If bitand (GUICtrlRead($Checkbox[19]), $GUI_CHECKED) then check19() ; Druckwarteschlange neu starten
    If bitand (GUICtrlRead($Checkbox[20]), $GUI_CHECKED) then check20()
    If BitAND (GUICtrlRead($Checkbox[21]), $GUI_CHECKED) then check21()
    If BitAND (GUICtrlRead($Checkbox[22]), $GUI_CHECKED) then check22() ; Hardcopy Registrierung
    If BitAND (GUICtrlRead($Checkbox[24]), $GUI_CHECKED) then check24()
    If BitAND (GUICtrlRead($Checkbox[25]), $GUI_CHECKED) then check25()
    If BitAND (GUICtrlRead($Checkbox[23]), $GUI_CHECKED) then check23() ; Outlook-Einrichtung

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

    $reset = MsgBox(4, "Zurücksetzen der Auswahl", "Soll die Auswahl zurückgesetzt werden?") ; Möglichkeit die Auswahl zurück zu setzen nach den Installationen
    if $reset = 6 then ; wenn JA dann
    For $i = 1 To 25
    If BitAnd(GUICtrlRead($checkbox[$i]), $GUI_CHECKED) Then GUICtrlSetState($checkbox[$i], $GUI_UNCHECKED)
    Next
    EndIf
    EndFunc

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

    Func check1()
    RunWait("\\vwserver\netlogon\bk.bat")
    sleep(1000)
    EndFunc

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

    Func check2()
    RunWait("\\vwserver\apps\ElsaWin\client\SETUP.EXE -s")
    sleep(1000)
    EndFunc

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

    Func check3()
    RunWait(@ComSpec & " /c " & 'sc config sharedaccess start= auto', "", @SW_HIDE);sc config sharedaccess start= auto
    RunWait(@ComSpec & " /c " & 'sc start sharedaccess', "", @SW_HIDE) ;sc start sharedaccess
    runwait("c:\Programme\elsawin\bin\enable_elsa_xpsp2_DEU.bat")
    RunWait(@ComSpec & " /c " & 'sc stop sharedaccess', "", @SW_HIDE);sc stop sharedaccess
    RunWait(@ComSpec & " /c " & 'sc config sharedaccess start= disabled', "", @SW_HIDE);sc config sharedaccess start= disabled
    sleep(1000)
    EndFunc

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

    Func check4()
    RunWait("C:\Programme\elsawin\bin\SVGView.exe")
    sleep(1000)
    EndFunc

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

    Func check5()
    If @OSVersion = "WIN_7" then
    RunWait(@ComSpec & " /c " & 'RunDll32.exe shell32.dll,Control_RunDLL nusrmgr.cpl', "", @SW_HIDE) ;Benutzerkontenverwaltung öffnen Windows 7
    WinWaitActive( "Benutzerkonten")
    send("{tab}")
    sleep(200)
    send("{tab}")
    sleep(200)
    send("{space}")
    WinWaitActive( "Benutzerkonten" , "Verwenden Sie die unten stehende Liste" )
    Send("{ALTDOWN}H{ALTUP}")
    send($Benutzer_1)
    sleep(200)
    send("{tab}")
    sleep(200)
    send($Domaene)
    sleep(200)
    send("{enter}")
    sleep(200)
    send("{down}")
    sleep(200)
    send("{enter}")
    sleep(200)
    send("{enter}")
    sleep(500)
    Send("{ALTDOWN}{F4}{ALTUP}")
    sleep(1000)
    EndIf

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

    If @OSVersion = "WIN_XP" then
    RunWait(@ComSpec & " /c " & 'nusrmgr.cpl', "", @SW_HIDE) ;Benutzerkontenverwaltung öffnen Windows XP
    winwaitactive("Benutzerkonten")
    ControlClick( "Benutzerkonten", "Benutzer dieses Computers", "Button2" )
    sleep(200)
    send($Benutzer_1)
    sleep(200)
    send("{tab}")
    sleep(200)
    send($Domaene)
    sleep(200)
    send("{enter}")
    sleep(200)
    send("{down 2}")
    sleep(200)
    send("{tab}{up 9}")
    sleep(200)
    send("{enter}")
    sleep(200)
    ControlClick( "Benutzerkonten", "Benutzer dieses Computers", "Button7" )
    sleep(1000)
    EndIf
    EndFunc

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

    Func check5_1()
    $Benutzer_1 = InputBox ( "Benutzereinrichtung Windows", "Bitte geben Sie den Benutzernamen ein:" , "", "", 300, 100 )
    $Domaene = InputBox ( "Benutzereinrichtung Windows", "Bitte geben Sie die Domäne ein:" , "", "", 300, 100 )
    Return
    EndFunc

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

    Func check6()
    If @OSVersion = "WIN_7" then
    ShellExecute(@WindowsDir &'\Resources\Ease of Access Themes\classic.theme') ;2000er-Style Windows 7 öffnen
    sleep(1000)
    WinWait("Anpassung")
    send("{tab}")
    sleep(200)
    send("{space}")
    WinWait("Desktophintergrund")
    send("{tab}")
    sleep(200)
    send("{space}")
    WinWait("Farbe")
    send("{down}")
    sleep(200)
    send("{space}")
    sleep(200)
    send("{enter}")
    sleep(200)
    Send("{tab}")
    sleep(200)
    send("{space}")
    WinWait("Anpassung")
    Send("{ALTDOWN}{F4}{ALTUP}")
    sleep(1000)
    EndIf

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

    If @OSVersion = "WIN_XP" then
    ShellExecute(@WindowsDir &'\Resources\Themes\Windows Classic.theme') ;2000er-Style Windows XP öffnen
    sleep(200)
    send("{tab 5}")
    sleep(200)
    send("{RIGHT}")
    sleep(200)
    WinWait("Eigenschaften von Anzeige","List Of backgrounds")
    WinWait("Eigenschaften von Anzeige","List Of backgrounds")
    sleep(200)
    ControlClick("Eigenschaften von Anzeige","List Of backgrounds","Button2")
    sleep(200)
    send("{TAB}")
    sleep(200)
    send("{space}")
    sleep(200)
    send("{DOWN}")
    sleep(200)
    send("{space}")
    sleep(200)
    send("{ENTER}")
    sleep(200)
    ControlClick("Eigenschaften von Anzeige","List Of backgrounds","Button6")
    sleep(200)
    ControlClick("Eigenschaften von Anzeige","List Of backgrounds","Button4")
    sleep(1000)
    EndIf
    EndFunc

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

    Func check7()
    RunWait("\\10.57.196.130\groups\Admin\Software\Kaspersky\setup_WKS_MP4.exe /s")
    sleep(1000)
    EndFunc

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

    Func check8()
    If @OSVersion = "WIN_7" then
    ShellExecute(@WindowsDir &'\Resources\Ease of Access Themes\classic.theme') ;2000er-Style Windows 7 öffnen
    sleep(1000)
    Send("{ALTDOWN}{F4}{ALTUP}")
    sleep(1000)
    EndIf

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

    If @OSVersion = "WIN_XP" then
    ShellExecute(@WindowsDir &'\Resources\Themes\Windows Classic.theme') ;2000er-Style
    WinWait('Eigenschaften von Anzeige')
    ControlClick('Eigenschaften von Anzeige', '', 'Button3')
    sleep(1000)
    EndIf
    EndFunc

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

    Func check9()
    RunWait("c:\Programme\Bginfo\Bginfo.exe /timer:0 /NOLICPROMPT c:\Programme\Bginfo\sysdata2.bgi")
    sleep(1000)
    EndFunc

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

    Func check10()
    run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
    AutoItSetOption (Opt("WinTitleMatchMode", 1))
    WinWait( "Volkswagen AG Internationales Händlerportal - Windows Internet Explorer" )
    Send("{ALTDOWN}x{ALTUP}")
    sleep(200)
    send("o")
    WinWait( "Internetoptionen" )
    send("+{tab}")
    send("{up}")
    send("{right 2}")
    send("{tab}")
    send("{down 100}")
    send("{up 10}")
    sleep(1000)
    send("{space}")
    send("{enter}")
    WinWait( "Volkswagen AG Internationales Händlerportal - Windows Internet Explorer" )
    Send("{ALTDOWN}D{ALTUP}")
    sleep(200)
    send("e")
    sleep(200)
    if WinGetHandle( "Internet Explorer") Then
    send("{enter}")
    EndIf
    sleep(1000)
    EndFunc

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

    Func check11()
    $java = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment", "Java6FamilyVersion") ; Prüfung der Java-Version
    MsgBox(64, "Java-Version", "Java-Version ist:" & $java, 5)
    if $java = "" Then Return 0 & MsgBox(16, "Java-Version", "Keine gültige Java-Version! (Betriebssystem 64-Bit?)", 5)

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

    if $java = "1.6.0_29" Then
    Runwait(@ProgramFilesDir & "\Java\jre6\bin\javacpl.exe")
    winwaitactive( "Java Control Panel" )
    send("{right}")
    sleep(200)
    send("{right}")
    sleep(200)
    send("{right}")
    sleep(200)
    send("{tab}")
    sleep(200)
    send("{down}")
    sleep(200)
    send("{down}")
    sleep(200)
    send("{down}")
    sleep(200)
    send("{down}")
    sleep(200)
    send("{down}")
    sleep(200)
    send("{down}")
    sleep(200)
    send("{down}")
    sleep(200)
    send("{down}")
    sleep(200)
    send("{right}")
    sleep(200)
    send("{down}")
    sleep(200)
    send("{down}")
    sleep(200)
    send("{down}")
    sleep(200)
    send("{space}")
    sleep(200)
    send("{enter}")
    sleep(1000)
    Else
    If $java = "1.6.0_1" OR "1.6.0_2" OR "1.6.0_3" OR "1.6.0_4" OR "1.6.0_5" OR "1.6.0_6" OR "1.6.0_7" OR "1.6.0_8" OR "1.6.0_9" _
    OR "1.6.0_10" OR "1.6.0_11" OR "1.6.0_12" OR "1.6.0_13" OR "1.6.0_14" OR "1.6.0_15" OR "1.6.0_16" OR "1.6.0_17" OR "1.6.0_18" _
    OR "1.6.0_19" OR "1.6.0_20" OR "1.6.0_21" OR "1.6.0_22" OR "1.6.0_23" OR "1.6.0_24" OR "1.6.0_25" OR "1.6.0_26" OR "1.6.0_27" Then
    Runwait(@ProgramFilesDir & "\Java\jre6\bin\javacpl.exe")
    winwaitactive( "Java Control Panel" )
    sleep(200)
    send("{right}")
    sleep(200)
    send("{tab 2}")
    sleep(200)
    send("{space}")
    sleep(200)
    send("{tab}")
    sleep(200)
    send("{enter}")
    sleep(200)
    send("{enter}")
    sleep(1000)
    EndIf
    EndIf
    EndFunc

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

    Func check12()
    run(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe")
    sleep(2000)
    $sProzess = "firefox.exe"
    RunWait(@ComSpec & " /c " & "taskkill /F /IM "&$sProzess,"",@SW_HIDE)
    sleep(2000)
    $sProzess = "firefox.exe"
    RunWait(@ComSpec & " /c " & "taskkill /F /IM "&$sProzess,"",@SW_HIDE)
    sleep(5000)
    RunWait("\\vwserver\netlogon\firefox_install.exe")
    AutoItSetOption (Opt("WinTitleMatchMode", 1))
    WinWaitActive("Nachrichtendienst")
    send("{enter}")
    sleep(1000)
    EndFunc

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

    Func check13()
    run(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe")
    sleep(2000)
    $sProzess = "firefox.exe"
    RunWait(@ComSpec & " /c " & "taskkill /F /IM "&$sProzess,"",@SW_HIDE)
    sleep(2000)
    run(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe")
    AutoItSetOption (Opt("WinTitleMatchMode", 2))
    WinWaitActive("Mozilla")
    Send("{ALTDOWN}x{ALTUP}ee{enter}")
    AutoItSetOption (Opt("WinTitleMatchMode", 1))
    WinWaitActive("Einstellungen")
    send("{right}{right}")
    sleep(200)
    send("{ALTDOWN}a{ALTUP}")
    WinWaitActive("Berechtigte Websites - Pop-ups")
    send("10.58.60.72{enter}")
    Send("{ALTDOWN}c{ALTUP}")
    send("{tab}{enter}")
    AutoItSetOption (Opt("WinTitleMatchMode", 2))
    WinWaitActive("Mozilla")
    Send("{ALTDOWN}d{ALTUP}b")
    AutoItSetOption (Opt("WinTitleMatchMode", 1))
    sleep(1000)
    EndFunc

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

    Func check14()
    run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
    AutoItSetOption (Opt("WinTitleMatchMode", 1))
    WinWait( "Volkswagen AG Internationales Händlerportal - Windows Internet Explorer" )
    Send("{ALTDOWN}d{ALTUP}f")
    sleep(200)
    send("www.ebay.de{enter}")
    sleep(5000)
    If WinGetHandle( "Verbindung herstellen mit 10.112.254.71" ) Then
    send("DE470070.000")
    send("{tab}")
    send("avp-net")
    send("{tab}")
    send("{space}")
    send("{enter}")
    else
    Send("{ALTDOWN}x{ALTUP}o")
    WinWait( "Internetoptionen" )
    send("+{tab}")
    send("{up}")
    ControlClick('Internetoptionen', 'Klicken Sie auf "Einrichten", um eine', 'Button10')
    Send("{ALTDOWN}s{ALTUP}")
    sleep(200)
    Send("{ALTDOWN}a{ALTUP}")
    send("http://iproxy:8080/")
    sleep(200)
    send("{tab 2}{enter}")
    Winwait( "Internetoptionen" )
    ControlClick('Internetoptionen', 'Klicken Sie auf "Einrichten", um eine', 'Button11')
    sleep(500)
    Send("{ALTDOWN}d{ALTUP}f")
    sleep(200)
    send("www.ebay.de{enter}")
    sleep(5000)
    if WinGetHandle( "Verbindung herstellen mit 10.112.254.71" ) Then
    send("DE470070.000")
    send("{tab}")
    send("avp-net")
    send("{tab}")
    send("{space}")
    send("{enter}")
    sleep(2000)
    EndIf
    EndIf
    Send("{ALTDOWN}x{ALTUP}")
    sleep(200)
    send("o")
    WinWait( "Internetoptionen" )
    send("+{tab}")
    send("{up}")
    send("{right 2}")
    send("{tab}")
    send("{down 100}")
    send("{up 10}")
    sleep(1000)
    send("{space}")
    send("{enter}")
    sleep(500)
    Send("{ALTDOWN}D{ALTUP}")
    sleep(200)
    send("e")
    sleep(200)
    AutoItSetOption (Opt("WinTitleMatchMode", 1))
    if WinGetHandle( "Internet Explorer") Then
    send("{enter}")
    EndIf
    sleep(1000)
    EndFunc

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

    Func check15()
    RunWait("\\10.57.196.130\groups\Admin\Software\flashplayer_10_0_45_2_ie.exe /s")
    sleep(1000)
    EndFunc

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

    Func check16()
    AutoItSetOption (Opt("WinTitleMatchMode", 2))
    Run(@ProgramFilesDir & "\Microsoft Office\OFFICE11\excel.exe")
    sleep(15000) ; 15 Sekunden warten dann prüfen ob Fenster "Benutzername" aktiv ist.
    if WinGetHandle( "Benutzername" ) Then
    send("{tab}{DEL}{enter}")
    EndIf
    AutoItSetOption (Opt("WinTitleMatchMode", 1))
    WinWait( "Microsoft Excel - Mappe1" )
    Send("{ALTDOWN}x{ALTUP}i")
    WinWait( "Add-Ins" )
    send("{space}")
    send("{tab}")
    send("{enter}")
    WinWait( "Microsoft Excel - Mappe1" )
    Send("{ALTDOWN}d{ALTUP}b")
    sleep(1000)
    EndFunc

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

    Func check17()
    run(@ProgramFilesDir & "\Citrix\ICA Client\pn.exe")
    AutoItSetOption (Opt("WinTitleMatchMode", 2))
    WinWaitActive( "Citrix" )
    AutoItSetOption (Opt("WinTitleMatchMode", 1))
    if WinGetHandle( "AVP Deggendorf") Then
    sleep(500)
    send($Benutzer_2)
    send("{tab}")
    sleep(500)
    send($Kennwort_2)
    send("{tab}DE47007X")
    sleep(500)
    send("{tab}{Space}")
    sleep(500)
    send("{enter}")
    sleep(500)
    WinWaitActive( "Citrix Program Neighborhood - AVP Deggendorf" )
    send("{ALTDOWN}d{ALTUP}s")
    Else
    send("{ALTDOWN}a{ALTUP}b")
    sleep(500)
    send("{enter}")
    sleep(500)
    send("{down}{enter}")
    sleep(500)
    Send("AVP Deggendorf")
    sleep(500)
    send("{tab}")
    sleep(500)
    Send("AVP Deggendorf")
    sleep(500)
    send("{enter}")
    sleep(500)
    send("{ALTDOWN}w{ALTUP}")
    sleep(500)
    send("{enter}")
    sleep(500)
    send("{enter}")
    AutoItSetOption (Opt("WinTitleMatchMode", 1))
    sleep(5000)
    WinWaitActive( "AVP Deggendorf FEHLER" )
    send("{enter}")
    sleep(500)
    WinWaitActive( "Citrix Program Neighborhood - AVP Deggendorf" )
    send("{ALTDOWN}d{ALTUP}n")
    sleep(500)
    WinWaitActive( "AVP Deggendorf" )
    send("{enter}")
    sleep(500)
    send("{ALTDOWN}a{ALTUP}a")
    sleep(700)
    WinWaitActive( "AVP Deggendorf" )
    send($Benutzer_2)
    sleep(700)
    send("{tab}")
    sleep(700)
    send($Kennwort_2)
    sleep(700)
    send("{tab}")
    sleep(700)
    send("DE47007X")
    sleep(700)
    send("{tab}{Space}")
    sleep(500)
    send("{enter}")
    sleep(500)
    WinWaitActive( "Citrix Program Neighborhood - AVP Deggendorf" )
    send("{ALTDOWN}d{ALTUP}s")
    sleep(1000)
    if WinGetHandle( "Benutzername" ) Then
    send("{tab}{DEL}{enter}")
    EndIf
    sleep(1000)
    EndIf
    EndFunc

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

    Func check17_1()
    $Benutzer_2 = InputBox ( "Benutzereinrichtung Citrix", "Bitte geben Sie den Benutzernamen ein:" , "", "", 300, 100 )
    $Kennwort_2 = InputBox ( "Benutzereinrichtung Citrix", "Bitte geben Sie das Kennwort ein:" , "", "*", 300, 100 )
    Return
    EndFunc

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

    Func check18()
    RunWait("\\10.57.196.130\groups\Admin\Software\Autohotkey\opticlient_fehler.exe")
    sleep(1000)
    EndFunc

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

    Func check19()
    RunWait(@ComSpec & " /c " & 'net stop TCP/IP-Druckserver', "", @SW_HIDE);net stop TCP/IP-Druckserver
    RunWait(@ComSpec & " /c " & 'net stop Druckwarteschlange', "", @SW_HIDE);net stop Druckwarteschlange
    RunWait(@ComSpec & " /c " & 'net start TCP/IP-Druckserver', "", @SW_HIDE);net start TCP/IP-Druckserver
    RunWait(@ComSpec & " /c " & 'net start Druckwarteschlange', "", @SW_HIDE);net start Druckwarteschlange
    sleep(1000)
    EndFunc

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

    Func check20()
    RunWait("\\10.57.196.250\SAPGui\SAPGui_710_AVP_Standard.bat")
    sleep(1000)
    EndFunc

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

    Func check21()
    FileCopy ( "\\10.57.196.250\SAPGui\saplogon.ini", "C:\Windows\" , 1);SAP Logon kopieren
    sleep(1000)
    EndFunc

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

    Func check22()
    $sProzess = "hardcopy.exe"
    RunWait(@ComSpec & " /c " & "taskkill /F /IM "&$sProzess,"",@SW_HIDE)
    sleep(2000)
    run(@ProgramFilesDir & "\Hardcopy\hardcopy.exe")
    AutoItSetOption (Opt("WinTitleMatchMode", 1))
    WinWaitActive( "Hardcopy Registrierung" )
    send("2011")
    sleep(200)
    send("{tab}")
    sleep(200)
    send("12131415")
    sleep(200)
    send("{enter}")
    sleep(200)
    send("{enter}")
    sleep(1000)
    EndFunc

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

    Func check23()
    run(@ProgramFilesDir & "\Microsoft Office\OFFICE11\outlook.exe")
    AutoItSetOption (Opt("WinTitleMatchMode", 1))
    WinWaitActive( "Outlook 2003-Start" )
    send("{enter}")
    sleep(200)
    send("{ALTDOWN}j{ALTUP}")
    sleep(200)
    send("{ALTDOWN}w{ALTUP}")
    sleep(200)
    WinWaitActive( "E-Mail-Konten" )
    send("{ALTDOWN}m{ALTUP}")
    sleep(200)
    send("{ALTDOWN}w{ALTUP}")
    sleep(200)
    ;WinWaitActive( "E-Mail-Konten" , "Exchange Server-Einstellungen" )
    send("10.58.60.124")
    sleep(200)
    send("{tab}")
    sleep(200)
    send("{space}")
    sleep(200)
    send("{tab}")
    sleep(200)
    send($Alias_3)
    sleep(200)
    send("{ALTDOWN}w{ALTUP}")
    sleep(500)
    ;WinWaitActive( "E-Mail-Konten" , "Kontoeinrichtung abgeschlossen!" )
    send("{enter}")
    sleep(200)
    AutoItSetOption (Opt("WinTitleMatchMode", 2))
    WinWaitActive( "Verbindung" )
    AutoItSetOption (Opt("WinTitleMatchMode", 1))
    send("DE470070\")
    sleep(200)
    send($Benutzer_3)
    sleep(200)
    send("{tab}")
    sleep(200)
    send($Kennwort_3)
    sleep(200)
    send("{enter}")
    sleep(1000)
    EndFunc

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

    Func check23_1()
    $Benutzer_3 = InputBox ( "Benutzereinrichtung Outlook", "Bitte geben Sie den Benutzernamen ein:" , "", "", 300, 100 )
    $Kennwort_3 = InputBox ( "Benutzereinrichtung Outlook", "Bitte geben Sie das Kennwort ein:" , "", "*", 300, 100 )
    $Alias_3 = InputBox ( "Benutzereinrichtung Outlook", "Bitte geben Sie die Alias der E-Mail-Adresse (Vorname.Nachname) ein:" , "", "", 300, 125 )
    Return
    EndFunc

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

    Func check24()
    DriveMapDel("Z:")
    DriveMapAdd("Z:", "\\192.168.0.2\inst" , 0, "domaene\administrator", "admin_pwd")
    Run("Z:\TKP_7.12\soft-nrg.client.installer.3.1.11(VW).exe")
    WinWaitActive( "Choose Destination Location" )
    send("{enter}")
    sleep(1000)
    send("{enter}")
    WinWaitActive( "Shortcutname" )
    send("{enter}")
    AutoItSetOption (Opt("WinTitleMatchMode", 1))
    WinWaitActive( "Finished" )
    send("{enter}")
    DriveMapDel("Z:")
    EndFunc

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

    Func check25()
    Run("\\vwserver\vwinst\TKP_7.12\soft-nrg.client.installer.3.1.11(VW).exe")
    WinWaitActive( "Choose Destination Location" )
    send("{enter}")
    sleep(1000)
    send("{enter}")
    WinWaitActive( "Shortcutname" )
    send("{enter}")
    AutoItSetOption (Opt("WinTitleMatchMode", 1))
    WinWaitActive( "Finished" )
    send("{enter}")
    EndFunc

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

    Func resetbutton() ; prüft ob die Checkboxen ausgewählt sind und setzt die ausgewählten zurück.
    For $i = 1 To 25
    If BitAnd(GUICtrlRead($checkbox[$i]), $GUI_CHECKED) Then GUICtrlSetState($checkbox[$i], $GUI_UNCHECKED)
    Next
    EndFunc

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

    Func endebutton() ; beendet das Installationsmenü
    Exit
    EndFunc

    [/autoit]

    Sorry aber es hat sich kaum etwas geändert :D man hat einfach ueberhaupt keine Uebersicht und ich habe versucht die Progressbar einzubauen aber sobald ich eine Funktion versuche anders aufzurufen zb in einer Schleife schmeist er mir aufgrund dieser Verschachtelung der Funktionen inneinander nur Error Meldungen 8| wundert mich auch nicht..

    // Funktionsnamen sollten im Normalfall selbsterklärend sein :) d.h. unter Checked20 denke ich dass du nicht mal selber weißt welche installation sich dahinter verbirgt ohne zu schauen welche Exe er dann nun ausführt :D
    Gruß Marvin

    Zitat von Protex

    Sorry aber es hat sich kaum etwas geändert :D man hat einfach ueberhaupt keine Uebersicht und ich habe versucht die Progressbar einzubauen aber sobald ich eine Funktion versuche anders aufzurufen zb in einer Schleife schmeist er mir aufgrund dieser Verschachtelung der Funktionen inneinander nur Error Meldungen 8| wundert mich auch nicht..

    // Funktionsnamen sollten im Normalfall selbsterklärend sein :) d.h. unter Checked20 denke ich dass du nicht mal selber weißt welche installation sich dahinter verbirgt ohne zu schauen welche Exe er dann nun ausführt :D
    Gruß Marvin


    wobei die Funktionen eigentlich (größtenteils) eigenständig sind? ?( klar die Startfunktion liegt über allen anderen...aber wie kann man sowas anders lösen?

    ansonsten gibt es 3 Funktionen die jeweils nochmal eine 2te Funktion haben um eine Benutzereingabe am Anfang anzufordern (und nicht erst wenn die eigentliche Funktion in aktion tritt). Ich hätte jetzt keine Ahnung wie ich das anders lösen sollte/könnte...die Benutzereingabe brauche ich definitiv gleich nach dem Start damit der Rest unbeaufsichtigt ablaufen kann :(

    die benennung könnte ich bei gelegenheit nochmal ändern....aber bisher komm ich damit recht gut klar ;)

    Hier nurmal für die ersten sechs Werte, keine Lust für alle zu schreiben ;).

    Ungetestet:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

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

    Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus
    $Form1_1 = GUICreate("AVP Installationsmenü", 451, 525, 287, 194)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked") ; deklariert das beim klicken des X die Funktion "Closeclicked" geschehen soll
    $Group1 = GUICtrlCreateGroup("Elsa Installation", 24, 48, 194, 105)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    Global $Checkbox[26], $nMsg
    $Checkbox[1] = GUICtrlCreateCheckbox("BK.bat starten", 248, 344, 160, 17)
    $Checkbox[2] = GUICtrlCreateCheckbox("Elsa installieren", 32, 72, 160, 17)
    $Checkbox[3] = GUICtrlCreateCheckbox("Elsa Anpassungen", 32, 96, 160, 17)
    $Checkbox[4] = GUICtrlCreateCheckbox("SVGView installieren", 32, 120, 160, 17)
    $Checkbox[5] = GUICtrlCreateCheckbox("Benutzer einrichten", 248, 72, 160, 17)
    $Checkbox[6] = GUICtrlCreateCheckbox("BS-Hintergrund rot", 248, 96, 160, 17)
    $Checkbox[7] = GUICtrlCreateCheckbox("Kaspersky installieren", 248, 392, 160, 17)
    $Checkbox[8] = GUICtrlCreateCheckbox("BS-Hintergrund klassisch", 248, 120, 160, 17)
    $Checkbox[9] = GUICtrlCreateCheckbox("BGInfo starten", 248, 368, 160, 17)
    $Checkbox[10] = GUICtrlCreateCheckbox("IE SSL 2.0", 32, 352, 160, 17)
    $Checkbox[11] = GUICtrlCreateCheckbox("Java Update deaktivieren", 248, 168, 160, 17)
    $Checkbox[12] = GUICtrlCreateCheckbox("FF Profil-Installation", 32, 304, 160, 17)
    $Checkbox[13] = GUICtrlCreateCheckbox("Popup-Blocker Archiv", 32, 328, 160, 17)
    $Checkbox[14] = GUICtrlCreateCheckbox("IE SSL 2.0 + Proxy Kennwort", 32, 376, 184, 17)
    $Checkbox[15] = GUICtrlCreateCheckbox("Flash-Player IE installieren", 32, 400, 160, 17)
    $Checkbox[16] = GUICtrlCreateCheckbox("€-Währungstool deaktivieren", 248, 144, 160, 17)
    $Checkbox[17] = GUICtrlCreateCheckbox("Citrix-Einrichtung", 248, 192, 160, 17)
    $Checkbox[18] = GUICtrlCreateCheckbox("Opticlient Fehler beheben", 248, 216, 160, 17)
    $Checkbox[19] = GUICtrlCreateCheckbox("Druckwarteschl. neustarten", 248, 464, 160, 17)
    $Checkbox[20] = GUICtrlCreateCheckbox("SAP Buchhaltung installieren", 32, 200, 160, 17)
    $Checkbox[21] = GUICtrlCreateCheckbox("SAP Logon einrichten", 32, 224, 160, 17)
    $Checkbox[22] = GUICtrlCreateCheckbox("Hardcopy registrieren", 248, 240, 160, 17)
    $Checkbox[23] = GUICtrlCreateCheckbox("Outlook einrichten", 248, 264, 160, 17)
    $Checkbox[24] = GUICtrlCreateCheckbox("TKP Client inst. in DEG", 248, 416, 160, 17)
    $Checkbox[25] = GUICtrlCreateCheckbox("TKP Client inst. im Standort", 248, 440, 160, 17)

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

    $Group2 = GUICtrlCreateGroup("SAP Installation", 24, 176, 194, 81)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group3 = GUICtrlCreateGroup("Browser Installation", 24, 280, 194, 153)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group4 = GUICtrlCreateGroup("Benutzer-Profil", 240, 48, 194, 249)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group5 = GUICtrlCreateGroup("Sonstiges", 240, 320, 194, 177)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    $Button3 = GUICtrlCreateButton("Zurücksetzen", 24, 485, 90, 25)
    $Button2 = GUICtrlCreateButton("Beenden", 128, 485, 90, 25)
    $Button1 = GUICtrlCreateButton("Start", 24, 450, 194, 25)

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

    $Label1 = GUICtrlCreateLabel("Welche Installationen sollen durchgeführt werden?", 32, 16, 243, 17)

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

    GUISetState(@SW_SHOW, $Form1_1)

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

    GUICtrlSetOnEvent($Button1, "startbutton") ;deklariert das die Funktion "startbutton" geschehen soll wenn der Button gedrückt wird.
    GUICtrlSetOnEvent($Button2, "endebutton") ;deklariert das die Funktion "endebutton" geschehen soll wenn der Button gedrückt wird.
    GUICtrlSetOnEvent($Button3, "resetbutton") ;deklariert das die Funktion "resetbutton" geschehen soll wenn der Button gedrückt wird.
    HotKeySet("^!x", "endebutton") ; Notfall-Exit per STRG + ALT + X

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

    #include <GUIConstantsEx.au3>
    #include <ProgressConstants.au3>
    #include <WindowsConstants.au3>
    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 399, 44, 192, 134)
    $Progress1 = GUICtrlCreateProgress(8, 16, 358, 17)
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

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

    While 1
    Sleep(1000) ; Im Leerlauf bummeln
    WEnd

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

    Func CLOSEClicked() ;schliesst beim klicken des X das Fenster
    Exit
    EndFunc ;==>CLOSEClicked

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

    Func startbutton() ; startet den Ablauf der Installationen nach Prüfung ob die Checkboxen ausgewählt wurden
    MsgBox(48, "Installationsstart", "Die ausgewählten Installationen starten nun!" & @CR & @CR & "Ein Abbruch ist über STRG + ALT + X möglich!")

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

    Global $Benutzer_1, $Domaene
    Global $Benutzer_2, $Kennwort_2
    Global $Benutzer_3, $Kennwort_3, $Alias_3

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

    If BitAND(GUICtrlRead($Checkbox[5]), $GUI_CHECKED) And BitAND(GUICtrlRead($Checkbox[17]), $GUI_CHECKED) Then ; prüft ob die Auswahl plausibel ist und gibt falls dem nicht so ist eine Fehlermeldung aus und bricht ab.
    MsgBox(16, "Fehler bei der Auswahl", "Die Punkte Benutzer einrichten und Citrix-Einrichtung" & @CR & "können nicht zusammen ausgewählt werden." & @CR & @CR & "Der Ablauf wird abgebrochen!")
    Return 0
    EndIf

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

    If BitAND(GUICtrlRead($Checkbox[6]), $GUI_CHECKED) And BitAND(GUICtrlRead($Checkbox[8]), $GUI_CHECKED) Then ; prüft ob die Auswahl plausibel ist und gibt falls dem nicht so ist eine Fehlermeldung aus und bricht ab.
    MsgBox(16, "Fehler bei der Auswahl", "Die Punkte BS-Hintergrund rot und BS-Hintergrund klassisch" & @CR & "können nicht zusammen ausgewählt werden." & @CR & @CR & "Der Ablauf wird abgebrochen!")
    Return 0
    EndIf

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

    If BitAND(GUICtrlRead($Checkbox[24]), $GUI_CHECKED) And BitAND(GUICtrlRead($Checkbox[25]), $GUI_CHECKED) Then ; prüft ob die Auswahl plausibel ist und gibt falls dem nicht so ist eine Fehlermeldung aus und bricht ab.
    MsgBox(16, "Fehler bei der Auswahl", "Eine TKP Installation in DEG und im auswärtigen Standort" & @CR & "ist nicht plausibel!" & @CR & @CR & "Der Ablauf wird abgebrochen!")
    Return 0
    EndIf

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

    $augewaehlt = 0
    For $i = 1 To UBound($Checkbox) - 1
    If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then
    $augewaehlt = $augewaehlt + 1
    EndIf
    Next

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

    $prozentwert = 100 / $augewaehlt
    $prozentpos = 0

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

    If BitAND(GUICtrlRead($Checkbox[5]), $GUI_CHECKED) Then check5_1() ; Variablen mit Benutzerdaten für lokale Installation als Administrator füllen
    If BitAND(GUICtrlRead($Checkbox[17]), $GUI_CHECKED) Then check17_1() ; Variablen mit Benutzerdaten für Citrix-Installation füllen
    If BitAND(GUICtrlRead($Checkbox[23]), $GUI_CHECKED) Then check23_1() ; Variablen mit Benutzerdaten für Outlook-Einrichtung füllen

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

    If BitAND(GUICtrlRead($Checkbox[1]), $GUI_CHECKED) Then
    check1()
    $prozentpos = $prozentpos + $prozentpos
    GUICtrlSetData($Progress1, $prozentpos)
    EndIf
    If BitAND(GUICtrlRead($Checkbox[2]), $GUI_CHECKED) Then
    check2()
    $prozentpos = $prozentpos + $prozentpos
    GUICtrlSetData($Progress1, $prozentpos)
    EndIf
    If BitAND(GUICtrlRead($Checkbox[3]), $GUI_CHECKED) Then
    check3() ;Elsa-Anpassungen vornehmen
    $prozentpos = $prozentpos + $prozentpos
    GUICtrlSetData($Progress1, $prozentpos)
    EndIf
    If BitAND(GUICtrlRead($Checkbox[4]), $GUI_CHECKED) Then
    check4()
    $prozentpos = $prozentpos + $prozentpos
    GUICtrlSetData($Progress1, $prozentpos)
    EndIf
    If BitAND(GUICtrlRead($Checkbox[5]), $GUI_CHECKED) Then
    check5() ; Benutzer lokal als Administrator einrichten (Verwendet Variablen von weiter oben!)
    $prozentpos = $prozentpos + $prozentpos
    GUICtrlSetData($Progress1, $prozentpos)
    EndIf
    If BitAND(GUICtrlRead($Checkbox[6]), $GUI_CHECKED) Then
    check6() ;Bildschirmhintergrund rot
    $prozentpos = $prozentpos + $prozentpos
    GUICtrlSetData($Progress1, $prozentpos)
    EndIf
    If BitAND(GUICtrlRead($Checkbox[7]), $GUI_CHECKED) Then check7()
    If BitAND(GUICtrlRead($Checkbox[8]), $GUI_CHECKED) Then check8() ;Bildschirmhintergrund Klassisch
    If BitAND(GUICtrlRead($Checkbox[9]), $GUI_CHECKED) Then check9()
    If BitAND(GUICtrlRead($Checkbox[10]), $GUI_CHECKED) Then check10() ; SSl 2.0 im IE aktivieren
    If BitAND(GUICtrlRead($Checkbox[11]), $GUI_CHECKED) Then check11() ; Java-Update deaktivieren Java-Version 6.0.1 bis 6.0.27 + 6.0.29
    If BitAND(GUICtrlRead($Checkbox[12]), $GUI_CHECKED) Then check12() ;Firefox-Profilinstallation
    If BitAND(GUICtrlRead($Checkbox[13]), $GUI_CHECKED) Then check13() ;Firefox Popup-Blocker für 10.58.60.72 deaktivieren
    If BitAND(GUICtrlRead($Checkbox[14]), $GUI_CHECKED) Then check14() ; iproxy prüfen und SSl 2.0 im IE aktivieren
    If BitAND(GUICtrlRead($Checkbox[15]), $GUI_CHECKED) Then check15()
    If BitAND(GUICtrlRead($Checkbox[16]), $GUI_CHECKED) Then check16() ; Excel Eurowährungstool deaktivieren
    If BitAND(GUICtrlRead($Checkbox[17]), $GUI_CHECKED) Then check17() ; Citrix-Einrichtung
    If BitAND(GUICtrlRead($Checkbox[18]), $GUI_CHECKED) Then check18()
    If BitAND(GUICtrlRead($Checkbox[19]), $GUI_CHECKED) Then check19() ; Druckwarteschlange neu starten
    If BitAND(GUICtrlRead($Checkbox[20]), $GUI_CHECKED) Then check20()
    If BitAND(GUICtrlRead($Checkbox[21]), $GUI_CHECKED) Then check21()
    If BitAND(GUICtrlRead($Checkbox[22]), $GUI_CHECKED) Then check22() ; Hardcopy Registrierung
    If BitAND(GUICtrlRead($Checkbox[24]), $GUI_CHECKED) Then check24()
    If BitAND(GUICtrlRead($Checkbox[25]), $GUI_CHECKED) Then check25()
    If BitAND(GUICtrlRead($Checkbox[23]), $GUI_CHECKED) Then check23() ; Outlook-Einrichtung

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

    $reset = MsgBox(4, "Zurücksetzen der Auswahl", "Soll die Auswahl zurückgesetzt werden?") ; Möglichkeit die Auswahl zurück zu setzen nach den Installationen
    If $reset = 6 Then ; wenn JA dann
    For $i = 1 To 25
    If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then GUICtrlSetState($Checkbox[$i], $GUI_UNCHECKED)
    Next
    EndIf
    EndFunc ;==>startbutton

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

    Func check1()
    RunWait("\\vwserver\netlogon\bk.bat")
    Sleep(1000)
    EndFunc ;==>check1

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

    Func check2()
    RunWait("\\vwserver\apps\ElsaWin\client\SETUP.EXE -s")
    Sleep(1000)
    EndFunc ;==>check2

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

    Func check3()
    RunWait(@ComSpec & " /c " & 'sc config sharedaccess start= auto', "", @SW_HIDE);sc config sharedaccess start= auto
    RunWait(@ComSpec & " /c " & 'sc start sharedaccess', "", @SW_HIDE) ;sc start sharedaccess
    RunWait("c:\Programme\elsawin\bin\enable_elsa_xpsp2_DEU.bat")
    RunWait(@ComSpec & " /c " & 'sc stop sharedaccess', "", @SW_HIDE);sc stop sharedaccess
    RunWait(@ComSpec & " /c " & 'sc config sharedaccess start= disabled', "", @SW_HIDE);sc config sharedaccess start= disabled
    Sleep(1000)
    EndFunc ;==>check3

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

    Func check4()
    RunWait("C:\Programme\elsawin\bin\SVGView.exe")
    Sleep(1000)
    EndFunc ;==>check4

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

    Func check5()
    If @OSVersion = "WIN_7" Then
    RunWait(@ComSpec & " /c " & 'RunDll32.exe shell32.dll,Control_RunDLL nusrmgr.cpl', "", @SW_HIDE) ;Benutzerkontenverwaltung öffnen Windows 7
    WinWaitActive("Benutzerkonten")
    Send("{tab}")
    Sleep(200)
    Send("{tab}")
    Sleep(200)
    Send("{space}")
    WinWaitActive("Benutzerkonten", "Verwenden Sie die unten stehende Liste")
    Send("{ALTDOWN}H{ALTUP}")
    Send($Benutzer_1)
    Sleep(200)
    Send("{tab}")
    Sleep(200)
    Send($Domaene)
    Sleep(200)
    Send("{enter}")
    Sleep(200)
    Send("{down}")
    Sleep(200)
    Send("{enter}")
    Sleep(200)
    Send("{enter}")
    Sleep(500)
    Send("{ALTDOWN}{F4}{ALTUP}")
    Sleep(1000)
    EndIf

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

    If @OSVersion = "WIN_XP" Then
    RunWait(@ComSpec & " /c " & 'nusrmgr.cpl', "", @SW_HIDE) ;Benutzerkontenverwaltung öffnen Windows XP
    WinWaitActive("Benutzerkonten")
    ControlClick("Benutzerkonten", "Benutzer dieses Computers", "Button2")
    Sleep(200)
    Send($Benutzer_1)
    Sleep(200)
    Send("{tab}")
    Sleep(200)
    Send($Domaene)
    Sleep(200)
    Send("{enter}")
    Sleep(200)
    Send("{down 2}")
    Sleep(200)
    Send("{tab}{up 9}")
    Sleep(200)
    Send("{enter}")
    Sleep(200)
    ControlClick("Benutzerkonten", "Benutzer dieses Computers", "Button7")
    Sleep(1000)
    EndIf
    EndFunc ;==>check5

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

    Func check5_1()
    $Benutzer_1 = InputBox("Benutzereinrichtung Windows", "Bitte geben Sie den Benutzernamen ein:", "", "", 300, 100)
    $Domaene = InputBox("Benutzereinrichtung Windows", "Bitte geben Sie die Domäne ein:", "", "", 300, 100)
    Return
    EndFunc ;==>check5_1

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

    Func check6()
    If @OSVersion = "WIN_7" Then
    ShellExecute(@WindowsDir & '\Resources\Ease of Access Themes\classic.theme') ;2000er-Style Windows 7 öffnen
    Sleep(1000)
    WinWait("Anpassung")
    Send("{tab}")
    Sleep(200)
    Send("{space}")
    WinWait("Desktophintergrund")
    Send("{tab}")
    Sleep(200)
    Send("{space}")
    WinWait("Farbe")
    Send("{down}")
    Sleep(200)
    Send("{space}")
    Sleep(200)
    Send("{enter}")
    Sleep(200)
    Send("{tab}")
    Sleep(200)
    Send("{space}")
    WinWait("Anpassung")
    Send("{ALTDOWN}{F4}{ALTUP}")
    Sleep(1000)
    EndIf

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

    If @OSVersion = "WIN_XP" Then
    ShellExecute(@WindowsDir & '\Resources\Themes\Windows Classic.theme') ;2000er-Style Windows XP öffnen
    Sleep(200)
    Send("{tab 5}")
    Sleep(200)
    Send("{RIGHT}")
    Sleep(200)
    WinWait("Eigenschaften von Anzeige", "List Of backgrounds")
    WinWait("Eigenschaften von Anzeige", "List Of backgrounds")
    Sleep(200)
    ControlClick("Eigenschaften von Anzeige", "List Of backgrounds", "Button2")
    Sleep(200)
    Send("{TAB}")
    Sleep(200)
    Send("{space}")
    Sleep(200)
    Send("{DOWN}")
    Sleep(200)
    Send("{space}")
    Sleep(200)
    Send("{ENTER}")
    Sleep(200)
    ControlClick("Eigenschaften von Anzeige", "List Of backgrounds", "Button6")
    Sleep(200)
    ControlClick("Eigenschaften von Anzeige", "List Of backgrounds", "Button4")
    Sleep(1000)
    EndIf
    EndFunc ;==>check6

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

    Func check7()
    RunWait("\\10.57.196.130\groups\Admin\Software\Kaspersky\setup_WKS_MP4.exe /s")
    Sleep(1000)
    EndFunc ;==>check7

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

    Func check8()
    If @OSVersion = "WIN_7" Then
    ShellExecute(@WindowsDir & '\Resources\Ease of Access Themes\classic.theme') ;2000er-Style Windows 7 öffnen
    Sleep(1000)
    Send("{ALTDOWN}{F4}{ALTUP}")
    Sleep(1000)
    EndIf

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

    If @OSVersion = "WIN_XP" Then
    ShellExecute(@WindowsDir & '\Resources\Themes\Windows Classic.theme') ;2000er-Style
    WinWait('Eigenschaften von Anzeige')
    ControlClick('Eigenschaften von Anzeige', '', 'Button3')
    Sleep(1000)
    EndIf
    EndFunc ;==>check8

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

    Func check9()
    RunWait("c:\Programme\Bginfo\Bginfo.exe /timer:0 /NOLICPROMPT c:\Programme\Bginfo\sysdata2.bgi")
    Sleep(1000)
    EndFunc ;==>check9

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

    Func check10()
    Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
    AutoItSetOption(Opt("WinTitleMatchMode", 1))
    WinWait("Volkswagen AG Internationales Händlerportal - Windows Internet Explorer")
    Send("{ALTDOWN}x{ALTUP}")
    Sleep(200)
    Send("o")
    WinWait("Internetoptionen")
    Send("+{tab}")
    Send("{up}")
    Send("{right 2}")
    Send("{tab}")
    Send("{down 100}")
    Send("{up 10}")
    Sleep(1000)
    Send("{space}")
    Send("{enter}")
    WinWait("Volkswagen AG Internationales Händlerportal - Windows Internet Explorer")
    Send("{ALTDOWN}D{ALTUP}")
    Sleep(200)
    Send("e")
    Sleep(200)
    If WinGetHandle("Internet Explorer") Then
    Send("{enter}")
    EndIf
    Sleep(1000)
    EndFunc ;==>check10

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

    Func check11()
    $java = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment", "Java6FamilyVersion") ; Prüfung der Java-Version
    MsgBox(64, "Java-Version", "Java-Version ist:" & $java, 5)
    If $java = "" Then Return 0 & MsgBox(16, "Java-Version", "Keine gültige Java-Version! (Betriebssystem 64-Bit?)", 5)

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

    If $java = "1.6.0_29" Then
    RunWait(@ProgramFilesDir & "\Java\jre6\bin\javacpl.exe")
    WinWaitActive("Java Control Panel")
    Send("{right}")
    Sleep(200)
    Send("{right}")
    Sleep(200)
    Send("{right}")
    Sleep(200)
    Send("{tab}")
    Sleep(200)
    Send("{down}")
    Sleep(200)
    Send("{down}")
    Sleep(200)
    Send("{down}")
    Sleep(200)
    Send("{down}")
    Sleep(200)
    Send("{down}")
    Sleep(200)
    Send("{down}")
    Sleep(200)
    Send("{down}")
    Sleep(200)
    Send("{down}")
    Sleep(200)
    Send("{right}")
    Sleep(200)
    Send("{down}")
    Sleep(200)
    Send("{down}")
    Sleep(200)
    Send("{down}")
    Sleep(200)
    Send("{space}")
    Sleep(200)
    Send("{enter}")
    Sleep(1000)
    Else
    If $java = "1.6.0_1" Or "1.6.0_2" Or "1.6.0_3" Or "1.6.0_4" Or "1.6.0_5" Or "1.6.0_6" Or "1.6.0_7" Or "1.6.0_8" Or "1.6.0_9" _
    Or "1.6.0_10" Or "1.6.0_11" Or "1.6.0_12" Or "1.6.0_13" Or "1.6.0_14" Or "1.6.0_15" Or "1.6.0_16" Or "1.6.0_17" Or "1.6.0_18" _
    Or "1.6.0_19" Or "1.6.0_20" Or "1.6.0_21" Or "1.6.0_22" Or "1.6.0_23" Or "1.6.0_24" Or "1.6.0_25" Or "1.6.0_26" Or "1.6.0_27" Then
    RunWait(@ProgramFilesDir & "\Java\jre6\bin\javacpl.exe")
    WinWaitActive("Java Control Panel")
    Sleep(200)
    Send("{right}")
    Sleep(200)
    Send("{tab 2}")
    Sleep(200)
    Send("{space}")
    Sleep(200)
    Send("{tab}")
    Sleep(200)
    Send("{enter}")
    Sleep(200)
    Send("{enter}")
    Sleep(1000)
    EndIf
    EndIf
    EndFunc ;==>check11

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

    Func check12()
    Run(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe")
    Sleep(2000)
    $sProzess = "firefox.exe"
    RunWait(@ComSpec & " /c " & "taskkill /F /IM " & $sProzess, "", @SW_HIDE)
    Sleep(2000)
    $sProzess = "firefox.exe"
    RunWait(@ComSpec & " /c " & "taskkill /F /IM " & $sProzess, "", @SW_HIDE)
    Sleep(5000)
    RunWait("\\vwserver\netlogon\firefox_install.exe")
    AutoItSetOption(Opt("WinTitleMatchMode", 1))
    WinWaitActive("Nachrichtendienst")
    Send("{enter}")
    Sleep(1000)
    EndFunc ;==>check12

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

    Func check13()
    Run(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe")
    Sleep(2000)
    $sProzess = "firefox.exe"
    RunWait(@ComSpec & " /c " & "taskkill /F /IM " & $sProzess, "", @SW_HIDE)
    Sleep(2000)
    Run(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe")
    AutoItSetOption(Opt("WinTitleMatchMode", 2))
    WinWaitActive("Mozilla")
    Send("{ALTDOWN}x{ALTUP}ee{enter}")
    AutoItSetOption(Opt("WinTitleMatchMode", 1))
    WinWaitActive("Einstellungen")
    Send("{right}{right}")
    Sleep(200)
    Send("{ALTDOWN}a{ALTUP}")
    WinWaitActive("Berechtigte Websites - Pop-ups")
    Send("10.58.60.72{enter}")
    Send("{ALTDOWN}c{ALTUP}")
    Send("{tab}{enter}")
    AutoItSetOption(Opt("WinTitleMatchMode", 2))
    WinWaitActive("Mozilla")
    Send("{ALTDOWN}d{ALTUP}b")
    AutoItSetOption(Opt("WinTitleMatchMode", 1))
    Sleep(1000)
    EndFunc ;==>check13

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

    Func check14()
    Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
    AutoItSetOption(Opt("WinTitleMatchMode", 1))
    WinWait("Volkswagen AG Internationales Händlerportal - Windows Internet Explorer")
    Send("{ALTDOWN}d{ALTUP}f")
    Sleep(200)
    Send("www.ebay.de{enter}")
    Sleep(5000)
    If WinGetHandle("Verbindung herstellen mit 10.112.254.71") Then
    Send("DE470070.000")
    Send("{tab}")
    Send("avp-net")
    Send("{tab}")
    Send("{space}")
    Send("{enter}")
    Else
    Send("{ALTDOWN}x{ALTUP}o")
    WinWait("Internetoptionen")
    Send("+{tab}")
    Send("{up}")
    ControlClick('Internetoptionen', 'Klicken Sie auf "Einrichten", um eine', 'Button10')
    Send("{ALTDOWN}s{ALTUP}")
    Sleep(200)
    Send("{ALTDOWN}a{ALTUP}")
    Send("http://iproxy:8080/")
    Sleep(200)
    Send("{tab 2}{enter}")
    WinWait("Internetoptionen")
    ControlClick('Internetoptionen', 'Klicken Sie auf "Einrichten", um eine', 'Button11')
    Sleep(500)
    Send("{ALTDOWN}d{ALTUP}f")
    Sleep(200)
    Send("www.ebay.de{enter}")
    Sleep(5000)
    If WinGetHandle("Verbindung herstellen mit 10.112.254.71") Then
    Send("DE470070.000")
    Send("{tab}")
    Send("avp-net")
    Send("{tab}")
    Send("{space}")
    Send("{enter}")
    Sleep(2000)
    EndIf
    EndIf
    Send("{ALTDOWN}x{ALTUP}")
    Sleep(200)
    Send("o")
    WinWait("Internetoptionen")
    Send("+{tab}")
    Send("{up}")
    Send("{right 2}")
    Send("{tab}")
    Send("{down 100}")
    Send("{up 10}")
    Sleep(1000)
    Send("{space}")
    Send("{enter}")
    Sleep(500)
    Send("{ALTDOWN}D{ALTUP}")
    Sleep(200)
    Send("e")
    Sleep(200)
    AutoItSetOption(Opt("WinTitleMatchMode", 1))
    If WinGetHandle("Internet Explorer") Then
    Send("{enter}")
    EndIf
    Sleep(1000)
    EndFunc ;==>check14

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

    Func check15()
    RunWait("\\10.57.196.130\groups\Admin\Software\flashplayer_10_0_45_2_ie.exe /s")
    Sleep(1000)
    EndFunc ;==>check15

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

    Func check16()
    AutoItSetOption(Opt("WinTitleMatchMode", 2))
    Run(@ProgramFilesDir & "\Microsoft Office\OFFICE11\excel.exe")
    Sleep(15000) ; 15 Sekunden warten dann prüfen ob Fenster "Benutzername" aktiv ist.
    If WinGetHandle("Benutzername") Then
    Send("{tab}{DEL}{enter}")
    EndIf
    AutoItSetOption(Opt("WinTitleMatchMode", 1))
    WinWait("Microsoft Excel - Mappe1")
    Send("{ALTDOWN}x{ALTUP}i")
    WinWait("Add-Ins")
    Send("{space}")
    Send("{tab}")
    Send("{enter}")
    WinWait("Microsoft Excel - Mappe1")
    Send("{ALTDOWN}d{ALTUP}b")
    Sleep(1000)
    EndFunc ;==>check16

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

    Func check17()
    Run(@ProgramFilesDir & "\Citrix\ICA Client\pn.exe")
    AutoItSetOption(Opt("WinTitleMatchMode", 2))
    WinWaitActive("Citrix")
    AutoItSetOption(Opt("WinTitleMatchMode", 1))
    If WinGetHandle("AVP Deggendorf") Then
    Sleep(500)
    Send($Benutzer_2)
    Send("{tab}")
    Sleep(500)
    Send($Kennwort_2)
    Send("{tab}DE47007X")
    Sleep(500)
    Send("{tab}{Space}")
    Sleep(500)
    Send("{enter}")
    Sleep(500)
    WinWaitActive("Citrix Program Neighborhood - AVP Deggendorf")
    Send("{ALTDOWN}d{ALTUP}s")
    Else
    Send("{ALTDOWN}a{ALTUP}b")
    Sleep(500)
    Send("{enter}")
    Sleep(500)
    Send("{down}{enter}")
    Sleep(500)
    Send("AVP Deggendorf")
    Sleep(500)
    Send("{tab}")
    Sleep(500)
    Send("AVP Deggendorf")
    Sleep(500)
    Send("{enter}")
    Sleep(500)
    Send("{ALTDOWN}w{ALTUP}")
    Sleep(500)
    Send("{enter}")
    Sleep(500)
    Send("{enter}")
    AutoItSetOption(Opt("WinTitleMatchMode", 1))
    Sleep(5000)
    WinWaitActive("AVP Deggendorf FEHLER")
    Send("{enter}")
    Sleep(500)
    WinWaitActive("Citrix Program Neighborhood - AVP Deggendorf")
    Send("{ALTDOWN}d{ALTUP}n")
    Sleep(500)
    WinWaitActive("AVP Deggendorf")
    Send("{enter}")
    Sleep(500)
    Send("{ALTDOWN}a{ALTUP}a")
    Sleep(700)
    WinWaitActive("AVP Deggendorf")
    Send($Benutzer_2)
    Sleep(700)
    Send("{tab}")
    Sleep(700)
    Send($Kennwort_2)
    Sleep(700)
    Send("{tab}")
    Sleep(700)
    Send("DE47007X")
    Sleep(700)
    Send("{tab}{Space}")
    Sleep(500)
    Send("{enter}")
    Sleep(500)
    WinWaitActive("Citrix Program Neighborhood - AVP Deggendorf")
    Send("{ALTDOWN}d{ALTUP}s")
    Sleep(1000)
    If WinGetHandle("Benutzername") Then
    Send("{tab}{DEL}{enter}")
    EndIf
    Sleep(1000)
    EndIf
    EndFunc ;==>check17

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

    Func check17_1()
    $Benutzer_2 = InputBox("Benutzereinrichtung Citrix", "Bitte geben Sie den Benutzernamen ein:", "", "", 300, 100)
    $Kennwort_2 = InputBox("Benutzereinrichtung Citrix", "Bitte geben Sie das Kennwort ein:", "", "*", 300, 100)
    Return
    EndFunc ;==>check17_1

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

    Func check18()
    RunWait("\\10.57.196.130\groups\Admin\Software\Autohotkey\opticlient_fehler.exe")
    Sleep(1000)
    EndFunc ;==>check18

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

    Func check19()
    RunWait(@ComSpec & " /c " & 'net stop TCP/IP-Druckserver', "", @SW_HIDE);net stop TCP/IP-Druckserver
    RunWait(@ComSpec & " /c " & 'net stop Druckwarteschlange', "", @SW_HIDE);net stop Druckwarteschlange
    RunWait(@ComSpec & " /c " & 'net start TCP/IP-Druckserver', "", @SW_HIDE);net start TCP/IP-Druckserver
    RunWait(@ComSpec & " /c " & 'net start Druckwarteschlange', "", @SW_HIDE);net start Druckwarteschlange
    Sleep(1000)
    EndFunc ;==>check19

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

    Func check20()
    RunWait("\\10.57.196.250\SAPGui\SAPGui_710_AVP_Standard.bat")
    Sleep(1000)
    EndFunc ;==>check20

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

    Func check21()
    FileCopy("\\10.57.196.250\SAPGui\saplogon.ini", "C:\Windows\", 1);SAP Logon kopieren
    Sleep(1000)
    EndFunc ;==>check21

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

    Func check22()
    $sProzess = "hardcopy.exe"
    RunWait(@ComSpec & " /c " & "taskkill /F /IM " & $sProzess, "", @SW_HIDE)
    Sleep(2000)
    Run(@ProgramFilesDir & "\Hardcopy\hardcopy.exe")
    AutoItSetOption(Opt("WinTitleMatchMode", 1))
    WinWaitActive("Hardcopy Registrierung")
    Send("2011")
    Sleep(200)
    Send("{tab}")
    Sleep(200)
    Send("12131415")
    Sleep(200)
    Send("{enter}")
    Sleep(200)
    Send("{enter}")
    Sleep(1000)
    EndFunc ;==>check22

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

    Func check23()
    Run(@ProgramFilesDir & "\Microsoft Office\OFFICE11\outlook.exe")
    AutoItSetOption(Opt("WinTitleMatchMode", 1))
    WinWaitActive("Outlook 2003-Start")
    Send("{enter}")
    Sleep(200)
    Send("{ALTDOWN}j{ALTUP}")
    Sleep(200)
    Send("{ALTDOWN}w{ALTUP}")
    Sleep(200)
    WinWaitActive("E-Mail-Konten")
    Send("{ALTDOWN}m{ALTUP}")
    Sleep(200)
    Send("{ALTDOWN}w{ALTUP}")
    Sleep(200)
    ;WinWaitActive( "E-Mail-Konten" , "Exchange Server-Einstellungen" )
    Send("10.58.60.124")
    Sleep(200)
    Send("{tab}")
    Sleep(200)
    Send("{space}")
    Sleep(200)
    Send("{tab}")
    Sleep(200)
    Send($Alias_3)
    Sleep(200)
    Send("{ALTDOWN}w{ALTUP}")
    Sleep(500)
    ;WinWaitActive( "E-Mail-Konten" , "Kontoeinrichtung abgeschlossen!" )
    Send("{enter}")
    Sleep(200)
    AutoItSetOption(Opt("WinTitleMatchMode", 2))
    WinWaitActive("Verbindung")
    AutoItSetOption(Opt("WinTitleMatchMode", 1))
    Send("DE470070\")
    Sleep(200)
    Send($Benutzer_3)
    Sleep(200)
    Send("{tab}")
    Sleep(200)
    Send($Kennwort_3)
    Sleep(200)
    Send("{enter}")
    Sleep(1000)
    EndFunc ;==>check23

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

    Func check23_1()
    $Benutzer_3 = InputBox("Benutzereinrichtung Outlook", "Bitte geben Sie den Benutzernamen ein:", "", "", 300, 100)
    $Kennwort_3 = InputBox("Benutzereinrichtung Outlook", "Bitte geben Sie das Kennwort ein:", "", "*", 300, 100)
    $Alias_3 = InputBox("Benutzereinrichtung Outlook", "Bitte geben Sie die Alias der E-Mail-Adresse (Vorname.Nachname) ein:", "", "", 300, 125)
    Return
    EndFunc ;==>check23_1

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

    Func check24()
    DriveMapDel("Z:")
    DriveMapAdd("Z:", "\\192.168.0.2\inst", 0, "domaene\administrator", "admin_pwd")
    Run("Z:\TKP_7.12\soft-nrg.client.installer.3.1.11(VW).exe")
    WinWaitActive("Choose Destination Location")
    Send("{enter}")
    Sleep(1000)
    Send("{enter}")
    WinWaitActive("Shortcutname")
    Send("{enter}")
    AutoItSetOption(Opt("WinTitleMatchMode", 1))
    WinWaitActive("Finished")
    Send("{enter}")
    DriveMapDel("Z:")
    EndFunc ;==>check24

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

    Func check25()
    Run("\\vwserver\vwinst\TKP_7.12\soft-nrg.client.installer.3.1.11(VW).exe")
    WinWaitActive("Choose Destination Location")
    Send("{enter}")
    Sleep(1000)
    Send("{enter}")
    WinWaitActive("Shortcutname")
    Send("{enter}")
    AutoItSetOption(Opt("WinTitleMatchMode", 1))
    WinWaitActive("Finished")
    Send("{enter}")
    EndFunc ;==>check25

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

    Func resetbutton() ; prüft ob die Checkboxen ausgewählt sind und setzt die ausgewählten zurück.
    For $i = 1 To 25
    If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then GUICtrlSetState($Checkbox[$i], $GUI_UNCHECKED)
    Next
    EndFunc ;==>resetbutton

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

    Func endebutton() ; beendet das Installationsmenü
    Exit
    EndFunc ;==>endebutton

    [/autoit]

    Andy hat mir ein Schnitzel gebacken aber da war ein Raupi drauf und bevor Oscar das Bugfixen konnte kam Alina und gab mir ein AspirinJunkie.

    Du brauchst im Grunde genommen so was hier

    [autoit]


    For $i = 1 to UBound($checkbox)-1
    If BitAND(GUICtrlRead($checkbox[$i]),$GUI_CHECKED) Then $checked += 1
    Next
    Func _SetProgressBar($instschritt)
    GUICtrlSetData($Progress,Round($instschritt*100/$checked),-1) ; Runde nur auf ganze Zahlen ..
    EndFunc

    [/autoit]

    jetzt musst du nur nach jeder installation die Fertig ist die Variable $instschritt hochzählen damit die Progressbar stimmt

    @ Chip

    super danke! War zwar noch kleiner Fehler drin, aber den hab ich selbst beheben können! :rock: :thumbup:

    so ists jetzt richtig (hab inszwischen die Funktionen auch sinnvoller umbenannt ;) :(

    [autoit]

    If BitAND (GUICtrlRead($Checkbox[1]), $GUI_CHECKED) then
    bk_bat()
    $prozentpos = $prozentpos + $prozentwert
    GUICtrlSetData($Progress1, $prozentpos)
    EndIf

    [/autoit]