Check a folder exists on multiple remote computers
Dim strFolder
Dim arrServers
Dim strProfile
strProfile = inputbox(“Enter path to file to check I.E: c$program filesinternex exploreriexplore.exe”,”File Check”)
arrComputers = Array(“server1″,”server2”)
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
sOutput=”Script Results for:” & strprofile & vbcrlf & vbcrlf
For EACH strComputer in arrComputers
sOutput = sOutput & objFSO.FolderExists (“\”& strComputer & strProfile) & vbtab & strComputer & vbcrlf
On Error Resume Next
Next
wscript.echo sOutput
