
ENTERPRISE
22
‘ ********** REMOVE MARKER **********
‘ Remove the marker file to indicate the patch is complete
Sub RemoveMarker
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
objFSO.DeleteFile(strUNCPath & strMarkerFile)
End Sub
‘ ********** INSERT UPDATE COMPLETE MARKER **********
‘ This inserts an update completed file to prevent update looping
Sub InsertCompleteMarker
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objFile = objFSO.CreateTextFile(strUNCPath & strMarkerCompleteFile)
End Sub
‘ ********** CLEANUP **********
Set objNet = Nothing
Set objFile = Nothing
Set objRE = Nothing
Set objFolder = Nothing
Set objTS = Nothing
Set objFS = Nothing
Set objTextFile = Nothing
Set objFSO = Nothing