csv – 我需要将VBS WScript.Echo输出写入text或cvs

我正在尝试编写一个VBScript,它将在文本文件或csv中列出系统上所有已安装的应用程序.我能够找到现有代码列出所有软件(包括名称,版本,日期和大小).当我正在运行它时,因为我发现它回显了主机回声弹出.我需要添加什么来使其将每个回声输出到文件？我相信这很容易,但我似乎无法找到解决方案.

以下是我找到的脚本：

Dim fso
Set fso = WScript.CreateObject("ScripTing.Filesystemobject")
' List All Installed Software





Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
strComputer = "."
strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
strEntry1a = "DisplayName"
strEntry1b = "QuietDisplayName"
strEntry2 = "InstallDate"
strEntry3 = "VersionMajor"
strEntry4 = "VersionMinor"
strEntry5 = "EstimatedSize"

Set objReg = GetObject("winmgmts://" & strComputer & _
 "/root/default:StdRegProv")
objReg.EnumKey HKLM,strKey,arrSubkeys
WScript.Echo "Installed Applications" & VbCrLf
For Each strSubkey In arrSubkeys
  intRet1 = objReg.Getstringvalue(HKLM,strKey & strSubkey,_
   strEntry1a,strValue1)
  If intRet1 <> 0 Then
    objReg.Getstringvalue HKLM,_
     strEntry1b,strValue1
  End If
  If strValue1 <> "" Then
    WScript.Echo VbCrLf & "Display Name: " & strValue1
  End If
  objReg.Getstringvalue HKLM,_
   strEntry2,strValue2
  If strValue2 <> "" Then
    WScript.Echo "Install Date: " & strValue2
  End If
  objReg.GetDWORDValue HKLM,_
   strEntry3,intValue3
  objReg.GetDWORDValue HKLM,_
   strEntry4,intValue4
  If intValue3 <> "" Then
     WScript.Echo "Version: " & intValue3 & "." & intValue4
  End If
  objReg.GetDWORDValue HKLM,_
   strEntry5,intValue5
  If intValue5 <> "" Then
    WScript.Echo "Estimated Size: " & round(intValue5/1024,3) & " megabytes"
  End If
Next

cscript.exe //NoLogo "C:\path\to\your.vbs" >"C:\output.txt"

Dim fso
Set fso = WScript.CreateObject("ScripTing.Filesystemobject")
Set f = fso.opentextFile("C:\output.txt",2)

...

f.Close
'End of Script