如果文件存在多台计算机上写入文本文件

嘿家伙需要一些帮助！我正在尝试做同样的事情。什么即时试图做的是检查看到某个应用程序安装在txt文件的计算机上，如果它没有安装写这些计算机名字叫没有安装如果文件存在多台计算机上写入文本文件

另一个文本文件

到目前为止我的代码：注意它的工作原理75％（只有在没有installed.txt写入1号线）

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

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 
outFile="c:\Jabber Testing\Not Installed.txt" 
Set objFile = FSO.CreateTextFile(outFile,True) 
objFile.Write Asset & vbCrLf 
objFile.Close 
End If 
Loop 
objtext.Close

能有人请帮我这有一个VBS中间的理解和需要，通过大约2000的计算机进行排序

来源

2015-10-16 Jerard Isaac Naidoo

值True in Set objFile = FSO.CreateTextFile(outFile,True)原因the file will be overwritten。打开输出文件之前Do Until ... Loop如下：

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

来源

2015-10-16 07:58:45 JosefZ

如果文件存在多台计算机上写入文本文件

回答

相关问题