Aussie owned and operated, with 23+ years of industry experience, Gold Coast InfoTech is delighted to support all of your business technology requirements.

Gallery

Contacts

success@goldcoastinfotech.com.au

1800 291 071

KBArticles Scripts, Commands, Registry Uncategorized

SCRIPT: File exists on multiple servers

 Dim strFolder
        Dim arrServers
        Dim strProfile
‘example of file path       
strProfile = “C$WindowsSysWOW64MacromedFlashflash10v.ocx”
 arrComputers =     Array(“server1″,”server2”)
        Set objFSO = CreateObject(“Scripting.FileSystemObject”)
        sOutput=”Script Results for:” & strprofile & vbcrlf & vbcrlf       
        For EACH strComputer in arrComputers
sOutput = sOutput & objFSO.FileExists (“\”& strComputer & strProfile) & vbtab & strComputer & vbcrlf
              On Error Resume Next               
        Next
        wscript.echo sOutput

Author

Customer

Leave a comment

Your email address will not be published. Required fields are marked *