Beiträge von autoBert

  • Auslesen eines Wertes

    Hallo aquilla,

    es ist nicht zwingend vorgechrieben, aber es schadet nicht und sieht auch besser aus. Meistens wird adlibunregister verwendet, wenn in bestimmten Situationen die registrierte func nicht ausgeführt werden soll,

    mfg (Auto)Bert

  • Daten aus einer .ini auslesen und mit GuiCtrlSetData verwärten

    Hallo masteraki,

    Zitat von AutoBert

    Schau dir die Hilfe zu InetGet genau an auch die Bemerkungen und Beispiele,

    was galubst du warum ich dass vorhin dazu geschrieben habe :?:

    Zitat

    aus dt. Hilfe 3.3.4.0
    Um einen Benutzernamen und Passwort zum Verbinden zu benutzen, schreibt man einfach "Username:Passwort@" vor den Servernamen, z.B. "http://myuser:mypassword@https://autoit.de/www.somesite.com"

    mfg (Auto)Bert

  • Daten aus einer .ini auslesen und mit GuiCtrlSetData verwärten

    Hallo masteraki,

    du musst die INI mit InetGet herunterladen und sie dann lokal auswerten (siehe Post Schnitzel).
    Schau dir die Hilfe zu InetGet genau an auch die Bemerkungen und Beispiele,

    Edit: und hier noch ein Beispiel mit IniReadSection:

    Spoiler anzeigen
    [autoit]

    ;#include <GuiComboBox.au3>
    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    ;#include <array.au3>

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

    #include <File.au3>

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

    Const $sElect = "bitte einen Benutzer auswählen"

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

    $hGui = GUICreate("Combobox mit INI ", 250, 120, 302, 218)
    $hcboUsers = GUICtrlCreateCombo($sElect, 8, 8, 200, 25,$CBS_DROPDOWNLIST)
    $hlblUser = GUICtrlCreateLabel("",8,35,200,25)
    $hbtnOpen = GUICtrlCreateButton("&Öffnen", 8, 65)
    GUICtrlSetState($hbtnOpen, $GUI_DISABLE)

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

    $list1 = _FileListToArray(@ScriptDir & "\Profiles", "*.ini", 1)

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

    If @error Then
    if MsgBox(36, "Keine Datei gefunden!", "Testdaten erzeugen?") = 6 then
    $sData = "Key1=Value1" & @LF & "Key2=Value2" & @LF & "Key3=Value3"
    if not FileExists(@ScriptDir & "\Profiles") then DirCreate(@ScriptDir & "\Profiles")
    $sIniName = @ScriptDir & "\Profiles\TestUser.ini"
    IniWriteSection($sIniName, "Sektion1", $sData)
    GUICtrlSetData($hcboUsers, "TestUser")
    Else
    Exit
    EndIf
    Else
    For $i = 1 To $list1[0]
    $sUser = StringTrimRight($list1[$i], 4)
    GUICtrlSetData($hcboUsers, $sUser)
    Next

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

    EndIf

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

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $hcboUsers
    If GUICtrlRead($hcboUsers) = $sElect Then
    GUICtrlSetState($hbtnOpen, $GUI_DISABLE)
    GUICtrlSetData($hlblUser,"")
    Else
    GUICtrlSetState($hbtnOpen, $GUI_ENABLE)
    GUICtrlSetData($hlblUser,GUICtrlRead($hcboUsers))
    EndIf
    Case $hbtnOpen
    $sIniName = @ScriptDir & "\Profiles\" & GUICtrlRead($hcboUsers) & ".ini"
    $aIniVars = IniReadSection($sIniName, "Sektion1")
    ;_ArrayDisplay($aIniVars,"Sektion1:")
    If @error Then
    MsgBox(4096, "", "Es ist ein Fehler aufgetreten. Warscheinlich keine INI Datei vorhanden.")
    Else
    For $i = 1 To $aIniVars[0][0]
    MsgBox(4096, "", "Schlüssel: " & $aIniVars[$i][0] & @CRLF & "Wert: " & $aIniVars[$i][1])
    Next
    EndIf

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

    EndSwitch
    WEnd

    [/autoit]


    mfg (Auto)Bert

  • was ist nur mit Filecopy los :D

    Hallo Kev,

    Zitat von Kev

    resultat er kopiert 0, er schmeißt setup.exe fix.msi und updateSite.zip ins scriptdir und startet es..soll aber ALLE dateien ins temp packen und von da starten, und nur ins temp

    zumindest updateSite.zip kopierst du in @scriptdir. Bei den anderen Files könnte es sich um ein Verständnisproblem handeln. Lass dir mal mit

    [autoit]

    MsgBox(0,"",@TempDir)

    [/autoit]

    das Vereichnis ausgeben. Ich bin mir sicher dort bzw. Unterordnern sind auch deine Files und nicht in

    [autoit]

    Dircreate("C:/temp")

    [/autoit]

    mfg (Auto)Bert

  • GETSID

    Hallo subzero007,

    hier eine Lösung die auf chip aufbaut:

    [autoit]

    #include <array.au3>
    #include <file.au3>

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

    Global $aSid, $sid1, $sid2

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

    _FileReadToArray(@ScriptDir & "\GetSid.txt",$aSid)
    _ArrayDisplay($aSid)
    $sid1 = StringSplit($aSid[2],"is ", 1)
    MsgBox(0,"",$sid1[2])
    $sid2 = StringSplit($aSid[3],"is ", 1)
    MsgBox(0,"",$sid2[2])

    [/autoit]


    mfg (Auto)Bert

  • Exception Fenster einer Anwendung stoppt Autoit Script?

    Hallo MoJo2600,

    der Fenstertitel und auch der Text, den du in Zeile 35 zum aufrufen von _WinWaitActivate verwendest stimmt nicht mit dem Screenshot überein. Oft kommt es auch vor, dass doppelte Leerzeichen beim abtippen übersehen werden, benutze doch daher das AutoIt Window Info Tool (Program Files\AutoIt3\AU3Info.exe) und kopier dir damit die Texte,

    mfg (Auto)Bert

  • typetester

    Hallo PrideRage

    Zitat von PrideRage

    Hallo.
    Also bei mir funzt dein Skript nicht, es ist vergubbt, flimmert und es lässt sich nichts auswählen.

    Bis auf das Flimmern muss ich dir widersprechen, es dauert nur leider seine Zeit bis alle Fonts eingetragen sind. Danach klappt alles wie es soll

    @bocky du könntest z.B. die anderen Controls disablen bis alles eingelesen ist oder alles mit einem "Bitte warten"-Label überdecken damit wäre das Updaten des IE-Embedded nicht zu sehen,

    mfg (Auto)Bert

  • File wird nicht gelöscht!?!

    Hallo hame1992,

    da du FileOpen benutzt musst du auch nachfolgende Befehle über das von FileOpen zurückgegeben Handle machen. Das ganze sieht dann so aus:

    [autoit]

    Func eMail()
    $AktuellesDatum = _NowCalc()
    $AktuellesDatum = StringReplace($AktuellesDatum, "/", ".")
    $AktuellesDatum = StringReplace($AktuellesDatum, ":", "-")
    _FileCreate($PfadMailDatei)
    $InhaltLogDatei = FileRead($PfadLogDatei)
    $hfadMailDatei = FileOpen($PfadMailDatei, 1)
    FileWriteLine($hPfadMailDatei,"To: abt-edv@witty.de")
    FileWriteLine($hPfadMailDatei,"From: abt-edv@witty.de")
    FileWriteLine($hPfadMailDatei, $Meldung) ; $Meldung wird durch Funktion Standardmeldung oder Fehlermeldung gesetzt, siehe Kopieren automatisch ja/nein
    FileWrite($hPfadMailDatei, $InhaltLogDatei)
    FileClose($hPfadMailDatei)
    FileCopy($PfadMailDatei, $PfadArchivMailDatei&$AktuellesDatum&".log",8)
    FileDelete($PfadMailDatei)
    EndFunc

    [/autoit]

    mfg (Auto)Bert

  • Mehrspaltige Listview / selected items auslesen und als string ausgeben?

    Hallo stinger2k,

    du kannst kein Array an das Clipboard übergeben, nur Strings (diese halt mit @crlf formatiert für Zeilenschaltung) siehe dazu auch mein Beispiel in Post #5
    und hier diese func umgeschrieben:

    [autoit]

    Func write()
    Local $sToClip = ""
    For $i = 0 To _GUICtrlListView_GetItemCount($Liste)
    $sItem = _GUICtrlListView_GetItemTextString($Liste, $i)
    $iItem=StringReplace($sItem, "|", @TAB) & @CRLF
    $sToClip &= $iItem
    Next
    _ArrayToClip ($sToClip,1)
    EndFunc ;==>write

    [/autoit]

    sollte mit FileWrite auch dirket in Datei klappen, beides aber ungetestet (online geschrieben)

    mfg (Auto)Bert

  • Wiederherstellungs Button muss mehrmals betätigt werden

    Hallo mauric,

    du verwendest mehrere Schleifen mit GuiGetMsg. Dies ist aber bei nur einer Gui nur 1 mal zulässig. So sollte es klappen:

    Spoiler anzeigen
    [autoit]

    ;#-> MC - 02.04.2009 ------------------------------------------------------------------
    ;
    ; AutoIt Version : 3.3.0.0
    ; Author : Maurizio Caloro
    ;
    ; Programm Namwe : Restore @ Now
    ; Script Version : 1.0
    ;
    ; Script : Globalfunktion
    ; Laptop Images Restore
    ;
    ; Funktionen :
    ; IP Adressierung überprüfen
    ; Pfad auwertung von config.txt
    ; Netzwerkverbindung erstellen
    ; Laptop auswahl
    ; Laptop MAC-adressierung überprüfung
    ; Externe Anwendung für Restore zurücksicherung
    ; Temporäre Logfiles auf RamDrive erstellen
    ;
    ;#-> MC ----------------------------------------------------------------------------
    #include <array.au3>
    #include <file.au3>
    #include <GUIConstantsEx.au3>
    #include <Constants.au3>
    Opt('MustDeclareVars', 1)
    Global $Input1, $Input2
    Global $aboutitem, $helpmenu, $runnow, $msg, $cfgfile, $path, $info, $speedview, $language, $laptop
    Global $file, $cfgfile, $filelist, $exititem, $section, $config, $list, $pic, $cpu, $os, $office, $nMsg
    Global $result_laptop, $result_os, $result_office, $result_language

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

    Core()

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

    Func Core()

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

    ;FileRead
    $config = FileOpen("x:\programs\imager\config.txt", 0)
    $path = FileReadLine($config)
    FileClose($config)
    ;Drive Connect
    DriveMapAdd("r:", "" & $path & "", 0, "kkl-luzern\VAT.LaptopRestore", "DABuAWbzRd4VL")

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

    ;NetworkCheck
    If StringRegExpReplace(@IPAddress1, '(.+)\..+', '$1') = '10.1.0' Then
    ;MsgBox(1,"", "Correct")
    Else
    MsgBox(1, "Achtung", "Sie sind nicht mit dem korrekten Netzwerk verbunden." & Chr(10) & _
    "Überprüfen Sie das Netzwerkkabel und versuchen Sie es nochmals.")
    ;SplashTextOn("--> ! Achtung ! < --", "Sie sind nicht mit dem korrekten Netzwerk verbunden."& CHR(10) & CHR(10) & _
    ; "Überprüfen Sie das Netzwerkkabel und versuchen Sie es nochmals.", 580, 100, -1, -1, 0, 0, 14)
    ; Sleep(10000)
    ;SplashOff()
    Exit
    EndIf

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

    ;Laptop.ini Config fileCheck
    If FileExists("r:\laptop.ini") Then
    ProgressOn("Die Anwendung", "-> 'Restore @ Now' wird Initialisiert.", "0 %")
    For $i = 10 To 100 Step 10
    ;sleep(1500)
    Sleep(1)
    ProgressSet($i, $i & " %")
    Next
    ProgressSet(100, "Erstellt", "Start")
    Sleep(150)
    ProgressOff()
    ;SplashTextOn("Vorbereitung", "Die Anwendung 'Restore @ Now' wird Initialisiert.", 440, 50, -1, -1, 0, 0, 14)
    ; Sleep(5000)
    ;SplashOff()
    Else
    MsgBox(16, "Netzwerkkabel", "Kein Laufwerk gefunden" & @CRLF & @CRLF & _
    "Überprüfen Sie das Netzwerkkabel und" & @CRLF & _
    "starten Sie gegebenenfalls den Laptop neu" & @CRLF & @CRLF & _
    "Die Anwendung 'Restore @ Now' wird hiermit beendet!")
    Exit
    EndIf

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

    GUICreate("Restore @ Now", 260, 340) ; Fenster Balken
    ;$pic = GUICtrlCreatePic ('x:\programs\imager\kkl.bmp',145 ,93 ,100 ,70)
    $pic = GUICtrlCreatePic('x:\kkl.bmp', 145, 238, 105, 70)

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

    $filelist = GUICtrlCreateMenu("&File")
    $exititem = GUICtrlCreateMenuItem("Exit", $filelist)
    $helpmenu = GUICtrlCreateMenu("&?")
    $info = GUICtrlCreateMenuItem("&Info", $helpmenu)
    $aboutitem = GUICtrlCreateMenuItem("&About", $helpmenu)
    ;$font = "Arial"
    GUISetFont(11, 400, 3) ; Font
    ;GUISetFont(11, 400, 3, $font) ; Font
    ;GUICtrlCreateLabel("Wählen Sie im nachfolgenden Software aufbau Ihre passende konfiguration", 8, 20)

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

    GUICtrlCreateLabel("Ihr Laptop Modell ", 11, 20)
    $laptop = GUICtrlCreateCombo("", 10, 42)
    $section = IniReadSection("r:\laptop.ini", "Modell")
    For $i = 1 To UBound($section) - 1

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

    GUICtrlSetData($laptop, IniRead("r:\laptop.ini", "modell", $i, ""))

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

    Next
    GUICtrlCreateLabel("Ihr Betriebssystem ", 11, 80)
    $os = GUICtrlCreateCombo("", 10, 102)
    $section = IniReadSection("r:\laptop.ini", "Os")

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

    For $i = 1 To UBound($section) - 1

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

    GUICtrlSetData($os, IniRead("r:\laptop.ini", "Os", $i, ""))

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

    Next
    GUICtrlCreateLabel("Ihr Office ", 11, 140)
    $office = GUICtrlCreateCombo("", 10, 162)
    $section = IniReadSection("r:\laptop.ini", "Office")
    For $i = 1 To UBound($section) - 1

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

    GUICtrlSetData($office, IniRead("r:\laptop.ini", "Office", $i, ""))

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

    Next
    GUICtrlCreateLabel("Ihre Sprache ", 11, 200)
    $language = GUICtrlCreateCombo("", 10, 222)
    $section = IniReadSection("r:\laptop.ini", "Language")
    For $i = 1 To UBound($section) - 1

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

    GUICtrlSetData($language, IniRead("r:\laptop.ini", "Language", $i, ""))

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

    Next
    $runnow = GUICtrlCreateButton("Wiederherstellen", 11, 268, 120)

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

    ;GUICtrlSetState(-1, $GUI_FOCUS) ; the focus is on this button
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $runnow
    If GUICtrlRead($Input1) And GUICtrlRead($Input2) And GUICtrlRead($Input2) Then
    MsgBox(0, "", "Weiter")
    _RunNow()
    Else
    MsgBox(0, "", "Bitte alle felder ausfüllen")
    EndIf
    ;Case $exititem
    Case $aboutitem
    MsgBox(64, "Über - Restore @ Now", "" & Chr(10) & _
    "E1" & Chr(10) & _
    "6" & Chr(10) & Chr(10) & _
    "Copyright 2009 " & Chr(10) & _
    "Version 1.0" & Chr(10) & Chr(10) & _
    "Ma" & Chr(10) & _
    "Such", 8)
    Case $info
    $cpu = Run('cpu.exe /s', "", @SW_HIDE, $STDOUT_CHILD)
    While 1
    Sleep(250)
    $speedview = StdoutRead($cpu)
    If @error Then ExitLoop

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

    MsgBox(64, "SYSINFO", "Computername " & @ComputerName & "" & Chr(10) & _
    "Adressierung " & @IPAddress1 & "" & Chr(10) & _
    "Betriebssystem " & @OSVersion & "" & Chr(10) & _
    "Windows-Verzeichnis " & @WindowsDir & "" & Chr(10) & _
    "Prozessor-Arch " & @CPUArch & "" & Chr(10) & _
    "Prozessor-Typ " & $speedview)
    WEnd
    Case $exititem
    Exit
    ;---------------------------------------------------------------------------------------->>>>
    ;About Darstellungsanpassung
    ;
    ;Example2()
    ;Func Example2()
    ; Local $gui
    ; $gui = GUICreate("About - Restore @ Now", 250, 400)
    ; GUISetState($WS_EX_LAYERED)
    ; ;$hWnd = GUICreate ('Test')
    ; $idBtn = GUICtrlCreatePic ('KKL.jpg', 20, 20)
    ; GUISetFont(13, 400, 1, $font)
    ; GUICtrlCreateLabel("t AG" & Chr(10) & _
    ; "1" & Chr(10) & _
    ; "6"& Chr(10) & Chr(10) & _
    ; "Cop" & Chr(10) & _
    ; "M" & Chr(10) & _
    ; "V", 10, 180, 320)
    ; GUISetFont(14, 400, 1, $font)
    ; GUICtrlCreateLabel("", 20, 200, 330)
    ; GUISetState ($WS_EX_LAYERED)
    ;EndFunc
    ; While True
    ; Switch GUIGetMsg ()
    ; Case -3
    ; Exit
    ; Case $idBtn
    ; MsgBox (266304, 'Test', 'Der Button wurde gedrückt ...')
    ; EndSwitch
    ; WEnd
    ;---------------------------------------------------------------------------------------->>>>
    StringInStr(@IPAddress1, "2.")

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

    EndSwitch
    WEnd
    EndFunc ;==>Core

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

    Func _RunNow()
    ; START MAC
    ;/ MAC TEIL
    Local $filename, $found, $array, $text, $macs, $section1
    $filename = "b:\ipconfig.txt"
    ;MsgBox(64, "Info", "Laptop Model: " & GUICtrlRead($laptop) & Chr(10) & _
    ;"IP-Adresse: " & @IPAddress1 & Chr(10) & Chr(10) & _
    ;"Klicken Sie < OK > zum Starten der Wiederherstellung ")
    ;& Chr(10) & _ "Klicken Sie < Abbrechen > zum Abbrechen der Anwendung")

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

    ; Mit ipconfig Mac auslesen
    RunWait(@ComSpec & " /c ipconfig /all > " & $filename, "", @SW_HIDE)
    Dim $array
    _FileReadToArray($filename, $array)
    $text = _ArrayToString($array, ";")

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

    $result_laptop = IniRead("r:\laptop.ini", "Result_Laptop", "" & GUICtrlRead($laptop) & "", "")
    $result_os = IniRead("r:\laptop.ini", "Result_Os", "" & GUICtrlRead($os) & "", "")
    $result_office = IniRead("r:\laptop.ini", "Result_Office", "" & GUICtrlRead($office) & "", "")
    $result_language = IniRead("r:\laptop.ini", "Result_Language", "" & GUICtrlRead($language) & "", "")

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

    MsgBox(4096, "Result", $result_laptop & $result_os & $result_office & $result_language)
    MsgBox(1, "", GUICtrlRead($laptop)) ; uberprüfung des gewählten laptop

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

    ;MsgBox(1, "", GUICtrlRead($laptop)&GUICtrlRead($os)&GUICtrlRead($office)&GUICtrlRead($language)) ; uberprüfung des gewählten laptop
    ;MsgBox(1, "", GUICtrlRead($laptop)) ; uberprüfung des gewählten laptop
    ;$section1 = IniReadSection("r:\laptop.ini", ""&GuiCtrlRead($laptop)&"" )
    $section1 = IniReadSection("r:\laptop.ini", "" & GUICtrlRead($laptop) & "")
    ;$section1 = IniReadSection("r:\laptop.ini", ""&GuiCtrlRead($laptop)&"" )
    If @error Then
    MsgBox(4096, "Kein Laufwerk " & GUICtrlRead($laptop), _
    "Es ist ein Fehler aufgetreten. Wahrscheinlich keine INI Datei vorhanden.")
    Else
    ;_ArrayDisplay($section1)
    EndIf
    $macs = StringRegExp($text, "(..-..-..-..-..-..)", 3)
    ;_ArrayDisplay($macs)

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

    For $y = 1 To UBound($section1) - 1
    For $j = 0 To UBound($macs) - 1
    If $section1[$y][1] = $macs[$j] Then
    $found = $macs[$j]
    ExitLoop
    EndIf
    Next
    Next
    ; Ausgabe
    If $found <> "" Then
    ;SplashTextOn("MAC-AdresseCheck", "Ihre MAC-Adresse wurde erkannt (" & $found & ") Die Rücksicherung wird gestartet.", 722, 50, -1, -1, 0, 0, 12)
    Sleep(50)
    ;SplashOff()
    Else
    MsgBox(0, "Autorisierung fehlgeschlagen", "Es wurde kein registrierter Laptop gefunden." & Chr(10) & _
    "Die Anwendung wird hiermit beendet." & Chr(10) & Chr(10) & _
    "Bei weiteren Fragen wenden Sie sich an <[email='Support.it@kkl-luzern.ch'][/email]>.")
    FileDelete($filename)
    Exit
    EndIf
    ; temporäre Datei löschen
    FileDelete($filename)
    ; STOP MAC
    ;If $msg = 2 Then Exit

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

    Sleep(Random(1000, 3000))

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

    $cfgfile = FileOpen("b:\" & GUICtrlRead($laptop) & ".cfg", 1)
    FileWriteLine($cfgfile, "; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *")
    FileWriteLine($cfgfile, "; * -- Restorescript aus Laptop.ini | Zeit " & @HOUR & ":" & @MIN & ":" & @SEC & " ---> Datum " & @MDAY & "." & @MON & "." & @YEAR & " -- *")
    FileWriteLine($cfgfile, "; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *")
    FileWriteLine($cfgfile, "mouse=no")
    FileWriteLine($cfgfile, "filesystem=ntfs")
    FileWriteLine($cfgfile, "disk=0")
    FileWriteLine($cfgfile, "main_part=1")
    FileWriteLine($cfgfile, "def_level=6")
    FileWriteLine($cfgfile, "quit=nobadsector")
    FileWriteLine($cfgfile, "automatic_naming=yes")
    FileWriteLine($cfgfile, "file=r:\" & GUICtrlRead($laptop))
    FileClose($cfgfile)
    Sleep(Random(1000, 2000))
    $file = FileOpen("b:\Restoremenow.cmd", 1)
    FileWriteLine($file, "REM * * * * * * * * * * * * * * * * * * * * * * *")
    FileWriteLine($file, "REM * --- Zeit " & @HOUR & ":" & @MIN & ":" & @SEC & " -> Datum " & @MDAY & "." & @MON & "." & @YEAR & " --- *")
    FileWriteLine($file, "REM * * * * * * * * * * * * * * * * * * * * * * *")
    ;FileWriteLine($file, "spartwin.exe -r -f b:\" & GUICtrlRead($laptop) & ".cfg")
    FileWriteLine($file, "x:\programs\imager\spartwin.exe -r -f b:\" & GUICtrlRead($laptop) & ".cfg")
    FileClose($file)
    Sleep(Random(1000, 1500))
    RunWait("b:\Restoremenow.cmd", "", @SW_MAXIMIZE)
    FileMove("b:\" & GUICtrlRead($laptop) & ".cfg", "b:\" & GUICtrlRead($laptop) & ".txt")
    FileMove("b:\Restoremenow.cmd", "b:\Restoremenow.txt")
    MsgBox(0, "Finish Restore", "Restore konnte erfolgreich installiert werden.")
    Exit
    EndFunc ;==>_RunNow

    [/autoit]

    eine Variable runnnow (Schreibfehler) ist mit korrigiert
    mfg (Auto)Bert