Fertiges AutoIT Skript funktioniert nur richtig, wenn AUTOIT installiert ist!

Hallo Zusammen,

ich habe folgendes Problem.
Ich habe ein kleines Skript gebastelt welches bisher auch gut funktioniert hat und wollte nun das Skript
an verschiedenen Rechnern ausprobieren. Problem ist, dass das Skript die erste Einheit nicht ausführt, sprich das Auslesen der Registry um
die installierten Programme auszulesen und später zu deinstallieren klappt nicht, das Programm läuft immer in den ERROR rein!
Aber wenn ich AUTOIT installiere und das Skript darüber laufen lasse funktioniert alles super Selbst nachdem ich AUTOIT wieder deinstalliere funktioniert das Skript wieder einwandfrei, beim kompilieren nehme ich auch immer die Option "Include Au3".

Weiß einer woran es liegen kann?

MFG

#include <File.au3>
#include <Array.au3>
Opt("MustDeclareVars", 1)


;Die erste Einheit um einzulesen!


Dim $Descritonprogram = InputBox("In control panel under Program!","Please type the CORRECT AND FULL program name from Snow Inventory Client here!")
Local $aRead = ""
Dim $aDefine = $Descritonprogram


_Reading()
_FileReadToArray(@ScriptDir & "\temp.txt", $aRead)
If @error Then
	MsgBox(0,"temp.txt was not found","Please be ensure that 'temp.txt' is in the root folder")
EndIf

; Die Funktion!


Func _Reading()
_FileCreate(@ScriptDir & "\temp.txt")
if @error Then
	MsgBox(16,"Cannot creating temp.txt","Program will be closed")
EndIf
Local $file = FileOpen("temp.txt", 2)
For $i= 1 to 999
	Dim $var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL", $i)
	Dim $var2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\"&$var, "DisplayName")
	ConsoleWrite($var2&@CRLF)
	If @error then ExitLoop
	If $var2<>"" Then FileWrite($file, $var2 & @CRLF)
Next
fileclose($file)
EndFunc

Zitat von UEZ

AutoIt

Dim $var2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\"&$var, "DisplayName")
	ConsoleWrite($var2&@CRLF)
	If @error then ExitLoop

@error bezieht sich in diesem Fall auf ConsoleWrite und nicht auf RegRead, sprich die For/Next Schleife läuft zwangsmäßig bis 999, da ConsoleWrite nie einen Fehler zurück gibt.

Ansonsten kann ich beim Überfliegen nichts weiter erkennen.

Hi, super danke dir, leider muss ich gestehen, dass ich Hilfe hatte beim erstellen dieser Funktion und jetzt nicht weiß wie ich damit umgehen soll? Kannst du vlt. weiter helfen?

Soweit ich verstehe, ist das ConsoleWrite nur dafür da die Programme unter einander aufzureihen oder?

Hab das Problem dank deinem Hinweis lösen können!!!!! Vielen Dank!

Hab einfach Filewrite genutzt ist doch in Ordnung so?