Dim oFSO,oLocal,oRemote,cExe,cLocal,cRemote,oShell,cParm,BtnCode cExe = "SeuExecutável.EXE" cLocal = "C:\SeuDiretórioLocal\" cRemote = "Z:\SeuDiretórioRemoto\" Set oFSO = CreateObject("Scripting.FileSystemObject") Set oShell = CreateObject("Wscript.Shell") Set oRemote = oFSO.GetFile(cRemote & cExe) If Not oFSO.FileExists(cLocal & cExe) then oRemote.Copy cLocal Else Set oLocal = oFSO.GetFile(cLocal & cExe) If oRemote.DateLastModified > oLocal.DateLastModified Then BtnCode = oShell.Popup("Sistema será atualizado. Por favor, aguarde.", 3, "Atualização de Sistema", 0 + 64) oRemote.Copy cLocal BtnCode = oShell.Popup("Atualização Concluída.", 1, "Atualização de Sistema", 0 + 64) End If End If oShell.Run(cLocal & cExe)Create a file like ATUALIZA.VBS and save it with the contents above.