[R] Runtime Error Ultramon durant Script

[lokomass]

Bonsoir à tous,

J'utilise un script depuis quelques temps qui fait le nettoyage sur mon PC, et une sauvegarde Ghost de celui-ci. Quelques petites opérations comme des synchronisations entre répertoires, renommage de fichiers. A la fin du script, j'utilise un compte à rebours avant d'éteindre le PC (c'est d'ailleurs l'un d'entre vous qui me l'avait fait ).
Cependant j'ai une erreur et cela fait déjà quelques temps que j'ai essayé de m'en débarrasser, qui apparait juste avant ce fameux compte à rebours à la fin. Un Runtime Error qui kill Ultramon...




J'ai essayé de changer de version d'Ultramon, de n'utiliser dans le script que l'envoi de mail ou juste la partie nettoyage, et même uniquement la partie Sauvegarde Acronis True Image. Mais séparément je n'ai jamais eu aucune erreur, uniquement dans ce script.
Bref, j'ai besoin d'aide, pour info, je suis sous Windows 7 64bits.

Voici le script, merci pour votre aide.

► Afficher le texte

Code : Tout sélectionner

;=========================================================== NETTOYAGE ===========================================================
#include <INet.au3>
#include <GuiConstants.au3>
#include <string.au3>
#Include <file.au3>




;============================================================= Chrono ============================================================
$Duree1 = 500
$Duree2 = 1500
$Duree3 = 3000
$Duree4 = 5000
sleep($Duree2)
$SujetMail = "Sauvegarde Commencée"
$MessageMail = "La sauvegarde va maintenant commencer..."
Sendmail($SujetMail,$MessageMail)
sleep($Duree2)
$Debut = TimerInit()




;======================================================== Nettoyage de C: ========================================================
sleep($Duree3)
run("C:\Windows\System32\cleanmgr.exe")
winwait("Nettoyage de disque : Sélection du lecteur")
ControlCommand("Nettoyage de disque : Sélection du lecteur", "", "[Class:ComboBox;Instance:1]", "SelectString", 'Windows (C:)')
ControlClick("Nettoyage de disque : Sélection du lecteur","",1,"Left",1)
winwaitclose("Nettoyage de disque")
winwait("Nettoyage de disque pour Windows (C:)")
winactive("Nettoyage de disque pour Windows (C:)")
ControlClick("Nettoyage de disque pour Windows (C:)","",1,"Left",1)
winwait("Nettoyage de disque")
winactive("Nettoyage de disque")
send("{enter}")
WinWaitClose("Nettoyage de disque")



;======================================================== Nettoyage de D: ========================================================
sleep($Duree3)
run("C:\Windows\System32\cleanmgr.exe")
winwait("Nettoyage de disque : Sélection du lecteur")
ControlCommand("Nettoyage de disque : Sélection du lecteur", "", "[Class:ComboBox;Instance:1]", "SelectString", 'Documents (D:)')
ControlClick("Nettoyage de disque : Sélection du lecteur","",1,"Left",1)
winwaitclose("Nettoyage de disque")
winwait("Nettoyage de disque pour Documents (D:)")
winactive("Nettoyage de disque pour Documents (D:)")
$Ya1 = WinGetText("Nettoyage de disque pour Documents (D:)", "0 octets")
$Yapa1 = StringInStr($Ya1, "0 octets")
If ($Yapa1 = 0) Then
    ControlClick("Nettoyage de disque pour Documents (D:)","",1,"Left",1)
    winwait("Nettoyage de disque")
    winactive("Nettoyage de disque")
    send("{enter}")
    WinWaitClose("Nettoyage de disque")
Else
    ControlClick("Nettoyage de disque pour Documents (D:)","",1,"Left",1)
EndIf   



;======================================================= Nettoyage Cleaner =======================================================
sleep($Duree2)
run("C:\Program Files\CCleaner\CCleaner64.exe")
winwait("Piriform CCleaner")
winactive("Piriform CCleaner")
sleep($Duree2)
ControlClick("Piriform CCleaner","","[CLASS:Button; INSTANCE:2]")
winwait("Piriform CCleaner","NETTOYAGE TERMINE")
;ControlClick("Piriform CCleaner", "", "[CLASS:TButton; TEXT:Registre]")
;winwait("Piriform CCleaner","Chercher les erreurs")
;ControlClick("Piriform CCleaner", "", "[CLASS:TButton; TEXT:Chercher les erreurs]")
winclose("Piriform CCleaner")



