AddRemove programs

strTitle = " Add Remove program "
Const ForReading = 1
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank"   
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width=600
objExplorer.Height = 500 
objExplorer.Left = 0
objExplorer.Top = 0
Do While (objExplorer.Busy)
    Wscript.Sleep 200
Loop    

objExplorer.Visible = 1             
objExplorer.Document.title = "Retrieving" & strTitle
objExplorer.Document.Body.InnerHTML = "Retrieving" & strTitle &_
    "This might take several minutes to complete."

'call Regsvr32 "c:\temp\regobj\regobj.dll"

sComputerName = inputbox("Please Enter Computer name", "Enter Computer Name" ,".")   ' "." = Local computer


Dim sKeyPath 
Dim oReg 
Dim oKey 
Dim oSubKey 

Dim sProgramList 
Dim sDisplayName 
Dim sVersionName 

sKeyPath = "\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" 

Set oReg = CreateObject("RegObj.Registry") 
Set oRemoteReg = oReg.RemoteRegistry (sComputerName) 
Set oKeyPath = oRemoteReg.RegKeyFromString(sKeyPath) 

For each oSubkey in oKeyPath.SubKeys

        sDisplayName = "" 
        sDisplayVersion = "" 
        sProgramList = oSubKey.Name 
	


	Set oRegValues = oSubKey.Values 
        
        For Each oRegValue in oRegValues 


                Select Case oRegValue.Name 
                        
                        Case "DisplayName" 
                                sDisplayName = oRegValue.Value 

                        Case "DisplayVersion" 
                                sDisplayVersion = oRegValue.Value 

                End Select 

        Next 

' build some HTML color
	if tbgc = "#C0C0C0" then
		tbgc = "#ffffff"
	else
		tbgc = "#C0C0C0"
	end if

' build the table
	strObjectName = strObjectName & "<tr><td bgcolor=" & tbgc & ">" &_
		sProgramList & VbTab & sDisplayName & " Version: " & sDisplayVersion & "  </td></tr>"

	Wscript.Sleep 100
	
' show it in IE
	objExplorer.Document.Body.InnerHTML = sDisplayName &_
	" Version: " & sDisplayVersion & "<br><table>" & strObjectName & "</table>"

        
Next 


strObjectName = "<Table><tr><th>" & strTitle & "Retrieved: " & NOW() & "</th></tr>" & strObjectName & "<Table>" 

objExplorer.Document.title = "" & strTitle & "Retrieved: " & NOW()

objExplorer.Document.Body.InnerHTML = strObjectName 

Wscript.Sleep 3000

Wscript.Quit