awsswaawsswa
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
' VBS скрипт поиска компьюторов с установленной программой
strFile = "\C$\Windows\System32\calc.exe"
Set objFSO = CreateObject("Scripting.FileSystemObject")
strData = objFSO.OpenTextFile("MachineList.txt",1).ReadAll
arrServers = Split(strData,vbCrLf)
For counter = 0 to Ubound(arrServers)
arrServers(counter) = Trim(arrServers(counter))
strServer = arrServers(counter)
If objFSO.FileExists("\\" & strServer & strFile) Then
MsgBox "File Exists On " & strServer
Else
MsgBox "File Does Not Exist On " & strServer
End If
Next
|
