VBscript to move from one server to next.

[freedavis]

I have the below vbscript and need to add a line to be able to move this to three servers. Any help appreciated on this questions.

Set FSO =CreateObject("scripting.FileSystemObject")

FSO.CopyFolder "C:\inetpub\wwwroot\Pre-Release\*", "C:\inetpub\wwwroot\ErOne" ,True

FSO.CopyFile "C:\inetpub\wwwroot\Pre-Release\*", "C:\inetpub\wwwroot\ErOne", True

MsgBox"Deployment completed, Goodbye", vbInformation, "Script Informer"

This vbscript when executed, copied entire folder content from pre-release folder to the ErOne folder.

Is there a way edit this script to do this on two others servers from one server? Would like to be able to execute this on one server and it pushes to two other servers also.

Edited December 13, 2012 by freedavis

[allen2]

This should work.

Set FSO =CreateObject("scripting.FileSystemObject")
'local deploy
FSO.CopyFolder "C:\inetpub\wwwroot\Pre-Release\*", "C:\inetpub\wwwroot\ErOne" ,True
FSO.CopyFile "C:\inetpub\wwwroot\Pre-Release\*", "C:\inetpub\wwwroot\ErOne", True
'remote server1 deploy
FSO.CopyFolder "C:\inetpub\wwwroot\Pre-Release\*", "\\server1\C$\inetpub\wwwroot\ErOne" ,True
FSO.CopyFile "C:\inetpub\wwwroot\Pre-Release\*", "\\server1\C$\inetpub\wwwroot\ErOne", True
'remote server2 deploy
FSO.CopyFolder "C:\inetpub\wwwroot\Pre-Release\*", "\\server2\C$\inetpub\wwwroot\ErOne" ,True
FSO.CopyFile "C:\inetpub\wwwroot\Pre-Release\*", "\\server2\C$\inetpub\wwwroot\ErOne", True

MsgBox"Deployment completed, Goodbye", vbInformation, "Script Informer"

[gunsmokingman]

Using allen2 example path here is another way using an array and a loop

Dim Fso :Set Fso = CreateObject("Scripting.FileSystemObject")
Dim FPath, Obj, SvrPath 
'->Array For Path To Local And Server Folders
SvrPath = Array("C:\inetpub\wwwroot\ErOne", _
                "\\server1\C$\inetpub\wwwroot\ErOne", _
                "\\server2\C$\inetpub\wwwroot\ErOne")                
'-> Copy This 
 FPath = "C:\inetpub\wwwroot\Pre-Release\*"                 
'-> Loop Threw The Array         
     For Each Obj In SvrPath
'-> Code For Copy
    Fso.CopyFolder FPath, Obj ,True
    Fso.CopyFile FPath, Obj, True
'-> UnComment For Out Put
'     WScript.Echo "Fso.CopyFolder " & FPath & ", " & Obj & ",True" & _
'         vbCrLf & "Fso.CopyFile " & FPath & ", " & Obj & ",True" & vbCrLf
     Next