Ma petite contribution !
C'est un script qui permet une remontée des demandes d'intervention des utilisateurs par mel.
L'exe est placé dans un dossier quelconque puis un raccourcis est créé sur le bureau Public/All user. Ainsi, tous peuvent me transmettre leurs demandes sans téléphone ni déplacement.
La panne est résolue à distance (si possible) grâce à l'adresse IP indiquée.
Cela me permet de gérer mon temps et/ou mes déplacements.
J'ai construit une GUI mère qui permet aux utilisateurs de connaitre certains paramètres de leur machine pour me les contacter par téléphone le cas échéant, mais aussi d'installer VNC...
La GUI ici présente sera en fait un module parmi d'autres.
Pour faire fonctionner ce script il vous faudra changer les variables de connexion de messagerie bien sûr !
Merci de vos remarques ou de vos suggestions.
► Afficher le texte
Code : Tout sélectionner
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\Icones\CreativeOrbs 2.ico
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version : 3.3.8.1
Auteur: Maurice
Fonction du Script :
GUI de remontée de panne par mel
#ce ----------------------------------------------------------------------------
; INCLUDE
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Inet.au3>
; OPTIONS
Opt("GUIOnEventMode", 1)
; VARIABLES
Local $s_SmtpServer = "votre_serveur_smtp"
Local $s_FromName = "Votre_nom"
Local $s_FromAddress = "Pseudo"
Local $s_ToAddress = "adresse_mel_valide"
Local $s_Subject = "Fiche de panne v-1.0"
Global $Type_panne
; GUI
#Region ### START Koda GUI section ###
Global $Fiche_Panne = GUICreate("Fiche de panne pour le SERVICE", 623, 442, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Fiche_PanneClose")
; TITRE
Global $FICHE = GUICtrlCreateLabel("FICHE DE PANNE", 210, 10, 162, 28)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
; GROUPE FONCTIONNAIRE
Global $G_Fonct = GUICtrlCreateGroup("Fonctionnaire", 30, 40, 561, 71)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $L_Matricule = GUICtrlCreateLabel("Matricule", 50, 70, 58, 20)
Global $Input_Matricule = GUICtrlCreateInput("", 130, 70, 111, 24)
Global $CInput_Matricule = GUICtrlRead($Input_Matricule)
Global $L_Service = GUICtrlCreateLabel("Service", 300, 70, 50, 20)
Global $Input_Service = GUICtrlCreateInput("", 380, 70, 151, 24)
Global $CInput_Service = GUICtrlRead($Input_Service)
GUICtrlCreateGroup("", -99, -99, 1, 1)
; GROUPE PANNE
Global $G_Panne = GUICtrlCreateGroup("Panne", 30, 120, 561, 271)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
; GROUPE PANNE - TYPE
Global $G_Type = GUICtrlCreateGroup("1 - Type", 40, 150, 111, 111)
Global $R_Informatique = GUICtrlCreateRadio("Informatique", 50, 170, 91, 21)
GUIctrlSetOnEvent(-1,"Panne_informatique")
Global $R_Telephone = GUICtrlCreateRadio("Téléphone", 50, 190, 91, 21)
GUIctrlSetOnEvent(-1,"Panne_telephone")
Global $R_Radio = GUICtrlCreateRadio("Radio", 50, 210, 71, 21)
GUIctrlSetOnEvent(-1,"Panne_radio")
Global $Radio_Autre = GUICtrlCreateRadio("Autre", 50, 230, 61, 21)
GUIctrlSetOnEvent(-1,"Panne_autre")
GUICtrlCreateGroup("", -99, -99, 1, 1)
; GROUPE PANNE - LOCALISATION
Global $G_Localisation = GUICtrlCreateGroup("2 - Localisation", 160, 150, 421, 111)
Global $Label_Adresse = GUICtrlCreateLabel("Adresse IP", 170, 170, 70, 20)
Global $Ip1 = GUICtrlCreateInput("", 280, 170, 25,20)
Global $Ip2 = GUICtrlCreateInput("", 305, 170, 25,20)
Global $Ip3 = GUICtrlCreateInput("", 330, 170, 25,20)
Global $Ip4 = GUICtrlCreateInput("", 355, 170, 25,20)
Global $L_Nom_Machine = GUICtrlCreateLabel("Nom Machine", 170, 200, 87, 20)
Global $Input_Nom_Machine = GUICtrlCreateInput("", 280, 200, 141, 24)
Global $Bureau_vehicule = GUICtrlCreateLabel("Bureau, vehicule", 170, 230, 103, 20)
Global $Input_Bureau = GUICtrlCreateInput("", 280, 230, 291, 24)
; LOGO BOX BDSIT
Global $Box_BDSIT = GUICtrlCreateLabel("Box_BDSIT", 500, 180, 74, 20)
;Global $Icon1 = GUICtrlCreateIcon("C:\chemin_vers_votre_icone.ico", -1, 440, 170, 51, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
; GROUPE PANNE - DESCRIPTION
Global $G_Description = GUICtrlCreateGroup("3 - Description", 40, 280, 541, 101)
Global $Edit_Description = GUICtrlCreateEdit("", 60, 300, 501, 71)
GUICtrlSetData(-1, "")
;GUICtrlSetOnEvent(-1, "Edit_DescriptionChange")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
; BOUTONS ACTIONS
Global $B_Envoyer = GUICtrlCreateButton("ENVOYER", 310, 400, 171, 31)
GUICtrlSetOnEvent(-1, "B_EnvoyerClick")
Global $B_Annuler = GUICtrlCreateButton("ANNULER / FERMER", 110, 400, 161, 31)
GUICtrlSetOnEvent(-1, "B_AnnulerClick")
GUISetState(@SW_SHOW)
; #################### BOUTON DE TEST DES VARIABLES
;Global $Button1 = GUICtrlCreateButton("tests", 510, 410, 81, 21)
;GUICtrlSetOnEvent(-1, "Button1Click")
#EndRegion ### END Koda GUI section ###
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $B_Annuler
Exit
Case $B_Envoyer
;execution de la fonction B_EvoyerClick()
EndSwitch
WEnd
; FONCTIONS
Func B_AnnulerClick()
Exit
EndFunc
Func B_EnvoyerClick()
Global $as_Body[10]
$as_Body[0] = "SAISI PAR L UTILISATEUR" &@CRLF
$as_Body[1] = "MATRICULE :" & GUICtrlRead($Input_Matricule)
$as_Body[2] = "SERVICE : " & GUICtrlRead($Input_Service)
$as_Body[3] = "PANNE : " & $Type_panne
$as_Body[4] = "IP : " & GUICtrlRead($Ip1) &"-"& GUICtrlRead($Ip2) &"-"& GUICtrlRead($Ip3) &"-"& GUICtrlRead($Ip4)
$as_Body[5] = "Nom de la machine : " & GUICtrlRead($Input_Nom_Machine)
$as_Body[6] = "Bureau - Vehicule : " & GUICtrlRead($Input_Bureau)
$as_Body[7] = "Description :" & GUICtrlRead($Edit_Description) &@CRLF
$as_Body[8] = "REMONTEES MACHINE"
$as_Body[9] = @ComputerName &@CRLF & @IPAddress1 &@CRLF & @UserName
Local $Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
Local $err = @error
If $Response = 1 Then
MsgBox(0, "Merci!", "Votre Mel a bien été envoyé au BDSIT",5)
Else
MsgBox(0, "Erreur!", "PROBLEME lors de l'envoi du Mel. Utilisez une autre machine SVP " & $err)
EndIf
EndFunc
Func Fiche_PanneClose()
Exit
EndFunc
Func Button1Click()
;MsgBox(0,"test", "variables" & $CInput_Matricule & $CInput_Service)
;MsgBox(0,"test", "variables" & GUICtrlRead($Input_Matricule) & GUICtrlRead($Input_Service))
;MsgBox(0,"test", "variables : " & GUICtrlRead($ip))
;MsgBox(0,"test", "variables : " & $ip)
EndFunc
Func Panne_informatique()
$Type_panne = "Informatique"
EndFunc
Func Panne_telephone()
$Type_panne = "Téléphonie"
EndFunc
Func Panne_radio()
$Type_panne = "Radio"
EndFunc
Func Panne_autre()
$Type_panne = "Autre"
EndFunc