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