Discussion :

[Azame]

Bonjour à tous ,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[omen999]

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

[Azame]

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

erreur !! desoler voila le script original

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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
mais bon...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!"

[Azame]

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
mais bon...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 , eh je connais pas toute les fonctions et autre possibilités , donc je l'ai fait un peut comme je pouvais
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 !!!