Installers not monitored

Installers not monitored. Why? Maybe you need to ask “Start monitoring” option (like the old Norton CleanSweep installation monitor).

AkelPad (AkelPad Editor)
JujuEdit (http://jujusoft.com/software/edit/index.html)
NotePad++ (http://notepad-plus-plus.org/release/5.7)
Programmer’s Notepad (Programmer's Notepad - Download)
TedNotepad (TED Notepad Download - free text editor)

You must be jokking… What a kind of monitor was developed? 88)
A lot of installations aren’t monitored, although they’re on the Windows Add/Remove programs :stuck_out_tongue:

Installed AkelPad and TedNotepad, both were monitored. Using Win 7 x64.

Even stranger… Why does the program behave differently in XP then?

Hi,

Did you try to ‘refresh’ the list by clicking the home button? This would update the list of programs and the monitored state.
Also, try to use the ‘Install and monitor’ option by right clicking on the setup that causes the problem. If the problem persists please reinstall CPM.

WinXP has a older kernel version compared to Vista and later ( robust systems in comparison ), you can notice that from the small percentage of BSODs in the usage of both Vista and 7. Plus, XP represents the passing point from the x86 to the x64 model.

Dorin.

Yes. Even close and open CPM again.

Will test that in the future.

This program is not monitored - Win 7 x64.

Same here… :o

Win XP Pro

Hi,

Please try ‘Install and monitor’ option by right clicking on the setup. You cannot tell for some rare programs if they are installers or not.This is where ‘Install and monitor’ option comes into use.

Hi,

The problem is that you ran the installers directly from the network shared folder drive. This issue is already fixed for the next release.

Thank you,
Alexandru

Thanks.
When will see the new version out?

Programs still not monitored… A lot of programs… What’s up?
None of the programs installed (updated today, 2010.08.12) in my system were monitored :cry:
Is CPM just taking space in my disk?

[attachment deleted by admin]

I have Win 7 pro x64 bits too. The program installations are not monitored.
And, yes I always use right-click “Install and monitor setup with CPM” :frowning:
Is the 64 bits an issue ? 88)

Thanks for your great work Comodo ! :slight_smile:

+1
I have the same problem as the last 2 people - installations are not monitored; even using the recommended right-click shell option.

CPM (Build 30)
Win7 (64 bit)
Other Security software: CIS 4 (all modules), MalwareBytes (on-demand), Unlocker

I like the basic concept of this product. I am eager to try later builds as you work thru the bugs.
Thanks.

What I can’t understand is why Comodo releases it saying what it is NOT doing… 88)

I have the same problem.

Strange that CPM can’t provide the user the same as this simple script can in get the details 88)

RSS Advertisements…Com on guys.

If put that time it took in make that feature perhaps CPM would be a CPM now !ot!


'Copy following in to a simple text-file and name the file InstalledSoftware.vbs (or anything else)
'To run it, just hit it twice.

'InstalledSoftware.vbs - Lists installed software shown in Registry Uninstall key.
'Including installed updates shown in AddRemove Program.
'This script should run on Windows 2000, XP, Vista and Windows 7 as is.
'Windows 9X and NT where WMI and current scripting engine are installed.

'Capability to probe a Remote computer only available on NT to NT type
'Operating Systems, and only if the local computer is logged in with the
'same ID and PassWord as the remoted computer.

'Output is to tab delimited text file which can be imported to newer
'versions of Excel and converted to a handy spreadsheet.


Option Explicit

Dim sTitle
sTitle = "InstalledSoftware.vbs Overview in Detail"
Dim StrComputer
strComputer = InputBox("Enter I.P. or name of computer to check for " & _
                       "installed software (leave blank to check " & _
                       "local system)." & vbcrlf & vbcrlf & "Remote " & _
                       "checking only from NT type OS to NT type OS " & _
                       "with same Admin level UID & PW", sTitle)
If IsEmpty(strComputer) Then WScript.Quit
strComputer = Trim(strComputer)
If strComputer = "" Then strComputer = "."

'Wscript.Echo GetAddRemove(strComputer)

Dim sCompName : sCompName = GetProbedID(StrComputer)

Dim sFileName
sFileName = sCompName & "_" & GetDTFileName() & "_Software.txt"

Dim s : s = GetAddRemove(strComputer)

