s1.Cells(f,1)=strNextLine

  Set fc = s.Columns("B").Find(strNextLine)

   If Not fc Is Nothing  Then

    count=0

   With s.Columns("B")

    Set c = .Find(strNextLine)

    If Not c Is Nothing Then

        firstAddress = c.Address

        Do

           ' считаем количество установок

           count=count+1

            Set c = .FindNext(c)

        Loop While Not c Is Nothing And c.Address <> firstAddress

    End If

End With

s1.Cells(f,2)=Count ' сохраняем количество установок

 End If

f=f+1

End If

Loop

Теперь поставленная перед нами задача по сбору сведений об установленных на клиентских машинах приложениях решена полностью. Мы получили таблицу Excel, которая содержит сведения о том, какие приложения установлены на каждой конкретной машине, а также сведения о том, сколько установок того или иного приложения имеется в сети. Лучше всего выполнять описанные выше сценарии регулярно, с частотой один раз в месяц, для того чтобы всегда иметь под рукой актуальную информацию об используемом программном обеспечении.

Литература:

1. Windows Server 2003. Справочник администратора.

2. http://www.computerperformance.co.uk – англоязычный сайт, содержащий множество примеров WSH сценариев, с комментариями.