Internet Explorer 7 Deploy

[y2kcmoore]

I have spent at least two hours searching through the forum and I have come to the conclusion I am stupid.

I want to write a script to deploy IE 7 to work stations that haven't been updated to the IE7 latest build yet. How can I check the build using Autoit?

IF RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer", "Build")

I guess I am having the issue of reading the Value Data. Once I have that bit of info I am good to go.

Thanks.

-C

[Danny35d]

You can use the below script. It will give you an array with of all application installed or just for the application you are looking for otherwise it return NULL.

#include <Array.au3>

$ret = _SoftwareInfo('Windows Internet Explorer 7')
_ArrayDisplay($ret, '')

Func _SoftwareInfo($sSoftwareName = '', $s_RemoteComputer = '')
    Local $Count = 0
        
    If $s_RemoteComputer <> '' Then $s_RemoteComputer = '\\' & StringReplace($s_RemoteComputer, '\', '') & '\'        
    Local Const $regkey = $s_RemoteComputer & 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall'
    
    While 1
        $Count = $Count + 1
        $key = RegEnumKey ($regkey, $Count)
        If @error <> 0 then ExitLoop
        $line = RegRead ($regkey & '\' & $key, 'Displayname')
        $line = StringReplace ($line, ' (remove only)', '')
        If $line <> '' Then
            If $sSoftwareName <> '' And $sSoftwareName <> $line Then ContinueLoop
            If Not IsDeclared('avArray') Then Dim $avArray[1]
            ReDim $avArray[UBound($avArray) + 1]
            $avArray[UBound($avArray) - 1] = $line            
        EndIf       
    WEnd

    If Not IsDeclared('avArray') Or Not IsArray($avArray) Then
        Return(SetError(1, 0, ''))       
    Else
        $avArray[0] = UBound($avArray) - 1
        Return(SetError(0,0, $avArray))
    EndIf
EndFunc