freedavis Posted December 13, 2012 Share Posted December 13, 2012 (edited) 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" ,TrueFSO.CopyFile "C:\inetpub\wwwroot\Pre-Release\*", "C:\inetpub\wwwroot\ErOne", TrueMsgBox"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 Link to comment Share on other sites More sharing options...
allen2 Posted December 13, 2012 Share Posted December 13, 2012 This should work.Set FSO =CreateObject("scripting.FileSystemObject")'local deployFSO.CopyFolder "C:\inetpub\wwwroot\Pre-Release\*", "C:\inetpub\wwwroot\ErOne" ,TrueFSO.CopyFile "C:\inetpub\wwwroot\Pre-Release\*", "C:\inetpub\wwwroot\ErOne", True'remote server1 deployFSO.CopyFolder "C:\inetpub\wwwroot\Pre-Release\*", "\\server1\C$\inetpub\wwwroot\ErOne" ,TrueFSO.CopyFile "C:\inetpub\wwwroot\Pre-Release\*", "\\server1\C$\inetpub\wwwroot\ErOne", True'remote server2 deployFSO.CopyFolder "C:\inetpub\wwwroot\Pre-Release\*", "\\server2\C$\inetpub\wwwroot\ErOne" ,TrueFSO.CopyFile "C:\inetpub\wwwroot\Pre-Release\*", "\\server2\C$\inetpub\wwwroot\ErOne", TrueMsgBox"Deployment completed, Goodbye", vbInformation, "Script Informer" Link to comment Share on other sites More sharing options...
gunsmokingman Posted December 13, 2012 Share Posted December 13, 2012 Using allen2 example path here is another way using an array and a loopDim Fso :Set Fso = CreateObject("Scripting.FileSystemObject")Dim FPath, Obj, SvrPath '->Array For Path To Local And Server FoldersSvrPath = 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 Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now