AutoIt Français

Code : Tout sélectionner

; SCRIPT
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

#include <file.au3>
#include <Date.au3>
#include <GUIConstantsEx.au3>
#Include <GDIPlus.au3>
#include <ClipBoard.au3>
#include <ScreenCapture.au3>

; Création répertoire bugs si n'existe pas
$rep_bug="c:\BUGS"
$test= DirGetSize ($rep_bug)

if $test==-1 Then
    DirCreate($rep_bug)
EndIf

; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

; Créé le nom du fichier
$local_jour = @YEAR & "_" & @MON & "_" & @MDAY
$local_heure = @HOUR & "_" & @MIN & "_" & @SEC

$bug_img = @ComputerName  & "_" & $local_jour & "_" & $local_heure
$bug_img = StringRegExpReplace($bug_img, " ", "") & ".png"
$bug_img = $rep_bug & "\" & $bug_img

Send("{PRINTSCREEN}")


$hGUI=GUICreate("WW")

_ClipBoard_Open ($hGUI)

$presse_papier=ClipGet()

if @error = 2 Then
    $hBitmap=_ClipBoard_GetData ($CF_BITMAP)
    _ScreenCapture_SaveImage($bug_img, $hBitmap)
EndIf

$log_txt="BUGS SUR " & @ComputerName
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX


; ENVOI RAPPORT EXECUTION PAR MAIL
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; Includes nécessaires : #include <file.au3>, #include <GuiConstantsEx.au3> et #include <Date.au3>

$s_Subject = "AUTOIT - RAPPORT DE BUG SUR : " & @ComputerName
$as_Body = "" & @CRLF
$as_Body = $as_Body & "RAPPORT D'EXECUTION DE SCRIPT" & @CRLF
$as_Body = $as_Body & @CRLF

$tCur = _Date_Time_GetLocalTime()
$as_Body = $as_Body & "Date :" & _Date_Time_SystemTimeToDateTimeStr($tCur) & @CRLF
$as_Body = $as_Body & @CRLF
$as_Body = $as_Body & "Script : " & @ScriptName & @CRLF
$as_Body = $as_Body & @CRLF
$as_Body = $as_Body & "Nom machine : " & @ComputerName & @CRLF
$as_Body = $as_Body & @CRLF
$as_Body = $as_Body & "Nom utilisateur : " & @UserName & @CRLF
$as_Body = $as_Body & @CRLF
$as_Body = $as_Body & "IP machine : " & @IPAddress1 & @CRLF
$as_Body = $as_Body & @CRLF
$as_Body = $as_Body & "Système d'exploitation : " & @OSVersion & @CRLF
$as_Body = $as_Body & @CRLF
$as_Body = $as_Body & "Rapport : " & @CRLF
$as_Body = $as_Body & $log_txt & @CRLF

$s_SmtpServer = "xxx" ; Serveur SMTP
$s_FromName = "xxx" ; Nom expéditeur
$s_FromAddress = "xxx" ; Mail expéditeur
$s_ToAddress = "xxx" ; Destinataire

;$s_AttachFiles = $log_PJ ; Pièce jointe (à laisser vide si pas de PJ)
$s_AttachFiles = $bug_img ; Pièce jointe (à laisser vide si pas de PJ)
$s_CcAddress = "" ; Mail de copie (à laisser vide si non nécessaire)
$s_BccAddress = "" ; Mail de copie invisible (à laisser vide si non nécessaire)
$s_Username = "xxx" ; Login compte mail
$s_Password = "xxx"  ; Mot de passe mail
$IPPort = 465 ; Port SMTP
$ssl = 1 ; Mettre 1 si envoi en SSL, sinon 0

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _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)
If @error Then
    MsgBox(0, "Error sending message", "Error code:" & @error & "  Rc:" & $rc)
EndIf

; FONCTIONS
Func IsActive($handle)
  If BitAnd( WinGetState($handle), 8 ) Then
    Return 1
  Else
    Return 0
EndIf
EndFunc

Func _ProcessGetName($i_PID)
    If Not ProcessExists($i_PID) Then
        SetError(1)
        Return ''
    EndIf
    Local $a_Processes = ProcessList()
    If Not @error Then
        For $i = 1 To $a_Processes[0][0]
            If $a_Processes[$i][1] = $i_PID Then Return $a_Processes[$i][0]
        Next
    EndIf
    SetError(1)
    Return ''
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=25, $ssl=0)
    $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
;Authenticated SMTP
    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
;Update settings
    $objEmail.Configuration.Fields.Update
; Sent the Message
    $objEmail.Send
    if @error then
        SetError(2)
        return $oMyRet[1]
    EndIf
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description,3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc ;==>MyErrFunc
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Exit