[amel27]

антивирус, офис, файервол - все это приложения, и никто не мешает на одну машину установить несколько разных офисов и антивирусов, какой из них тогда выбирать?.. ИМХО один выход - перебирать все возможные и определять - установлен или нет, и если да, то какая версия... чтобы не париться с реестром, лучше использовать WMI Installer Provider

пример CMD-команды, выводящей список установленного софта и его параметры:

Код:

WMIC Product Get /Value

P.S. описание класса: http://msdn.microsoft.com/en-us/libr...,printer).aspx

[Petya V4sechkin]

amel27, к сожалению, Win32_Product воспринимает только msi.

mitiya, пример получения полного списка установленных программ по этой ссылке (InstalledApplications).

[Medic84]

Хочу знать собрать следующую информацию: Название операционной системы - есть в реестре знаю где Версия сервис пака - тоже в реестре тоже знаю »

Что бы отобразить значение реестра используется REG QUERY

Код:

REG QUERY (путь) /v (значение)

Если путь имеет где то пробелы, то его нужно заключать в кавычки

Остальные ф-ии прочитай сам

Код:

Reg /?

[amel27]

пример получения полного списка установленных программ »

это понятно, но как из этой ветки реестра выдернуть версию?

[mitiya]

Medic84, это все я зная , тут проблемы нет , просто для полноты картины написал.

антивирус, офис, файервол - все это приложения, и никто не мешает на одну машину установить несколько разных офисов и антивирусов, какой из них тогда выбирать? »

ну что касается офисов то я говорил в данном случае о MS офисе. а версия это 2003 или 2007, наличие сервис паков не критично.

А по поводу антивируса, я все же склонен считать что эти приложения как то отмечаются в системе ибо например центр обеспечения безопасности мне пишет в графе защита от вредоносных программ - nod , брендмауэр - smart security.

[Cibersoft Prolex]

mitiya
Ошибка в шапке

как узнать какой онтивирус на компе и еще пару вещей »

[Medic84]

ну что касается офисов то я говорил в данном случае о MS офисе. а версия это 2003 или 2007, наличие сервис паков не критично. А по поводу антивируса, я все же склонен считать что эти приложения как то отмечаются в системе ибо например центр обеспечения безопасности мне пишет в графе защита от вредоносных программ - nod , брендмауэр - smart security. »

На твоем бы месте я бы сделал все на условии Если
Если существует такой-то ключ реестра допустим (HKLM\Software\Eset\Nod) то выводит его версию и т.п. А если нет то пропускает, и так с любым. Проблема только в том что придется все в ручную забивать(все антивирусы и т.п.)

[mitiya]

Medic84, в том то и дело что не хочется перебирать все, не говоря уже о том что придется все эти антивирусы ставить и смотреть какой ключ они создаю.
Если винда как-то узнает какой антивирус стоит, то лучше всего этой возможностью воспользоваться. Очень сомневаюсь что винда перебирает все антивирусы по такому же принципу.

[Iska]

Конкретно про антивирус и фаерволл: если ОС знает о них, то и Вы можете узнать вот так посредством WMI (пример на WSH/VBScript; проверялось на Windows XP SP3 Professional: ниже SP2 работать не будет, выше — теоретически возможно, но не проверялось):

Код:

Option Explicit

Dim objSWbemServicesEx

Dim collSWbemObjectSet_AntiVirusProduct
Dim objSWbemObjectEx_AntiVirusProduct

Dim collSWbemObjectSet_FireWallProduct
Dim objSWbemObjectEx_FireWallProduct


Set objSWbemServicesEx = GetObject("WinMgmts:{impersonationLevel=impersonate}!\\.\root\SecurityCenter")


Set collSWbemObjectSet_AntiVirusProduct = objSWbemServicesEx.ExecQuery("SELECT * From AntiVirusProduct")

If collSWbemObjectSet_AntiVirusProduct.Count <> 0 Then
    For Each objSWbemObjectEx_AntiVirusProduct In collSWbemObjectSet_AntiVirusProduct
        With objSWbemObjectEx_AntiVirusProduct
            WScript.Echo .CompanyName, .DisplayName, .VersionNumber, "is", .productUpToDate
        End With
    Next
Else
    WScript.Echo "Not found AntiVirus Products"
End If

Set collSWbemObjectSet_AntiVirusProduct = Nothing


Set collSWbemObjectSet_FireWallProduct = objSWbemServicesEx.ExecQuery("SELECT * From FireWallProduct")

If collSWbemObjectSet_FireWallProduct.Count <> 0 Then
    For Each objSWbemObjectEx_FireWallProduct In collSWbemObjectSet_FireWallProduct
        With objSWbemObjectEx_FireWallProduct
            WScript.Echo .CompanyName, .DisplayName, .VersionNumber
        End With
    Next
Else
    WScript.Echo "Not found FireWall Products"
End If

Set collSWbemObjectSet_FireWallProduct = Nothing

WScript.Quit 0

Естественно, «правильные» антивирус или фаерволл должны «сообщать» о своём присутствии, иначе экземпляры этих классов будут отсутствовать.

Update: поскольку выше речь косвенно шла вроде как о пакетных файлах, то приведу описанный функционал и для них (посредством WMIC):

Код:

wmic.exe /Node:. /NameSpace:\\Root\SecurityCenter Path AntiVirusProduct Get CompanyName, DisplayName, VersionNumber, productUpToDate
wmic.exe /Node:. /NameSpace:\\Root\SecurityCenter Path FireWallProduct Get CompanyName, DisplayName, VersionNumber