;======================================================== Nettoyage JV16 =========================================================
sleep($Duree2)
run("C:\Program Files (x86)\JV 16\jv16PT.exe")
winwait("jv16 PowerTools 2011 [x64]")
sleep($Duree4)
winactive("jv16 PowerTools 2011 [x64]")
sleep($Duree3)
send("^{F9}")
winwait("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
winactive("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
ControlClick("jv16 PowerTools 2011 [x64] - Nettoyeur Registre", "", "[CLASS:TButton; INSTANCE:1]")
winwait("jv16 PowerTools 2011 [x64] - Nettoyeur Registre","Sélectionné")
winactive("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
send("^a")
sleep($Duree2)
ControlClick("jv16 PowerTools 2011 [x64] - Nettoyeur Registre", "", "[CLASS:TButton; TEXT:Supprimer]")
winwait("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
winactive("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
sleep($Duree2)
ControlClick("jv16 PowerTools 2011 [x64] - Nettoyeur Registre", "", "[CLASS:TButton; TEXT:Fermer]")
winwait("jv16 PowerTools 2011 [x64] - Nettoyeur Registre"," Tout exécuté !")
winactive("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
ControlClick("jv16 PowerTools 2011 [x64] - Nettoyeur Registre", "", "[CLASS:TButton; TEXT:Annuler]")
sleep($Duree2)
winwait("jv16 PowerTools 2011 [x64]")
winactive("jv16 PowerTools 2011 [x64]")
send("^q")
winwaitclose("jv16 PowerTools 2011 [x64]")





;====================================================== Nettoyage Tune Up ========================================================
sleep($Duree2)
run("C:\Program Files (x86)\Tune Up\RegistryCleaner.exe")
sleep($Duree2)
winwait("TuneUp Registry Cleaner")
winactive("TuneUp Registry Cleaner")
sleep($Duree2)
ControlClick("TuneUp Registry Cleaner", "", "[CLASS:TButton; INSTANCE:2]")
winactive("TuneUp Registry Cleaner")
$Prob1 = 1
While($Prob1 > 0)
    $Fini1 = WinGetText("TuneUp Registry Cleaner", "< &Précédent")
    $Prob1 = StringInStr($Fini1, "< &Précédent")
Wend
sleep($Duree2)
$Fini2 = WinGetText("TuneUp Registry Cleaner")
$Prob2 = StringInStr($Fini2, "Terminer")
If ($Prob2 = 0) Then
    winwait("TuneUp Registry Cleaner","Afficher les problèmes")
    winactive("TuneUp Registry Cleaner")
    ControlClick("TuneUp Registry Cleaner", "", "[CLASS:TButton; INSTANCE:2]")
    winactive("TuneUp Registry Cleaner")
    sleep($Duree2)
    send("^s")
    winwait("TuneUp Registry Cleaner")
    winactive("TuneUp Registry Cleaner")
    ControlClick("TuneUp Registry Cleaner", "", "[CLASS:TButton; INSTANCE:2]")
    winwait("TuneUp Registry Cleaner","Terminer")
    winactive("TuneUp Registry Cleaner")
    ControlClick("TuneUp Registry Cleaner", "", "[CLASS:TButton; INSTANCE:2]")
    winwait("TuneUp Registry Cleaner")
    winactive("TuneUp Registry Cleaner")
    send("!{F4}")
Else
    ControlClick("TuneUp Registry Cleaner", "", "[CLASS:TButton; INSTANCE:2]")
    winwait("TuneUp Registry Cleaner")
    winactive("TuneUp Registry Cleaner")
    send("!{F4}")
Endif



;======================================================= Nettoyage Spybot ========================================================
sleep($Duree2)
run("C:\Program Files (x86)\Spybot\SpybotSD.exe")
sleep($Duree2)
winwait("Spybot - Search & Destroy","Vérifier tout")
winactive("Spybot - Search & Destroy")
sleep($Duree2)
ControlClick("Spybot - Search & Destroy", "", "[CLASS:TPngBitBtn; INSTANCE:1]")
winwait("Spybot - Search & Destroy","problèmes détectés")
$Fini3 = WinGetText("Spybot - Search & Destroy", "problèmes détectés")
$Prob3 = StringInStr($Fini3, "0 problèmes détectés") ;
If ($Prob3 > 0) then
    winclose("Spybot - Search & Destroy")
Else
    ControlClick("Spybot - Search & Destroy","", "[CLASS:TToolBar; INSTANCE:1]", "left", 1, 168, 17)
    winwait("Confirmation")
    winactive("Confirmation")
    ControlClick("Confirmation", "", "[CLASS:TButton; INSTANCE:2]")
    WinWait("Confirmation","OK")
    winactive("Confirmation")
    ControlClick("Confirmation", "", "[CLASS:TButton; INSTANCE:1]")
    winclose("Spybot - Search & Destroy")
Endif



;========================================================= Synchronisation =======================================================
;Montage
run("S:\Sauvegarde\Scripts\Mount.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
;Renomme
sleep($Duree4)
run("S:\Sauvegarde\Scripts\Rename.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
;VM Ware
run("S:\Sauvegarde\Scripts\Sync1.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
;Iphone
run("S:\Sauvegarde\Scripts\Sync2.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
;Contacts
run("S:\Sauvegarde\Scripts\Sync3.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")



;=========================================================== BACKUP PC ===========================================================



;======================================================= Acronis True Image ======================================================
;Suppression
run("S:\Sauvegarde\Scripts\Del.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
;Montage
run("S:\Sauvegarde\Scripts\Mount.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
;Save
run("S:\Sauvegarde\Scripts\Save.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
;Renomme
sleep($Duree4)
run("S:\Sauvegarde\Scripts\Rename.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
;Montage
run("S:\Sauvegarde\Scripts\Mount.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")



;============================================================= Chrono ============================================================
sleep($Duree2)
$Duree = Time(TimerDiff($Debut))
$SujetMail = "Sauvegarde Terminée"
$MessageMail = "La sauvegarde a été réalisée avec succès en "&$Duree




;=========================================================== Mail & Stop =========================================================
sleep($Duree2)
Sendmail($SujetMail,$MessageMail)
sleep($Duree2)
Eteindre($Duree1)




;====================================================== Durée Totale Backup ======================================================
Func Time($Fin)

    Local $Fin_formater
    Local $seconde_arrondi
    Local $minute
    Local $seconde
    Local $heure

    If( $Fin < 60000 ) Then

        $Fin_formater = Round( ($Fin/1000), 2 ) & " secondes"

    ElseIf( ($Fin >= 60000) AND ($Fin < 3600000) ) Then

        $seconde_arrondi = Int( $Fin / 1000 )
        $minute = Int( $seconde_arrondi / 60)
        $seconde = Round( (($Fin / 1000) - $minute*60), 0 )
        $Fin_formater = $minute & " min " & $seconde & " sec"

    Else

        $seconde_arrondi = Int( $Fin / 1000 )
        $heure = Int( $seconde_arrondi / 3600)
        $minute = Int( (($seconde_arrondi - $heure*3600) / 60) )
        $seconde = Round( (($Fin / 1000) - $heure*3600 - $minute*60), 0)
        $Fin_formater = $heure&"h " &$minute & "m " & $seconde & "s"

    EndIf

    Return $Fin_formater

EndFunc



;====================================================== Envoi Mail Confirm =======================================================
Func SendMail($s_Subject,$as_Body)
$s_SmtpServer = _INetGetSource("http://www.autoitscript.fr/smtp.php")
$s_FromName = "Lokomass"
$s_FromAddress = "xxxxxxxxxx"
$s_ToAddress = "xxxxxxxxxxxxxxx"
$s_CcAddress = ""
$s_BccAddress = ""
$s_Username = "xxxxxxxxxxxx"
$s_Password = "xxxxxxxxxxxxxx"
$IPPort = 25
$ssl = 0
$mail=""
$s_AttachFiles = ""
$mail= INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username ="", $s_Password="",$IPPort, $ssl)
EndFunc



Func  INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject , $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password ,$IPPort, $ssl)
    $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment ($S_Files2Attach[$x])
            Else
                $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
                SetError(1)
                return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $Ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    $objEmail.Configuration.Fields.Update
    $objEmail.Send
    if @error then
        SetError(2)
        return
    EndIf
EndFunc


Func MyErrFunc()
    Return
EndFunc




;========================================================== Arrêt du PC ==========================================================
Func Eteindre($Temps)
$Gui = GuiCreate("Arrêt du PC", 350, 120)
$ProgressLabel = GUICtrlCreateLabel("Annuler", 20, 30, 330)
$Progress = GUICtrlCreateProgress(20, 50, 300, 20)
$StartButton = GUICtrlCreateButton("Annuler", (350/2)-(140/2), 80, 140)
GUICtrlSetData($Progress, 100)
GUISetState(@SW_SHOW)


ControlClick("Arrêt du PC", "", "[CLASS:Button; INSTANCE:1]")


While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case -3
            Exit
        Case $StartButton
            GUICtrlSetData($ProgressLabel, "Veuillez patienter")

            GUICtrlSetData($StartButton, "Annuler")

            $sSeconds = $Temps
            $timer = TimerInit()

            For $sSeconds = $Temps to 0 step -1
                ConsoleWrite( " For = " & $sSeconds & @CRLF)
                $sSeconds = GetTimer($timer,$Progress,$Temps)
                GUICtrlSetData($ProgressLabel, "Arrêt dans " & $sSeconds & " secondes")
                If GUIGetMsg() = $StartButton Then
                    Exit
                Endif
            Next

            winclose("Arrêt du PC")
            Shutdown(1)

    EndSwitch
WEnd
EndFunc


Func GetTimer($timer,$Progress,$Temps)
    Local $Progression = 0
    Local $Time = 0
    Local $Virgule = 0
    $TimerOut = TimerDiff($timer)
    $Time = $TimerOut / 1000
    If $Time < 10 Then
        $Virgule = StringLeft($Time, 1)
    ElseIf $Time > 10 And $Time < 100 Then
        $Virgule = StringLeft($Time, 2)
    ElseIf $Time > 100 Then
        $Virgule = StringLeft($Time, 3)
    EndIf
    $Seconds = $Temps - $Virgule
    $Progression = $Progression + $Virgule * (100 / $Temps)
    GUICtrlSetData($Progress, 100 - $Progression)
    return $Seconds
EndFunc

 

[mikell]

Qu'est-ce que ça donne si tu demandes à ton script de fermer proprement UltraMon avant de lancer le ShutDown(1) ?

[lokomass]

Salut et merci pour ta réponse.
J'y avait pas pensé, mais j'aimerai pas qu'il le ferme pas en fait moi.
Comment je peux le killer dans le script ?

[mikell]

Avec un ProcessClose peut-être ?
Peut-être mettre à jour la Visual C++ Runtime library ?

[lokomass]

OK je vois, mais moi j'aimerai juste ne pas avoir d'erreur et surtout ne pas avoir à fermer Ultramon, parce qu'à 99% des cas je n'éteins pas le PC après, et Ultramon j'en ai tout le temps besoin.


Edit : Màj le runtime, peut-être une piste intéressante.

Elle a l'air à jour.

[mikell]

Le bug c'est juste quand tu éteins le pc ?
Arrêter Ultramon avant c'était juste pour tester ^^
Sinon tu peux essayer le debug façon bourrin, mettre des If WinExists("Microsoft Visual...") Then Msgbox régulièrement pour essayer de définir l'endroit exact où l'erreur est provoquée...

[lokomass]

Ah okkk ! Lol
Ben je vais tester ce soir alors.
Le message apparaît juste ici pour moi :

Code : Tout sélectionner

;============================================================= Chrono ============================================================
sleep($Duree2)
$Duree = Time(TimerDiff($Debut))
$SujetMail = "Sauvegarde Terminée"
$MessageMail = "La sauvegarde a été réalisée avec succès en "&$Duree




;=========================================================== Mail & Stop =========================================================
sleep($Duree2)
Sendmail($SujetMail,$MessageMail)
sleep($Duree2)
Eteindre($Duree1)

Juste après le SendMail (puisque je reçoit toujours le mail de fin) et donc avant (ou pendant ?) la fonction Eteindre.

N'y a t-il pas moyen justement de tracer toutes les opérations et erreurs qui passent dans un fichier log ? Ca serait peut-être plus pratique ?

Merci

[mikell]

Le problème dans ton cas c'est que des If @error ne marcheraient pas, c'est Ultramon qui plante, pas ton script
D'où l'intérêt du test de fermeture d'Ultramon

[lokomass]

Donc en fait tu suggère que je ferme Ultramon depuis mon script, un truc du style :

Code : Tout sélectionner

;============================================================= Chrono ============================================================
sleep($Duree2)
$Duree = Time(TimerDiff($Debut))
$SujetMail = "Sauvegarde Terminée"
$MessageMail = "La sauvegarde a été réalisée avec succès en "&$Duree


ProcessClose(C:\Program Files\UltraMon\Ultramon.exe)


;=========================================================== Mail & Stop =========================================================
sleep($Duree2)
Sendmail($SujetMail,$MessageMail)
sleep($Duree2)
Eteindre($Duree1)

Et après, si j'ai plus le message, on en déduit quoi ? Que la solution serait de la fermer à un moment dans le script et de le relancer à la fin ?

[mikell]

Pas forcément
Si le bug se produit avant d'éteindre le pc, alors fermer Ultramon avant n'est pas un problème ^^
Si le bug se produit même si tu n'éteins pas le pc, c'est probablement le signe d'un conflit alors si tu n'arrives pas à mettre le doigt dessus peut-être "geler" (suspendre) Ultramon pendant le script serait la solution, et dans le pire des cas, effectivement pourquoi pas fermer Ultramon en début de script et le relancer à la fin (solution bourrin pas vraiment satisfaisante...)

[lokomass]

En fait le bug se produit avant la demande d'extinction du PC. Cette demande consiste à lancer un compte à rebours de 500 secondes avant d'éteindre l'ordi. Ca me permet juste d'eteindre l'ordi si je ne suis pas devant. Mais cette fenêtre contient le bouton "Stop" pour arrêter la procédure d'arrêt, au cas ou je sois devant l'ordi, et que j'ai besoin de continuer a m'en servir. Ce cas, c'est 99% du temps.
Donc pour tester oublions que le PC doit d'éteindre.
Quand tu dit, "geler" Ultramon, qu'entend tu par la ? Y'a une commande pour ça ?

Edit : je précise aussi que j'ai essayé de mettre Ultramon à jour. Est-ce que ça ne pourrait pas venir de la PF 32 ou 64 bits ? Ultramon est en 64 bits, ma compilation du script aussi (j'ai également testé 32 bits). Est-ce aussi possible que le au3 fonctionne mais le exe pose problème ?

[mikell]

Quand tu dit, "geler" Ultramon, qu'entend tu par la ? Y'a une commande pour ça ?

Timmalos a fait une fonction intéressante, cherche "suspend process" http://www.autoitscript.fr/forum/viewto ... it=process

[lokomass]

Une petite question, je suis en train de faire des tests, et des modifs...
JE viens de me rendre compte de ceci :

#Include <file.au3>


N'est-ce pas "include" sans majuscule ? Est-ce grave ?

Merci

[mikell]

N'est-ce pas "include" sans majuscule ? Est-ce grave ?

Non

[lokomass]

Bon voilà ou j'en suis.
J'ai réussi grâce à la bidouille à enlever l'erreur Ultramon. Je l'arrête pendant, et le relance à la fin uniquement si je clique sur l'annulation du compteur.
En revanche j'obtiens un nouveau message d'erreur juste après le Save.bat (sauvegarde acronis), il déconnecte tous mes lecteurs réseaux, et donc je crois qu'il ne trouve plus rien. Pas de soucis, pour y remédier, je crée le Mount.bat sur C: qui remonte tout mais même erreur. Donc la... je sèche un peu. Voici l'erreur.



Toujours comme ça, on "corrige" un soucis, un autre apparaît.

Le script :

► Afficher le texte

Code : Tout sélectionner

;=========================================================== NETTOYAGE ===========================================================
#include <INet.au3>
#include <GuiConstants.au3>
#include <string.au3>
#include <file.au3>



;============================================================= Chrono ============================================================
$Duree1 = 500
$Duree2 = 1500
$Duree3 = 3000
$Duree4 = 5000
sleep($Duree2)
$SujetMail = "Sauvegarde Commencée"
$MessageMail = "La sauvegarde va maintenant commencer..."
Sendmail($SujetMail,$MessageMail,"")
sleep($Duree2)
$Debut = TimerInit()



;============================================================== Logs =============================================================
$Date = @MDAY&@MON&@YEAR&"_"&@HOUR&@MIN&@SEC
$Fichier = "Logs/" & $Date & ".log"
_FileCreate($Fichier)



;======================================================== Nettoyage de C: ========================================================
sleep($Duree3)
run("C:\Windows\System32\cleanmgr.exe")
winwait("Nettoyage de disque : Sélection du lecteur")
ControlCommand("Nettoyage de disque : Sélection du lecteur", "", "[Class:ComboBox;Instance:1]", "SelectString", 'Windows (C:)')
ControlClick("Nettoyage de disque : Sélection du lecteur","",1,"Left",1)
winwaitclose("Nettoyage de disque")
winwait("Nettoyage de disque pour Windows (C:)")
winactive("Nettoyage de disque pour Windows (C:)")
ControlClick("Nettoyage de disque pour Windows (C:)","",1,"Left",1)
winwait("Nettoyage de disque")
winactive("Nettoyage de disque")
send("{enter}")
WinWaitClose("Nettoyage de disque")
SaveLog("Nettoyage C: OK")



;======================================================== Nettoyage de D: ========================================================
sleep($Duree3)
run("C:\Windows\System32\cleanmgr.exe")
winwait("Nettoyage de disque : Sélection du lecteur")
ControlCommand("Nettoyage de disque : Sélection du lecteur", "", "[Class:ComboBox;Instance:1]", "SelectString", 'Documents (D:)')
ControlClick("Nettoyage de disque : Sélection du lecteur","",1,"Left",1)
winwaitclose("Nettoyage de disque")
winwait("Nettoyage de disque pour Documents (D:)")
winactive("Nettoyage de disque pour Documents (D:)")
$Ya1 = WinGetText("Nettoyage de disque pour Documents (D:)", "0 octets")
$Yapa1 = StringInStr($Ya1, "0 octets")
If ($Yapa1 = 0) Then
    ControlClick("Nettoyage de disque pour Documents (D:)","",1,"Left",1)
    winwait("Nettoyage de disque")
    winactive("Nettoyage de disque")
    send("{enter}")
    WinWaitClose("Nettoyage de disque")
Else
    ControlClick("Nettoyage de disque pour Documents (D:)","",1,"Left",1)
EndIf   
SaveLog("Nettoyage D: OK")



;======================================================= Nettoyage Cleaner =======================================================
sleep($Duree2)
run("C:\Program Files\CCleaner\CCleaner64.exe")
winwait("Piriform CCleaner")
winactive("Piriform CCleaner")
sleep($Duree2)
ControlClick("Piriform CCleaner","","[CLASS:Button; INSTANCE:2]")
winwait("Piriform CCleaner","NETTOYAGE TERMINE")
winclose("Piriform CCleaner")
SaveLog("Cleaner OK")



;======================================================== Nettoyage JV16 =========================================================
sleep($Duree2)
run("C:\Program Files (x86)\JV 16\jv16PT.exe")
winwait("jv16 PowerTools 2011 [x64]")
sleep($Duree4)
winactive("jv16 PowerTools 2011 [x64]")
sleep($Duree3)
send("^{F9}")
winwait("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
winactive("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
ControlClick("jv16 PowerTools 2011 [x64] - Nettoyeur Registre", "", "[CLASS:TButton; INSTANCE:1]")
winwait("jv16 PowerTools 2011 [x64] - Nettoyeur Registre","Sélectionné")
winactive("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
send("^a")
sleep($Duree2)
ControlClick("jv16 PowerTools 2011 [x64] - Nettoyeur Registre", "", "[CLASS:TButton; TEXT:Supprimer]")
winwait("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
winactive("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
sleep($Duree2)
ControlClick("jv16 PowerTools 2011 [x64] - Nettoyeur Registre", "", "[CLASS:TButton; TEXT:Fermer]")
winwait("jv16 PowerTools 2011 [x64] - Nettoyeur Registre"," Tout exécuté !")
winactive("jv16 PowerTools 2011 [x64] - Nettoyeur Registre")
ControlClick("jv16 PowerTools 2011 [x64] - Nettoyeur Registre", "", "[CLASS:TButton; TEXT:Annuler]")
sleep($Duree2)
winwait("jv16 PowerTools 2011 [x64]")
winactive("jv16 PowerTools 2011 [x64]")
send("^q")
winwaitclose("jv16 PowerTools 2011 [x64]")
SaveLog("JV16 OK")



;====================================================== Nettoyage Tune Up ========================================================
sleep($Duree2)
run("C:\Program Files (x86)\Tune Up\RegistryCleaner.exe")
sleep($Duree2)
winwait("TuneUp Registry Cleaner")
winactive("TuneUp Registry Cleaner")
sleep($Duree2)
ControlClick("TuneUp Registry Cleaner", "", "[CLASS:TButton; INSTANCE:2]")
winactive("TuneUp Registry Cleaner")
$Prob1 = 1
While($Prob1 > 0)
    $Fini1 = WinGetText("TuneUp Registry Cleaner", "< &Précédent")
    $Prob1 = StringInStr($Fini1, "< &Précédent")
Wend
sleep($Duree2)
$Fini2 = WinGetText("TuneUp Registry Cleaner")
$Prob2 = StringInStr($Fini2, "Terminer")
If ($Prob2 = 0) Then
    winwait("TuneUp Registry Cleaner","Afficher les problèmes")
    winactive("TuneUp Registry Cleaner")
    ControlClick("TuneUp Registry Cleaner", "", "[CLASS:TButton; INSTANCE:2]")
    winactive("TuneUp Registry Cleaner")
    sleep($Duree2)
    send("^s")
    winwait("TuneUp Registry Cleaner")
    winactive("TuneUp Registry Cleaner")
    ControlClick("TuneUp Registry Cleaner", "", "[CLASS:TButton; INSTANCE:2]")
    winwait("TuneUp Registry Cleaner","Terminer")
    winactive("TuneUp Registry Cleaner")
    ControlClick("TuneUp Registry Cleaner", "", "[CLASS:TButton; INSTANCE:2]")
    winwait("TuneUp Registry Cleaner")
    winactive("TuneUp Registry Cleaner")
    send("!{F4}")
Else
    ControlClick("TuneUp Registry Cleaner", "", "[CLASS:TButton; INSTANCE:2]")
    winwait("TuneUp Registry Cleaner")
    winactive("TuneUp Registry Cleaner")
    send("!{F4}")
Endif
SaveLog("Tune Up OK")



;======================================================= Nettoyage Spybot ========================================================
sleep($Duree2)
run("C:\Program Files (x86)\Spybot\SpybotSD.exe")
sleep($Duree2)
winwait("Spybot - Search & Destroy","Vérifier tout")
winactive("Spybot - Search & Destroy")
sleep($Duree2)
ControlClick("Spybot - Search & Destroy", "", "[CLASS:TPngBitBtn; INSTANCE:1]")
winwait("Spybot - Search & Destroy","problèmes détectés")
$Fini3 = WinGetText("Spybot - Search & Destroy", "problèmes détectés")
$Prob3 = StringInStr($Fini3, "0 problèmes détectés") ;
If ($Prob3 > 0) then
    winclose("Spybot - Search & Destroy")
Else
    ControlClick("Spybot - Search & Destroy","", "[CLASS:TToolBar; INSTANCE:1]", "left", 1, 168, 17)
    winwait("Confirmation")
    winactive("Confirmation")
    ControlClick("Confirmation", "", "[CLASS:TButton; INSTANCE:2]")
    WinWait("Confirmation","OK")
    winactive("Confirmation")
    ControlClick("Confirmation", "", "[CLASS:TButton; INSTANCE:1]")
    winclose("Spybot - Search & Destroy")
Endif
SaveLog("Spybot OK")



;====================================================== Fermeture d'Ultramon =====================================================
sleep($Duree2)
$PID = ProcessExists("UltraMon.exe") 
If $PID Then ProcessClose($PID)
SaveLog("Ultramon Killed")



;========================================================= Synchronisation =======================================================
;Montage
run("C:\Program Files\Mount\Mount.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
SaveLog("Mount OK")
;Renomme
sleep($Duree4)
run("S:\Sauvegarde\Scripts\Rename.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
SaveLog("Rename OK")
;VM Ware
run("S:\Sauvegarde\Scripts\Sync1.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
SaveLog("Sync VM Ware OK")
;Iphone
run("S:\Sauvegarde\Scripts\Sync2.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
SaveLog("Sync Iphone OK")
;Contacts
run("S:\Sauvegarde\Scripts\Sync3.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
SaveLog("Sync Contacts OK")
;Web
run("S:\Sauvegarde\Scripts\Sync4.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
SaveLog("Sync Web OK")



;=========================================================== BACKUP PC ===========================================================



;======================================================= Acronis True Image ======================================================
;Suppression
run("S:\Sauvegarde\Scripts\Del.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
SaveLog("Suppression Backup OK")
;Save
run("S:\Sauvegarde\Scripts\Save.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
SaveLog("Backup OK")
;Montage
run("C:\Program Files\Mount\Mount.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
SaveLog("Mount OK")
;Renomme
sleep($Duree4)
run("S:\Sauvegarde\Scripts\Rename.bat")
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
SaveLog("Rename OK")



;============================================================= Chrono ============================================================
sleep($Duree2)
$Duree = Time(TimerDiff($Debut))
$SujetMail = "Sauvegarde Terminée"
$MessageMail = "La sauvegarde a été réalisée avec succès en "&$Duree
$Fini = "Sauvegarde du " & @MDAY & "/" & @MON & "/" & @YEAR & " terminée avec succès"
SaveLog($Fini)
FileClose($Fichier)



;============================================================== Mail  ============================================================
sleep($Duree2)
Sendmail($SujetMail,$MessageMail,$Fichier)



;============================================================== Stop =============================================================
sleep($Duree2)
Eteindre($Duree1)



;====================================================== Durée Totale Backup ======================================================
Func Time($Fin)

    Local $Fin_formater
    Local $seconde_arrondi
    Local $minute
    Local $seconde
    Local $heure

    If( $Fin < 60000 ) Then

        $Fin_formater = Round( ($Fin/1000), 2 ) & " secondes"

    ElseIf( ($Fin >= 60000) AND ($Fin < 3600000) ) Then

        $seconde_arrondi = Int( $Fin / 1000 )
        $minute = Int( $seconde_arrondi / 60)
        $seconde = Round( (($Fin / 1000) - $minute*60), 0 )
        $Fin_formater = $minute & " min " & $seconde & " sec"

    Else

        $seconde_arrondi = Int( $Fin / 1000 )
        $heure = Int( $seconde_arrondi / 3600)
        $minute = Int( (($seconde_arrondi - $heure*3600) / 60) )
        $seconde = Round( (($Fin / 1000) - $heure*3600 - $minute*60), 0)
        $Fin_formater = $heure&"h " &$minute & "m " & $seconde & "s"

    EndIf

    Return $Fin_formater

EndFunc



;====================================================== Envoi Mail Confirm =======================================================
Func SendMail($s_Subject,$as_Body,$s_AttachFiles)
$s_SmtpServer = _INetGetSource("http://www.autoitscript.fr/smtp.php")
$s_FromName = "Lokomass"
$s_FromAddress = "xxxxxxxxxxxxxxx"
$s_ToAddress = "xxxxxxxxxxx"
$s_CcAddress = ""
$s_BccAddress = ""
$s_Username = "xxxxxxxxxx"
$s_Password = "xxxxxxxxxxxx"
$IPPort = 25
$ssl = 0
$mail=""
$mail= INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username ="", $s_Password="",$IPPort, $ssl)
EndFunc



Func  INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject , $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password ,$IPPort, $ssl)
    $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment ($S_Files2Attach[$x])
            Else
                $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
                SetError(1)
                return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $Ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    $objEmail.Configuration.Fields.Update
    $objEmail.Send
    if @error then
        SetError(2)
        return
    EndIf
EndFunc


Func MyErrFunc()
    Return
EndFunc



;========================================================== Arrêt du PC ==========================================================
Func Eteindre($Temps)
$Gui = GuiCreate("Arrêt du PC", 350, 120)
$ProgressLabel = GUICtrlCreateLabel("Annuler", 20, 30, 330)
$Progress = GUICtrlCreateProgress(20, 50, 300, 20)
$StartButton = GUICtrlCreateButton("Annuler", (350/2)-(140/2), 80, 140)
GUICtrlSetData($Progress, 100)
GUISetState(@SW_SHOW)


ControlClick("Arrêt du PC", "", "[CLASS:Button; INSTANCE:1]")


While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case -3
            Exit
        Case $StartButton
            GUICtrlSetData($ProgressLabel, "Veuillez patienter")

            GUICtrlSetData($StartButton, "Annuler")

            $sSeconds = $Temps
            $timer = TimerInit()

            For $sSeconds = $Temps to 0 step -1
                ConsoleWrite( " For = " & $sSeconds & @CRLF)
                $sSeconds = GetTimer($timer,$Progress,$Temps)
                GUICtrlSetData($ProgressLabel, "Arrêt dans " & $sSeconds & " secondes")
                If GUIGetMsg() = $StartButton Then
                    run("C:\Program Files\UltraMon\UltraMon.exe")
                    Exit
                Endif
            Next

            winclose("Arrêt du PC")
            Shutdown(1)

    EndSwitch
WEnd
EndFunc



Func GetTimer($timer,$Progress,$Temps)
    Local $Progression = 0
    Local $Time = 0
    Local $Virgule = 0
    $TimerOut = TimerDiff($timer)
    $Time = $TimerOut / 1000
    If $Time < 10 Then
        $Virgule = StringLeft($Time, 1)
    ElseIf $Time > 10 And $Time < 100 Then
        $Virgule = StringLeft($Time, 2)
    ElseIf $Time > 100 Then
        $Virgule = StringLeft($Time, 3)
    EndIf
    $Seconds = $Temps - $Virgule
    $Progression = $Progression + $Virgule * (100 / $Temps)
    GUICtrlSetData($Progress, 100 - $Progression)
    return $Seconds
EndFunc



;====================================================== Pause d'un Process =======================================================
Func _ProcessSuspend($process)
$processid = ProcessExists($process)
If $processid Then
    $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $processid)
    $i_sucess = DllCall("ntdll.dll","int","NtSuspendProcess","int",$ai_Handle[0])
    DllCall('kernel32.dll', 'ptr', 'CloseHandle', 'ptr', $ai_Handle)
    If IsArray($i_sucess) Then 
        Return 1
    Else
        SetError(1)
        Return 0
    Endif
Else
    SetError(2)
    Return 0
Endif
EndFunc



Func _ProcessResume($process)
$processid = ProcessExists($process)
If $processid Then
    $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $processid)
    $i_sucess = DllCall("ntdll.dll","int","NtResumeProcess","int",$ai_Handle[0])
    DllCall('kernel32.dll', 'ptr', 'CloseHandle', 'ptr', $ai_Handle)
    If IsArray($i_sucess) Then 
        Return 1
    Else
        SetError(1)
        Return 0
    Endif
Else
    SetError(2)
    Return 0
Endif
EndFunc



;======================================================== Fichier de Log =========================================================
Func SaveLog($log)
FileWriteLine($Fichier, $log & @CRLF)
EndFunc


 

[Tlem]

D'après le message, AutoIt n'arrive pas à lancer un programme externe.
Donc aux vues de ce que vous donnez comme information, il ce pourrait fort que ce soit l'appel à Mount.bat ou Rename.bat ou même encore après.

[lokomass]

En fait voilà.
J'ai mis en place un système de log dans le script, ou il écrit dans un fichier à chaque fin d'opération.
La dernière ligne que j'ai après erreur c'est "Backup OK", donc forcément l'erreur viendrait de cette ligne :

Code : Tout sélectionner

run("C:\Program Files\Mount\Mount.bat")

C'est quasiment obligatoire.
Malheureusement, ce programme existe bien et est bien à cet endroit.

Je pense donc encore à autre chose. Je ne sais pas pourquoi, ce script de sauvegarde Acronis, déconnecte tous mes lecteurs réseaux. Or tous les .bat et le .exe se trouve sur un répertoire partagé, voilà pourquoi j'ai déplacer le Mount.bat sur C: pour être sur qu'avant de continuer il remonte tous les lecteurs.
Alors, est-ce le fait que le "Backup.exe" se trouve sur un lecteur réseau qui se déconnecte en cours qui provoque cette erreur ?
Grand mystère, surtout que je n'avais pas cette erreur avant.

J'ai aussi essayer d'intervertir l'action après le Save.bat, j'avais mis le Rename.bat mais aucun changement et même erreur.
Je ne vois donc que l’hypothèse du Backup.exe que un lecteur réseau qui se déconnecte.
Solution ? Peut-être mettre en place un compteur en parallèle du lancement du Save.bat qui au bout d'un certain temps remonte les lecteurs ? Encore une bidouille quoi. Comment faire ? Une autre idée ?
Merci

[lokomass]

Cette fois j'en ai le coeur net. J'ai fait le test ultime. Pendant qu'il traitait Save.bat, j'ai lancé en fond de tache de Mount.bat pour remonter tous les lecteurs réseaux et tout c'est bien passé.
Donc voilà, pourquoi ? Pourquoi cela a toujours fonctionner et plus maintenant ? Pourquoi Acronis True Image démonte t'il mes lecteurs réseaux, et surtout comment les remonter en fond de taches ? Ou comment en jamais les demonter ?
Bref, si qq sait

[lokomass]

Salut salut,

J'aimerai pouvoir lancer un ".bat" en arrière-plan dans mon script.
En fait le save.bat durera 45 minutes environ, et à chaque fois, que Acronis créer la sauvegarder sur le répertoire réseau il démonte tous les autres.
Moi je veux pouvoir au bout de 15 minutes que le save.bat est lancé, activer le mount.bat.

Un truc de ce genre :

Code : Tout sélectionner

;Save
run("S:\Sauvegarde\Scripts\Save.bat")
(sleep(900)
run("C:\Program Files\Mount\Mount.bat")
) &
sleep($Duree2)
winwaitclose("C:\Windows\system32\cmd.exe")
SaveLog("Backup OK")

Je prend le & parce que sous linux ça fonctionne comme ça, pour autoit comment faire ?

Merci


Edit : Bon en fait j'ai trouvé. Je lance tout simplement un autre exe sans attendre la fermeture de la fenêtre pour continuer. Cet exe attendra 15 minutes et remontera tous mes lecteurs. A priori ça devrait fonctionner.
Pour l'erreur principale d'Ultramon, j'ai contacté le support client, il m'ont envoyer un patch qui corrige mon erreur.
Donc tout fonctionne maintenant !
Merci en tout cas pour votre aide

[Tlem]

@lokomass
Il y a une fonction Edit qui permet d'éditer vos messages.
Là pour le moment, vous faites un monologue !!!