If WriteFile(s, sFileName) Then
  'optional prompt for display
  If MsgBox("Finished processing.  Results saved to " & sFileName & _
            vbcrlf & vbcrlf & "Do you want to view the results now?", _
            4 + 32, sTitle) = 6 Then
    WScript.CreateObject("WScript.Shell").Run sFileName, 9
  End If
End If

Function GetAddRemove(sComp)
  Dim cnt, oReg, sBaseKey, iRC, aSubKeys
  Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
  Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
              sComp & "/root/default:StdRegProv")
  sBaseKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
  iRC = oReg.EnumKey(HKLM, sBaseKey, aSubKeys)

  Dim sKey, sValue, sTmp, sVersion, sDateValue, sYr, sMth, sDay

  For Each sKey In aSubKeys
    iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, "DisplayName", sValue)
    If iRC <> 0 Then
      oReg.GetStringValue HKLM, sBaseKey & sKey, "QuietDisplayName", sValue
    End If
    If sValue <> "" Then
      iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, _
                                "DisplayVersion", sVersion)
      If sVersion <> "" Then
        sValue = sValue & vbTab & "Ver: " & sVersion
      Else
        sValue = sValue & vbTab 
      End If
      iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, _
                                "InstallDate", sDateValue)
      If sDateValue <> "" Then
        sYr =  Left(sDateValue, 4)
        sMth = Mid(sDateValue, 5, 2)
        sDay = Right(sDateValue, 2)
        'some Registry entries have improper date format
        On Error Resume Next 
        sDateValue = DateSerial(sYr, sMth, sDay)
        On Error GoTo 0
        If sdateValue <> "" Then
          sValue = sValue & vbTab & "Installed: " & sDateValue
        End If
      End If
      sTmp = sTmp & sValue & vbcrlf
    cnt = cnt + 1
    End If
  Next
  sTmp = BubbleSort(sTmp)
  GetAddRemove = "INSTALLED SOFTWARE (" & cnt & ") - " & sCompName & _
                 " - " & Now() & vbcrlf & vbcrlf & sTmp 
End Function

Function BubbleSort(sTmp)
  'cheapo bubble sort
  Dim aTmp, i, j, temp
  aTmp = Split(sTmp, vbcrlf)  
  For i = UBound(aTmp) - 1 To 0 Step -1
    For j = 0 to i - 1
      If LCase(aTmp(j)) > LCase(aTmp(j+1)) Then
        temp = aTmp(j + 1)
        aTmp(j + 1) = aTmp(j)
        aTmp(j) = temp
      End if
    Next
  Next
  BubbleSort = Join(aTmp, vbcrlf)
End Function

Function GetProbedID(sComp)
  Dim objWMIService, colItems, objItem
  Set objWMIService = GetObject("winmgmts:\\" & sComp & "\root\cimv2")
  Set colItems = objWMIService.ExecQuery("Select SystemName from " & _
                                         "Win32_NetworkAdapter",,48)
  For Each objItem in colItems
    GetProbedID = objItem.SystemName
  Next
End Function

Function GetDTFileName()
  dim sNow, sMth, sDay, sYr, sHr, sMin, sSec
  sNow = Now
  sMth = Right("0" & Month(sNow), 2)
  sDay = Right("0" & Day(sNow), 2)
  sYr = Right("00" & Year(sNow), 4)
  sHr = Right("0" & Hour(sNow), 2)
  sMin = Right("0" & Minute(sNow), 2)
  sSec = Right("0" & Second(sNow), 2)
  GetDTFileName = sMth & sDay & sYr & "_" & sHr & sMin & sSec
End Function

Function WriteFile(sData, sFileName)
  Dim fso, OutFile, bWrite
  bWrite = True
  Set fso = CreateObject("Scripting.FileSystemObject")
  On Error Resume Next
  Set OutFile = fso.OpenTextFile(sFileName, 2, True)
  'Possibly need a prompt to close the file and one recursion attempt.
  If Err = 70 Then
    Wscript.Echo "Could not write to file " & sFileName & ", results " & _
                 "not saved." & vbcrlf & vbcrlf & "This is probably " & _
                 "because the file is already open."
    bWrite = False
  ElseIf Err Then
    WScript.Echo err & vbcrlf & err.description
    bWrite = False
  End If
  On Error GoTo 0
  If bWrite Then
    OutFile.WriteLine(sData)
    OutFile.Close
  End If
  Set fso = Nothing
  Set OutFile = Nothing
  WriteFile = bWrite
End Function