[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? Что такое РЕГИОН? Что такое ТИП РАЗРЯДНОСТИ?