Single Blog

 Dim strFolder
        Dim arrServers
        Dim strProfile
        strProfile = “C$usersadministrator”
 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