Vbscript 如果文件存在于多台计算机上，则写入txt文件

嘿，伙计们需要帮助！我正试图做同样的事情。 我要做的是检查txt文件中计算机上是否安装了某个应用程序 如果未安装，则将这些计算机名称写入另一个名为“未安装”的文本文件

到目前为止，我的代码是： 注意：它可以工作75%（仅在not installed.txt中写入1行）

---

有人能帮我解决这个问题吗？我对vbs有一定的了解，需要对大约2000台计算机进行排序，

Set objFile=FSO.CreateTextFile（outFile，True）

中的值True。在

Do之前打开输出文件，直到。。。循环

，如下所示：

Set FSO = CreateObject("Scripting.FileSystemObject")
Set objtext = FSO.OpenTextFile("C:\Jabber Testing\Asset_List.txt")

outFile="c:\Jabber Testing\Not Installed.txt"
Set objFile = FSO.CreateTextFile(outFile,True)

Do Until objtext.AtEndOfStream
  Asset = objtext.ReadLine
  InstallPath = "\\" & Asset & _
    "\C$\Program Files (x86)\Cisco Systems\Cisco Jabber\CiscoJabber.exe"
  If not FSO.FileExists (InstallPath) Then
    objFile.Write Asset & vbCrLf
  End If
Loop
objtext.Close
objFile.Close

---

Set objFile=FSO.CreateTextFile（outFile，True）

中的值True。在

Do之前打开输出文件，直到。。。循环

，如下所示：

Set FSO = CreateObject("Scripting.FileSystemObject")
Set objtext = FSO.OpenTextFile("C:\Jabber Testing\Asset_List.txt")

outFile="c:\Jabber Testing\Not Installed.txt"
Set objFile = FSO.CreateTextFile(outFile,True)

Do Until objtext.AtEndOfStream
  Asset = objtext.ReadLine
  InstallPath = "\\" & Asset & _
    "\C$\Program Files (x86)\Cisco Systems\Cisco Jabber\CiscoJabber.exe"
  If not FSO.FileExists (InstallPath) Then
    objFile.Write Asset & vbCrLf
  End If
Loop
objtext.Close
objFile.Close