function ExportAddRemoveProgramsDataToFile(FilePath)
{
    FilePath = FilePath || "%TMP%\\Progs.txt";
    var Command = 'REG EXPORT "HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall" "'+FilePath+'" \/y';
    WshShell.Run(Command,0,1);
    
    //var Result = GetAbsolutePath(FilePath); return Result;
}

Function GetSoftware(display_name,get_string_param)
	On Error Resume Next
	ret=""
	uninstall_string="SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
	HKLM=&H80000002
	Set objWMI = GetObject("winmgmts:\\.\root\CIMV2")
	Set objCtx = CreateObject("WbemScripting.SWbemNamedValueSet")
	If GetOsArchitecture="64" Then
		objCtx.Add "__ProviderArchitecture", 64
	Else
		objCtx.Add "__ProviderArchitecture", 32
	End If
	Set objLocator = CreateObject("Wbemscripting.SWbemLocator")
	Set objServices = objLocator.ConnectServer("","root\default","","",,,,objCtx)
	Set objStdRegProv = objServices.Get("StdRegProv")
	Set InParams = objStdRegProv.Methods_("EnumKey").InParameters
	Inparams.Hdefkey = HKLM
	Inparams.Ssubkeyname = uninstall_string
	Set Outparams = objStdRegProv.ExecMethod_("EnumKey", Inparams,,objCtx)
	For Each strSubKey In Outparams.sNames
		Set InParam = objStdRegProv.Methods_("GetStringValue").InParameters
		Inparam.sSubKeyName=uninstall_string &"\"& strSubKey
		Inparam.Hdefkey = HKLM
		Inparam.sValueName="DisplayName"
		Set OutParam = objStdRegProv.ExecMethod_("GetStringValue", Inparam,,objCtx)
		If (StrComp(OutParam.sValue,display_name,1)=0) Then
			Set InValue = objStdRegProv.Methods_("GetStringValue").InParameters
			InValue.sSubKeyName=uninstall_string &"\"& strSubKey
			InValue.Hdefkey = HKLM
			InValue.sValueName=get_string_param
			Set oValue = objStdRegProv.ExecMethod_("GetStringValue", InValue,,objCtx)
			ret=oValue.sValue
			Set InValue=Nothing
		End If
		Set InParam=Nothing
	Next
	If ret="" Then
		GetSoftware="отсутствует"
	Else
		GetSoftware=ret
	End if
	Set InParams=Nothing
	Set objStdRegProv = Nothing
	Set objServices = Nothing
	Set objLocator = Nothing
	Set objCtx = Nothing
	Set objWMI = Nothing
	On Error Goto 0
End Function

Function GetOsArchitecture
	On Error Resume next
	GetOsArchitecture="32"
	Const wbemFlagReturnImmediately = &h10
	Const wbemFlagForwardOnly = &h20
	Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
   	Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
	For Each objItem In colItems
		GetOsArchitecture=Left(objItem.OSArchitecture,2)
	Next
	Set objWMIService = Nothing
	Set colItems = Nothing
	On Error GoTo 0
End Function

MsgBox GetSoftware("Microsoft .NET Framework 4 Extended","DisplayVersion")