Aide Sauvegarde VBS

Version imprimable

Aide Sauvegarde VBS

Bonjour à tous ,

Je suis Novice en VBS j'ai réaliser un script de sauvegarde que voici

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Q1 = Msgbox ("Voulez vous sauvegarder ?",vbyesno,"")
If Q1 = Vbyes then Q1 = msgbox ("attention fermeture d'outlook ?",vbyesno,"confirmation")
if Q1 = vbno then Q2 = msgbox ("etes vous sur de vouloir quitter ?",vbyesno,"comfirmation")
if Q2 = vbyes then wscript.quit
If Q1 = vbno then Q2 = msgbox ("etes vous sur de vouloir quitter ?",vbyesno,"comfirmation")
if Q2 = vbyes then wscript.quit
Dim SO
Set fSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "\\peuwfs00017\Backup\MTM Ressoources\robocopy.exe","C:\WINDOWS\system32\"
set shl = createobject ("wscript.shell")
shl.run "cmd /c taskkill /F /IM outlook.exe"
Function Lpad (MyValue, MyPadChar, MyPaddedLength)
Lpad = string(MyPaddedLength - Len(MyValue),MyPadChar) & MyValue
End Function
set owsh = createobject("wscript.shell")
sSourceFolder = "D:\users\%username%"
sDestinationFolder = "\\peuwfs00017\Backup\%username%"
sCommand = "robocopy """
sCommand = sCommand & sSourceFolder & """ "
sCommand = sCommand & sDestinationFolder & " "
sCommand = sCommand & " /E /S /R:5 /W:10"
sCommand = sCommand & " /LOG+:" & "\\peuwfs00017\Backup\%username%" & year(now) & Lpad(month(now), "0", 2) & Lpad(day(now), "0", 2) & "Sauvegarde.log"
set x = owsh.exec(sCommand)
While Encours=True
doevents
Wend
sMsg = "Sauvegarde terminée"
MsgBox sMsg, 64, sTitle
 
'Create an Outlook object
Dim Outlook 'As New Outlook.Application
Set Outlook = CreateObject("Outlook.Application")
'Create e new message
Dim Message 'As Outlook.MailItem
Set Message = Outlook.CreateItem(olMailItem)
With Message
.Subject = "Sauvegarde MTM"
'Set destination email address
.Recipients.Add ("toto.tat@hotmail.com")
.Body = "Sauvegarde Terminer"
'Send the message
.Send
End With

J'ai un soucis avec ce script ,j'aimerai que ma ( sMsg = "Sauvegarde terminée"
MsgBox sMsg, 64, sTitle) soit lancé dés que robocopy finis de backup les données ,
voila je Sais pas si j'ai était claire..
donc si quelqun peut m'aider :)
Merci

Azame

18/11/2009, 11h08
omen999

bonjour,
comment est définie et maj la variable Encours ? :koi:

Citation:

Envoyé par omen999

bonjour,
comment est définie et maj la variable Encours ? :koi:

erreur !! desoler voila le script original

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Q1 = Msgbox ("Voulez vous sauvegarder ?",vbyesno,"")
If Q1 = Vbyes then Q1 = msgbox ("attention fermeture d'outlook ?",vbyesno,"confirmation")
if Q1 = vbno then Q2 = msgbox ("etes vous sur de vouloir quitter ?",vbyesno,"comfirmation")
if Q2 = vbyes then wscript.quit
If Q1 = vbno then Q2 = msgbox ("etes vous sur de vouloir quitter ?",vbyesno,"comfirmation")
if Q2 = vbyes then wscript.quit
Dim SO
Set fSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "\\peuwfs00017\Backup\MTM Ressoources\robocopy.exe","C:\WINDOWS\system32\"
set shl = createobject ("wscript.shell")
shl.run "cmd /c taskkill /F /IM outlook.exe"
Function Lpad (MyValue, MyPadChar, MyPaddedLength)
Lpad = string(MyPaddedLength - Len(MyValue),MyPadChar) & MyValue
End Function
set owsh = createobject("wscript.shell")
sSourceFolder = "D:\users\%username%"
sDestinationFolder = "\\peuwfs00017\Backup\%username%"
sCommand = "robocopy """
sCommand = sCommand & sSourceFolder & """ "
sCommand = sCommand & sDestinationFolder & " "
sCommand = sCommand & " /E /S /R:5 /W:10"
sCommand = sCommand & " /LOG+:" & "\\peuwfs00017\Backup\%username%" & year(now) & Lpad(month(now), "0", 2) & Lpad(day(now), "0", 2) & "Sauvegarde.log"
set x = owsh.exec(sCommand)
Wscript.echo "Merci D'attendre la fermeture de la fenetre Robocopy.exe et cliquer ok!"
'Create an Outlook object
Dim Outlook 'As New Outlook.Application
Set Outlook = CreateObject("Outlook.Application")
'Create e new message
Dim Message 'As Outlook.MailItem
Set Message = Outlook.CreateItem(olMailItem)
With Message
.Subject = "Sauvegarde MTM"
'Set destination email address
.Recipients.Add ("Toto.Tata@hotmail.com")
.Body = "Sauvegarde Terminer"
'Send the message
.Send
End With

je ne vois pas trop pourquoi tu utilises d'abord la méthode Run pour tuer outlook puis la méthode Exec pour lancer Robocopy :calim2:
mais bon...
Code:

1 2 3 4 5 set x = owsh.exec(sCommand) Do While x.Status = 0 WScript.Sleep 100 Loop WScript.Echo "Merci D'attendre la fermeture de la fenetre Robocopy.exe et cliquer ok!"

19/11/2009, 12h00
Azame
Citation:
Envoyé par omen999

je ne vois pas trop pourquoi tu utilises d'abord la méthode Run pour tuer outlook puis la méthode Exec pour lancer Robocopy :calim2:
mais bon...

Code:

1 2 3 4 5 set x = owsh.exec(sCommand) Do While x.Status = 0 WScript.Sleep 100 Loop WScript.Echo "Merci D'attendre la fermeture de la fenetre Robocopy.exe et cliquer ok!"
Déjà un grand merci à toi!!!
eh bien en faite je débute vraiment en vbs:calim2: , eh je connais pas toute les fonctions et autre possibilités , donc je l'ai fait un peut comme je pouvais :roll:
donc si tu vois , des erreurs et des choses que je pourrais modifier pour améliorer mon script ,vas y je suis preneur sa vas me permettre de progressé ,
enfin j'espère :)
Un grand merci encore pour ta réponse rapide !!!