[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