Beiträge von nuely

  • Viewer für Word, Excel, Powerpoint und Visio

    Word Viewer 2003:
    Quelle: http://www.microsoft.com/downloads/details.aspx?familyid=95e24c87-8732-48d5-8689-ab826e7b8fdf&displaylang=de
    Hinweis: Exe-Datei muss mit Universal Extractor entpackt werden

    Spoiler anzeigen
    [autoit]


    ;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
    ;| Installation von: Word Viewer 2003
    ;|
    ;| Autor: Jens Ottersberg
    ;|
    ;| Getestet mit: wdviewer.exe (muss mit Universal Extractor entpackt werden)
    ;|
    ;| Quelle: http://www.microsoft.com/downloads/details.aspx?familyid=95e24c87-8732-48d5-8689-ab826e7b8fdf&displaylang=de
    ;|___________________________________________________________________________________________________________________________________

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

    #RequireAdmin
    #NoTrayIcon

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

    #include "..\..\funktionen.au3"

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

    $parameter = ' /qn'
    $search = FileFindFirstFile(@ScriptDir & "\*.msi")
    $datei = FileFindNextFile($search)
    FileClose($search)
    ShellExecuteWait(@ScriptDir & "\" & $datei, $parameter)

    [/autoit]

    Excel Viewer 2003:
    Quelle: http://www.microsoft.com/downloads/details.aspx?familyid=C8378BF4-996C-4569-B547-75EDBD03AAF0&displaylang=de
    Hinweis: Exe-Datei muss mit Universal Extractor entpackt werden

    Spoiler anzeigen
    [autoit]


    ;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
    ;| Installation von: Excel Viewer 2003
    ;|
    ;| Autor: Jens Ottersberg
    ;|
    ;| Getestet mit: xlviewer.exe (muss mit Universal Extractor entpackt werden)
    ;|
    ;| Quelle: http://www.microsoft.com/downloads/details.aspx?familyid=C8378BF4-996C-4569-B547-75EDBD03AAF0&displaylang=de
    ;|___________________________________________________________________________________________________________________________________

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

    #RequireAdmin
    #NoTrayIcon

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

    #include "..\..\funktionen.au3"

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

    $parameter = ' /qn'
    $search = FileFindFirstFile(@ScriptDir & "\*.msi")
    $datei = FileFindNextFile($search)
    FileClose($search)
    ShellExecuteWait(@ScriptDir & "\" & $datei, $parameter)

    [/autoit]

    PowerPoint Viewer 2003:
    Quelle: http://www.microsoft.com/downloads/details.aspx?FamilyID=428d5727-43ab-4f24-90b7-a94784af71a4&displaylang=de
    Hinweis: Exe-Datei muss mit Universal Extractor entpackt werden

    Spoiler anzeigen
    [autoit]


    ;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
    ;| Installation von: PowerPointViewer 2003
    ;|
    ;| Autor: Jens Ottersberg
    ;|
    ;| Getestet mit: ppviewer.exe (muss mit Universal Extractor entpackt werden)
    ;|
    ;| Quelle: http://www.microsoft.com/downloads/details.aspx?FamilyID=428d5727-43ab-4f24-90b7-a94784af71a4&displaylang=de
    ;|___________________________________________________________________________________________________________________________________

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

    #RequireAdmin
    #NoTrayIcon

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

    #include "..\..\funktionen.au3"

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

    $parameter = ' /qn'
    $search = FileFindFirstFile(@ScriptDir & "\*.msi")
    $datei = FileFindNextFile($search)
    FileClose($search)
    ShellExecuteWait(@ScriptDir & "\" & $datei, $parameter)

    [/autoit]

    PowerPoint Viewer 2007
    Quelle: http://www.microsoft.com/downloads/details.aspx?familyid=048DC840-14E1-467D-8DCA-19D2A8FD7485&displaylang=de

    Spoiler anzeigen
    [autoit]


    ;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
    ;| Installation von: PowerPoint Viewer 2007
    ;|
    ;| Autor: Jens Ottersberg
    ;|
    ;| Getestet mit: powerpointviewer.exe
    ;|
    ;| Quelle: http://www.microsoft.com/downloads/details.aspx?familyid=048DC840-14E1-467D-8DCA-19D2A8FD7485&displaylang=de
    ;|___________________________________________________________________________________________________________________________________

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

    #RequireAdmin
    #NoTrayIcon

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

    #include "..\..\funktionen.au3"

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

    $parameter = ' /quiet'
    $search = FileFindFirstFile(@ScriptDir & "\*.exe")
    $datei = FileFindNextFile($search)
    FileClose($search)
    ShellExecuteWait(@ScriptDir & "\" & $datei, $parameter)

    [/autoit]

    Visio Viewer 2003
    Quelle: http://www.microsoft.com/downloads/details.aspx?familyid=3FB3BD5C-FED1-46CF-BD53-DA23635AB2DF&displaylang=de
    Danke an Greenhorn für der Verbesserungsvorschlag

    Spoiler anzeigen
    [autoit]


    ;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
    ;| Installation von: Visio Viewer 2003
    ;|
    ;| Autor: Jens Ottersberg
    ;|
    ;| Getestet mit: vviewer.exe (muss mit UniExtract entpackt werden)
    ;|
    ;| Quelle: http://www.microsoft.com/downloads/details.aspx?familyid=3FB3BD5C-FED1-46CF-BD53-DA23635AB2DF&displaylang=de
    ;|___________________________________________________________________________________________________________________________________

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

    #RequireAdmin
    #NoTrayIcon

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

    #include "..\..\funktionen.au3"

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

    ;Installation starten
    $parameter = ' /qn /m vviewer ACCEPTEULA=1 ASSOCIATE=1'
    $search = FileFindFirstFile(@ScriptDir & "\*.msi")
    $datei = FileFindNextFile($search)
    FileClose($search)
    ShellExecuteWait(@ScriptDir & "\" & $datei, $parameter)

    [/autoit]

    Visio Viewer 2007
    Quelle: http://www.microsoft.com/downloads/details.aspx?familyid=D88E4542-B174-4198-AE31-6884E9EDD524&displaylang=de

    Spoiler anzeigen
    [autoit]


    ;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
    ;| Installation von: Visio Viewer 2007
    ;|
    ;| Autor: Jens Ottersberg
    ;|
    ;| Getestet mit: visioviewer.exe
    ;|
    ;| Quelle: http://www.microsoft.com/downloads/details.aspx?familyid=D88E4542-B174-4198-AE31-6884E9EDD524&displaylang=de
    ;|___________________________________________________________________________________________________________________________________

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

    #RequireAdmin
    #NoTrayIcon

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

    #include "..\..\funktionen.au3"

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

    $parameter = ' /quiet'
    $search = FileFindFirstFile(@ScriptDir & "\*.exe")
    $datei = FileFindNextFile($search)
    FileClose($search)
    ShellExecuteWait(@ScriptDir & "\" & $datei, $parameter)

    [/autoit]

  • Bugs

    Zitat

    Original von d2po88
    http://www.bilder-speicher.de/07090109614551…sting-page.html

    Wenn du im Manager ein Programm über einen Ordner hinzufügt, landet dieser nicht im Verzeichnis mit Installationen, sondern im Hauptverzeichnis. Passt auch ganz gut in diesen Thread, da es sich um einen Bug handelt.

    Am Besten du kopierst den Ordner direkt in den Ordner "Installationen", das Programm erkennt das beim nächsten Start automatisch.


    Wenn du was über den Aufbau der Dateien sehen willst, dann guck dir auch meine Dateien an.
    Z.B. bei Opera: Opera 9
    Dort gibt es eine install.au3, eine download.au3 und eine info.ini

  • Opera 9

    Zitat

    Original von huggyinetget ist nur oben bei der txt, inetget unten hat ftp!

    ja genau. oben muss es http sein, weil ich ne ganz normale internetseite abfrage was die aktuellste version ist.

  • Opera 9

    ich weiß nicht wo die herkommen. In meinem Script sind keine. Ich hatte gestern aus versehens mal "Erweiterter Editor" angeklickt. Vielleicht kommen die daher.
    Wenn sie im Script wären, würde es ja auch sofort ne Fehlermeldung geben, weil ein Befehl nicht korrekt abgeschlossen ist.

    Ich habs oben jetzt korrigiert.

  • Opera 9

    Vielleicht weiß jemand von euch weiter. Warum krieg ich da keine Datei?

    [autoit]


    #NoTrayIcon

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

    #include <Array.au3>
    #include "..\..\funktionen.au3"

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

    InetGet("http://www.opera.com/download/", @TempDir & "\iomdl.txt", 1)
    $datei= FileRead(@TempDir & "\iomdl.txt")
    $version = StringRegExp($datei, "\d{1}\.\d{2}", 2)
    $version_ohne = StringReplace($version[0],".","")
    MsgBox(0,"test",$version[0])
    MsgBox(0,"test",$version_ohne)

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

    ;ftp://ftp.opera.com/pub/opera/win/…ional_Setup.exe

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

    ;If $CmdLine[0] > 0 and $CmdLine[1] = "run" Then
    ; _Splash("Herunterladen", "Opera wird aktuell aus dem Internet heruntergeladen...")
    ; InetGet("ftp://ftp.opera.com/pub/opera/win/" & $version_ohne & "/int/Opera_" & $version[0] & "_International_Setup.exe", @TempDir & "\iomOpera_"&$version[0]&".exe")
    ; SplashOff()
    ;Else
    _Splash("Herunterladen", "Opera wird aktuell aus dem Internet heruntergeladen...")
    MsgBox(0,"test","ftp://ftp.opera.com/pub/opera/win/" & $version_ohne & "/int/Opera_" & $version[0] & "_International_Setup.exe")
    InetGet("ftp://ftp.opera.com/pub/opera/win/" & $version_ohne & "/int/Opera_" & $version[0] & "_International_Setup.exe", @ScriptDir & "\Opera.exe")
    SplashOff()
    ;EndIf

    [/autoit]

    Die URL ist korrekt, was auch die MsgBox zeigt. Er erzeugt nur keine Datei. Wenn ich das aber z.B. so in den IE eingebe kommt direkt das Download-Fenster.

  • Wie funktioniert run in der IOM?

    Zitat

    Original von d2po88also ich habe ja diesen traed gelesen und dachte mir ich versuche es mal mit ShellExecute(@ScriptDir & "\TU2007TrialDE.exe")bekomme hier immer diese "sicherheitswarnung", obwohl ich IsAdmin() drin habe, mit Run kommt diese sicherheitswarnung nicht, ist das programmspeziell, der aufruf, denn ich bekomme die sicherheitswarnung nicht weg, ob send, oder controlclick, nix funtzt.
    peethebee ohne ShellExecute funtzt dein tip mit IsAdmin()

    das hat mit admin-Berechtigungen nichts zu tun. Der Aufruf über run ist irgendwo anders als der über shellExecute. Wenn du das per Doppelklick startest müsste auch die Sicherheitswarnung kommen. Und die kommt egal was man für Berechtigungen hat. Ich glaube man kann sie höchstens irgendwo in der Registry abstellen.

  • Opera 9

    Werde versuchen noch eine download.au3 zu erstellen. -->> Erledigt


    Installation:

    Spoiler anzeigen
    [autoit]


    ;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
    ;| Installation von: Opera 9
    ;|
    ;| Autor: Jens Ottersberg
    ;|
    ;| Getestet mit: Opera 9.22 (Opera_9.22_International_Setup.exe)
    ;|___________________________________________________________________________________________________________________________________

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

    #RequireAdmin
    #NoTrayIcon

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

    #include "..\..\funktionen.au3"

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

    $parameter = ' /s /v"/qn"'
    $search = FileFindFirstFile(@ScriptDir & "\*.exe")
    $datei = FileFindNextFile($search)
    FileClose($search)
    ShellExecuteWait(@ScriptDir & "\" & $datei, $parameter)

    [/autoit]


    Download:

    Spoiler anzeigen
    [autoit]


    ;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
    ;| Download von: Opera 9
    ;|
    ;| Autor: Jens Ottersberg
    ;|
    ;| Getestet am: 29.08.07
    ;|___________________________________________________________________________________________________________________________________

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

    #NoTrayIcon

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

    #include <Array.au3>
    #include "..\..\funktionen.au3"

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

    InetGet("http://www.opera.com/download/", @TempDir & "\iomdl.txt", 1)
    $datei= FileRead(@TempDir & "\iomdl.txt")
    $version = StringRegExp($datei, "\d{1}\.\d{2}", 2)
    $version_ohne = StringReplace($version[0],".","")

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

    If $CmdLine[0] > 0 and $CmdLine[1] = "run" Then
    _Splash("Herunterladen", "Opera wird aktuell aus dem Internet heruntergeladen...")
    InetGet("http://ftp.opera.com/pub/opera/win/" & $version_ohne & "/int/Opera_" & $version[0] & "_International_Setup.exe", @TempDir & "\iomOpera_" & $version[0] & ".exe")
    SplashOff()
    Else
    _Splash("Herunterladen", "Opera wird aktuell aus dem Internet heruntergeladen...")
    InetGet("http://ftp.opera.com/pub/opera/win/" & $version_ohne & "/int/Opera_" & $version[0] & "_International_Setup.exe", @ScriptDir & "\Opera_" & $version[0] & ".exe")
    SplashOff()
    EndIf

    [/autoit]

  • verbessertes Windows-Update

    Ich habe das Skript aus der PC Magazin ein wenig aufgemöbelt um mögliche Fehlerquellen auszuschalten. Vor den Updates wird nun der Windows Updater v6 und zur Sicherheit auch einmal Windows Script Host installiert, sowie falls benötigt eine neuere Version der wuaueng.dll kopiert.

    Spoiler anzeigen
    [autoit]


    ;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
    ;| Installation von: Windows Updates
    ;|
    ;| Autor: Jens Ottersberg
    ;|
    ;| Getestet mit: neu installiertem Rechner mit XP SP1
    ;|
    ;| Grundlage ist das Script aus der PC Magazin
    ;|___________________________________________________________________________________________________________________________________

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

    #RequireAdmin
    #NoTrayIcon

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

    #include "..\..\funktionen.au3"

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

    If Not _IstOnline() Then
    MsgBox(48,"","Der PC ist nicht mit dem Internet Verbunden!")
    Exit
    EndIf

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

    ;Windows Update v6 installieren
    ShellExecuteWait(@ScriptDir & "\wucv6.exe")
    ;Windows Script Host 5.6 installieren
    ShellExecuteWait(@ScriptDir & "\scd56de.exe", "/Q:A /R:N") ;Schalterquelle: http://aris-toolz.de
    ;Windows Script Host zumindest temporär aktivieren
    $wsh = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settings", "Enabled")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settings", "Enabled", "REG_DWORD", "1")
    ;wuaueng.dll kopieren wenn <=5.4.3790.1000
    If (FileGetVersion(@SystemDir & "\wuaueng.dll") <= "5.4.3790.1000") Then
    FileMove(@SystemDir & "\wuaueng.dll",@SystemDir & "\wuaueng_old.dll",1)
    FileCopy(@ScriptDir & "\wuaueng.dll",@SystemDir & "\",1)
    EndIf

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

    ; checken
    _Splash ("Windows Updates", "Suche verfügbare Updates...")
    ShellExecute(@ScriptDir & "\check_2.vbs", "", @TempDir)
    Do
    Sleep(1000)
    If WinExists("Windows Script Host") Then WinKill("Windows Script Host")
    Until Not ProcessExists("wscript.exe")
    SplashOff()

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

    ; herunterladen und installieren
    _Splash ("Windows Updates", "Lade Updates und installiere...")
    ShellExecute(@ScriptDir & "\install_2.vbs", "", @TempDir)
    Do
    Sleep(1000)
    If WinExists("Windows Script Host") Then WinKill("Windows Script Host")
    Until Not ProcessExists("wscript.exe")
    SplashOff()

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

    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settings", "Enabled", "REG_DWORD", $wsh)

    [/autoit]

    Die Dateien gibt es hier:
    WSH
    wuaueng.dll
    Update v6

  • FreePDF

    Hier jetzt mal mein erstes Script für FreePDF. Verbesserungsvorschläge höre ich natürlich gerne.

    [Programm]
    Name=Ghostscript & FreePDF
    Version=8.54 & 1.6
    Kategorie=Tools
    Beschreibung=FreePDF legt einen Drucker an, mit dem man PDF-Dateien "drucken" kann. FreePDF hat den Vorteil, dass es keinerlei Werbung enthält. Ghostscript wird als Grundlage zur PDF-Erstellung benötigt.

    Spoiler anzeigen
    [autoit]


    ;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
    ;| Installation von: Ghostscript & FreePDF
    ;|
    ;| Autor: Jens Ottersberg
    ;|
    ;| Getestet mit: Ghostscript 8.54 (gs854w32.exe) & FreePDF 1.6 (FreePDFXP1.6.exe)
    ;|___________________________________________________________________________________________________________________________________

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

    #RequireAdmin
    #NoTrayIcon

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

    #include "..\..\funktionen.au3"

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

    ;Ghostscript
    $parameter = ""
    $suche = FileFindFirstFile(@ScriptDir & "\gs*.exe")
    $datei = FileFindNextFile($suche)
    FileClose($suche)
    ShellExecute(@ScriptDir & "\" & $datei, $parameter)
    ;Dateien entpacken und Setup starten
    WinWait("WinZip Self-Extractor - gs","AFPL Ghostscript")
    WinActivate("WinZip Self-Extractor - gs","AFPL Ghostscript")
    WinWaitActive("WinZip Self-Extractor - gs","AFPL Ghostscript")
    ControlClick("WinZip Self-Extractor - gs", "&Setup", "Button1")
    ;Auf Setupfenster warten
    WinWait("AFPL Ghostscript Setup")
    WinActivate("AFPL Ghostscript Setup")
    WinWaitActive("AFPL Ghostscript Setup")
    ;Schriften werden installieren (keine Installation durch Aktivierung des nächsten ControlClick)
    ;ControlClick("AFPL Ghostscript Setup", "Install Ghostscript Fonts", "Button5")
    ;Installation starten
    ControlClick("AFPL Ghostscript Setup", "Install", "Button1")
    ;Fenster schließen
    WinWait("Ghostscript")
    WinActivate("Ghostscript")
    WinWaitActive("Ghostscript")
    WinClose("Ghostscript")
    Sleep(1000)

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

    ;Free PDF
    $parameter = ""
    $suche = FileFindFirstFile(@ScriptDir & "\free*.exe")
    $datei = FileFindNextFile($suche)
    FileClose($suche)
    ShellExecute(@ScriptDir & "\" & $datei, $parameter)
    WinWait("FreePDF XP", "&Setup")
    WinActivate("FreePDF XP", "&Setup")
    WinWaitActive("FreePDF XP", "&Setup")
    ControlClick("FreePDF XP", "&Setup", "ThunderRT5CommandButton3")
    WinWait("FreePDF XP", "&End")
    WinActivate("FreePDF XP", "&End")
    WinWaitActive("FreePDF XP", "&End")
    ControlClick("FreePDF XP", "&End", "ThunderRT5CommandButton1")

    [/autoit]

  • Schreiben in die Log-Datei

    Welches ist die einfachste Methode etwas in die Log-Datei zu schreiben? Wenn ich das richtig sehe wird die Datei ja erst am Ende der Installationskette erstellt. Ich möchte jetzt gerne aus den einzelnen Installationen heraus darauf zugreifen können. Wenn z.B. keine Internetverbindung besteht möchte ich nicht, dass eine MsgBox erscheint, sondern dass das ins Log geschrieben wird.

  • Abfangen, wenn Office Online-Aktivierung nicht geklappt hat

    Ich möchte es gerne abfangen, wenn die Aktivierung von Office nicht geklappt hat. Mein Script ist bislang:

    [autoit]


    ;Software aktivieren
    ;Word starten
    ShellExecute("Winword.exe")
    ;Lizenzvertrag zustimmen
    WinWait("Microsoft Office-Endbenutzer-Lizenzvertragsbestimmung")
    WinActivate("Microsoft Office-Endbenutzer-Lizenzvertragsbestimmung")
    WinWaitActive("Microsoft Office-Endbenutzer-Lizenzvertragsbestimmung")
    Send("!a")
    ;Office über das Internet aktivieren
    WinWait("Microsoft Office 2003 Aktivierungs-Assistent")
    WinActivate("Microsoft Office 2003 Aktivierungs-Assistent")
    WinWaitActive("Microsoft Office 2003 Aktivierungs-Assistent")
    Send("!w")

    [/autoit]

    Das Fenster, das man bei einem Fehler sieht man im Anhang.

    Window Info liefert folgende Informationen:


    Wie man sieht gibt es dort keinerlei Text oder Button in dem Fenster. Das angezeigte Cortrol gilt für das ganze Fenster. Wie kann ich mitbekommen, dass die Aktivierung fehlgeschlagen ist?