diff --git a/CiCd/PsExec.exe b/CiCd/PsExec.exe new file mode 100644 index 0000000..c7b348b Binary files /dev/null and b/CiCd/PsExec.exe differ diff --git a/CiCd/PsExec64.exe b/CiCd/PsExec64.exe new file mode 100644 index 0000000..db94608 Binary files /dev/null and b/CiCd/PsExec64.exe differ diff --git a/CiCd/deploy.vbs b/CiCd/deploy.vbs new file mode 100644 index 0000000..afe91e7 --- /dev/null +++ b/CiCd/deploy.vbs @@ -0,0 +1,63 @@ +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 \ No newline at end of file