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
AutoIt
#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
Alles anzeigen
AutoIt
; 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
Alles anzeigen