Home » KBArticles » Check a folder exists on multiple remote computers

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          

Leave a Reply

Your email address will not be published.

This site uses Akismet to reduce spam. Learn how your comment data is processed.