Display a list of installed applications from registry

[gleem]

Greetings... I am looking to write an script that will list all installed applications.

I was able to locate the directory in registry in which I will want to extract my information from but I am sort of running into a mental block when it comes to variables.

The path I want to read from is: HKEY_LOCAL_MACHINE > SOFTWARE > Microsoft > Windows > CurrentVersion > Uninstall > (All the Subfolder)

Now, when I use the Regread command in autoit, I will need to tell it which subfolder I want to use to pull the DisplayName, InstallLocation, and Publisher keys from. However, I am unsure on how to tell Autoit to read each sub directory for this information.

If someone can help me get over this hurdle or guide me in the right direction, the rest should be cake.

Edited September 27, 2008 by gleem

[zackrspv]

Greetings... I am looking to write an script that will list all installed applications.

I was able to locate the directory in registry in which I will want to extract my information from but I am sort of running into a mental block when it comes to variables.

The path I want to read from is: HKEY_LOCAL_MACHINE > SOFTWARE > Microsoft > Windows > CurrentVersion > Uninstall > (All the Subfolder)

Now, when I use the Regread command in autoit, I will need to tell it which subfolder I want to use to pull the DisplayName, InstallLocation, and Publisher keys from. However, I am unsure on how to tell Autoit to read each sub directory for this information.

If someone can help me get over this hurdle or guide me in the right direction, the rest should be cake.

I'd do a search in the example scripts forum, there are many Application lists, etc, and even one that does uninstalls for you.

[bluelamp]

Const $NODE = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
Local $i = 1
While 1
    $var = RegEnumKey($NODE, $i)
    If @error <> 0 then ExitLoop
    MsgBox(4096, "#" & $i, $var)
    $i+=1
WEnd

[gleem]

Const $NODE = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
Local $i = 1
While 1
    $var = RegEnumKey($NODE, $i)
    If @error <> 0 then ExitLoop
    MsgBox(4096, "#" & $i, $var)
    $i+=1
WEnd

Thank you SOOOO much. This is exactly what I was looking for.

thank you again!