[решено] Как можно сохранить название антивирусника в txt установленного в системе.

[Mastak1]

Уважаемые коллеги, нужна ваша помощь, как можно полное название антивирусника установленного в системе сохранить в txt.

[DJ Mogarych]

Через wmic, например:

wmic product list > programs.txt

[Mastak1]

а на vbs?

Нужно только антивирусник без лишних других программ

[Iska]

как можно полное название антивирусника установленного в системе сохранить в txt »
Option Explicit

Dim objSWbemObjectEx
Dim strName

With WScript.CreateObject("WbemScripting.SWbemLocator")
For Each objSWbemObjectEx In .ConnectServer(".", "root\SecurityCenter").ExecQuery("SELECT * From AntiVirusProduct")
strName = objSWbemObjectEx.DisplayName
Next

For Each objSWbemObjectEx In .ConnectServer(".", "root\SecurityCenter2").ExecQuery("SELECT * From AntiVirusProduct")
strName = objSWbemObjectEx.DisplayName
Next

With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile("C:\Мои проекты\0306\Sample.txt", True)
.WriteLine strName
.Close
End With
End With

WScript.Quit 0

[Mastak1]

Iska , здравствуйте, спасибо, все работает но вот на почту ничего не приходит.
Я вот в видео текста хотел чтобы она на почту мне отсылала

[Iska]

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

[Mastak1]

ISKA, я написал Вам личное сообщение!

[Iska]

Mastak1, пишите здесь.

[Mastak1]

160714Iska, я та напишу а что если кто-то воспользуется в корыстных целях?!

Хорошо, пишу здесь, раз говорите чтобы я писал то пишу!
Нужно чтобы на почту приходило в виде текста но принципиально в таком порядке.

ID XXXXXXX
IP XXXXXXX
РЕГИОН XXXX
ИМЯ ПК XXXXX
ТИП РАЗРЯДНОСТИ XXXXXXX
OS XXXXXXXX
название установленного антивирусника XXXXXXXXXXX
--------------------------------------------------------------------------
Из всего выше указанного все имеется, но вот порядок другой, как собрать по этому порядку?!

[Iska]

Mastak1, что такое ID? Что такое РЕГИОН? Что такое ТИП РАЗРЯДНОСТИ?

[Mastak1]

Доброе утро, Iska! ID создается в txt в указанной директорий, "РЕГИОН" относится к ip адресу, то-есть, определяется ip а снизу указывается к какому региона сам ip принадлежит. Тип разрядности это (разрядность системы, например 32 бит или 64 бит).

[Iska]

Mastak1, это всё великолепно. Мне-то где взять:
ID создается в txt в указанной директорий, "РЕГИОН" относится к ip адресу, то-есть, определяется ip а снизу указывается к какому региона сам ip принадлежит. »
?!

[Mastak1]

Iska, сейчас выложу код:
ть?!

[Mastak1]

Iska, если необходимо, могу каждый код по отдельности выложить и расписать что каждый код что делает?!

[Iska]

Mastak1, не надо, не вижу смысла. Этот код и так без начала и без конца.

[Mastak1]

Iska, там все не так уж и плохо.

[Mastak1]

Iska, что-то получается??

[Mastak1]

Iska, нельзя невозможно разобраться в этом коде ничего не получается у Вас?!
Я специально для Вас все расписал.

Я буду ждать вашего ответа, спасибо заранее ISKA!

[Iska]

Я буду ждать вашего ответа, »
Не ждите.

[YuS_2]

интересно, это уже какая по счету реинкарнация... :)
настырный, однако...