Option Explicit Dim DeployMachine:DeployMachine = "KCI-APP01" Dim DeployRoot:DeployRoot = "F:\Development\Tracking_Kits\CiCd\" '"C:\inetpub\wwwroot\" Dim fso:Set fso = WScript.CreateObject("Scripting.Filesystemobject") Dim WshShell:Set WshShell = WScript.CreateObject("Wscript.Shell") Dim objShell:Set objShell = CreateObject("Shell.Application") If fso.FolderExists(DeployRoot & "test") Then WshShell.Run "cmd.exe /c rmdir /s /q """ & DeployRoot & "test""" , 0,True End If CloneRepo ZipRepo fso.CopyFile DeployRoot & "zzip.zip", "\\KCI-SYN-CL01\PC Transfer\zzip.zip", True WshShell.CurrentDirectory = DeployRoot Cleanup Sub Cleanup WshShell.Run "cmd.exe /c rmdir /s /q """ & DeployRoot & "test\""" , 0,True WScript.Sleep 2500 WScript.Sleep 2500 ' fso.DeleteFolder DeployRoot & "test" WshShell.Run "cmd.exe /c rmdir """ & DeployRoot & "test""" , 0,True fso.DeleteFile DeployRoot & "\zzip.zip" End Sub Sub ZipRepo WScript.Sleep 2500 WScript.Sleep 2500 fso.OpenTextFile(DeployRoot & "zzip.zip", 2, True).Write "PK" & Chr(5) & Chr(6) _ & String(18, Chr(0)) WScript.Sleep 2500 WScript.Sleep 2500 Dim objZip Set objZip = objShell.NameSpace(DeployRoot & "zzip.zip") Dim objFolder:Set objFolder = objShell.NameSpace(DeployRoot & "test\") objZip.CopyHere objFolder.Items Do Until objZip.Items.Count = objFolder.Items.Count WScript.Sleep 200 Loop Set objFolder = nothing End Sub Sub CloneRepo WshShell.Exec("git init test") WScript.Sleep 2500 WshShell.CurrentDirectory = DeployRoot & "test" WshShell.Exec("git remote add -f origin https://dcovington:_3ggUSA6YELP@onefortheroadgit.sytes.net/dcovington/tracking_kits") WshShell.Exec("git config core.sparseCheckout true") Dim objFile Set objFile = fso.CreateTextFile(".git/info/sparse-checkout") objFile.WriteLine("App/") objFile.WriteLine("Data/arrow ne.jpg") objFile.WriteLine("Data/Label_Report.rep") objFile.WriteLine("Data/png-transparent-arrow-arrow-angle-triangle-black-thumbnail.jpg") objFile.WriteLine("dist/") objFile.WriteLine("MVC/") objFile.WriteLine("index.asp") WshShell.Exec("git pull origin master") End Sub