Reading installed software

[maarten]

Hi there verybody.

I just found autoit and i am loving it.

but i have a lot to learn.

I am trying to read the installed software from a computer.

I wrote the following script but in some cases is displays a sid instead of the displayname inside the sid.

Can anybody help me? What is need is that it reads all installed software and write the display name of the software in an txt file.

I got it to work that it writes the installed software but not the displayname.

or it writes all installed software with the same display name everywhere.

Thanks for you help or input in advanced.

Maarten

#include <File.au3>

_FileCreate ("c:\regestry\test.txt")

;test if file can be opend

$file = FileOpen("c:\regestry\test.txt", 1)

; Check if file opened for writing OK

If $file = -1 Then

MsgBox(0, "Error", "Unable to open file.")

Exit

EndIf

For $i= 1 to 50

$file = FileOpen("c:\regestry\test.txt", 1)

$var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\", $i)

;$varr = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\", "DisplayName", $i)

$varrr = $var ;& $varr

If @error <> 0 then ExitLoop

FileWrite($file, $varrr & @CRLF)

fileclose($file)

Next

Edited October 11, 2006 by maarten

[MrBeatnik]

This might help a bit.

Your RegRead was evaluating the $i variable, rather than the returned $var result of the key name. I've tidied up this code a little too.

You shouldn't need #include <File.au3>.

$filename="d:\testreg.txt"
$file = FileOpen($filename, 1)
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

$regItem="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

For $i= 1 to 50
  $var = RegEnumKey($regItem, $i)
  $varr = RegRead($regItem & $var & "\", "DisplayName")
  If @error <> 0 then ExitLoop
  FileWriteLine($file, $var & $varr & @CRLF)
Next

fileclose($file)

Edited October 11, 2006 by MrBeatnik

[xcal]

I think the @error is in the wrong place?

Try this out:

#include <File.au3>

$file = "c:\testreg.txt"

If Not FileExists($file) Then
    _FileCreate("c:\testreg.txt")
EndIf

FileOpen($file, 2)  ;erases file for new contents

$regItem = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

$i = 0
While 1
    $i += 1
    $var = RegEnumKey($regItem, $i)
    If @error Then ExitLoop
    $varr = RegRead($regItem & $var & "\", "DisplayName")
    FileWriteLine($file, 'Key Name:  ' & $var & @CRLF & 'Display Name:  ' & $varr & @CRLF & @CRLF)
WEnd

FileClose($file)

[maarten]

Thank you all for you repleys'

The second code is the best one that works the best for me.

Many thanks.

Any tips on what kind of books i schould read ?

Maarten

[MadBoy]

Thank you all for you repleys'

The second code is the best one that works the best for me.

Many thanks.

Any tips on what kind of books i schould read ?

Maarten

http://www.autoitscript.com/forum/index.php?showtopic=20406 --> more advanced version of your script Might give you a lot of tips how things works