#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; ----------------------------------------------------
; ----------------------------------------------------
; Version AutoIt :    3.3.6.0
; Langue     :        Francais
; Plateforme :        /XP
; Auteur    :
;
; Fonction du script; collecte compteur impression
;
;
;
; Version 1.0 :
;           - Première Version.
;----------------------------------------------------
; ----------------------------------------------------

;***** Les includes ****
#Include <String.au3>
#Include <Array.au3>
#Include <SNMP_UDF_v1.5.1.au3>
#include <Excel.au3>
#include <Date.au3>
#include <File.au3>
#include <Timers.au3>

;***** Les options *****

;***** Les variables *****
Global $dest_IP_XX_IV051 = "XX.XX.XX174" ; ip LEXMARK E352DN
Global $dest_IP_XX_IV049 = "XX.XX.XX176" ; ip LEXMARK X363DN
Global $dest_IP_XX_IV048 = "XX.XX.XX177" ; ip LEXMARK E360DN
Global $dest_IP_XX_IV047 = "XX.XX.XX178" ; ip LEXMARK E360DN
Global $dest_IP_XX_IV046 = "XX.XX.XX179" ; ip HP P2055DN
Global $dest_IP_XX_IV045 = "XX.XX.XX180" ; ip HP P2055DN
Global $dest_IP_XX_IV044 = "XX.XX.XX181" ; ip HP P2055DN
Global $dest_IP_XX_IV043 = "XX.XX.XX182" ; ip HP P2055DN
Global $dest_IP_XX_IV042 = "XX.XX.XX183" ; ip HP P2055DN
Global $dest_IP_XX_IV041 = "XX.XX.XX184" ; ip HP P2055DN
Global $dest_IP_XX_IV040 = "XX.XX.XX185" ; ip HP P2055DN
Global $dest_IP_XX_IV039 = "XX.XX.XX186" ; ip HP P2055DN
Global $dest_IP_XX_IV038 = "XX.XX.XX187" ; ip HP P2055DN
Global $dest_IP_XX_IV037 = "XX.XX.XX188" ; ip LEXMARK E360DN
Global $dest_IP_XX_IV036 = "XX.XX.XX189" ; ip LEXMARK E360DN
Global $dest_IP_XX_IV035 = "XX.XX.XX190" ; ip LEXMARK E360DN
Global $dest_IP_XX_IV034 = "XX.XX.XX191" ; ip LEXMARK E360DN
Global $dest_IP_XX_IV033 = "XX.XX.XX192" ; ip LEXMARK E352DN
Global $dest_IP_XX_IV032 = "XX.XX.XX193" ; ip LEXMARK E352DN
Global $dest_IP_XX_IV031 = "XX.XX.XX194" ; ip LEXMARK E352DN
Global $dest_IP_XX_IV030 = "XX.XX.XX195" ; ip TOSHIBA ES455
Global $dest_IP_XX_IV029 = "XX.XX.XX196" ; ip LEXMARK E352DN
Global $dest_IP_XX_IV028 = "XX.XX.XX197" ; ip TOSHIBA ES165
Global $dest_IP_XX_IV027 = "XX.XX.XX198" ; ip TOSHIBA ES165
Global $dest_IP_XX_IV026 = "XX.XX.XX199" ; ip LEXMARK E352DN
Global $dest_IP_XX_IV025 = "XX.XX.XX200" ; ip LEXMARK E352DN
Global $dest_IP_XX_IV024 = "XX.XX.XX201" ; ip LEXMARK E352DN
Global $dest_IP_XX_IV023 = "XX.XX.XX202" ; ip LEXMARK E352DN
Global $dest_IP_XX_IV022 = "XX.XX.XX203" ; ip LEXMARK E352DN
Global $dest_IP_XX_IV021 = "XX.XX.XX204" ; ip KYOCERA FS1030D
Global $dest_IP_XX_IV019 = "XX.XX.XX206" ; ip LEXMARK E360DN
Global $dest_IP_XX_IV017 = "XX.XX.XX208" ; ip LEXMARK E360DN
Global $dest_IP_XX_IV015 = "XX.XX.XX210" ; ip OCE 3155
Global $dest_IP_XX_IV014 = "XX.XX.XX211" ; ip TOSHIBA ES455
Global $dest_IP_XX_IV013 = "XX.XX.XX212" ; ip TOSHIBA ES3520C
Global $dest_IP_XX_IV012 = "XX.XX.XX213" ; ip TOSHIBA ES455
Global $dest_IP_XX_IV011 = "XX.XX.XX214" ; ip TOSHIBA ES455
Global $dest_IP_XX_IV010 = "XX.XX.XX215" ; ip TOSHIBA ES3520C
Global $dest_IP_XX_IV009 = "XX.XX.XX216" ; ip TOSHIBA ES255
Global $dest_IP_XX_IV008 = "XX.XX.XX217" ; ip CANON IR6800C
Global $dest_IP_XX_IV007 = "XX.XX.XX218" ; ip TOSHIBA 2500C
Global $dest_IP_XX_IV006 = "XX.XX.XX219" ; ip OCE 2090
Global $dest_IP_XX_IV005 = "XX.XX.XX220" ; ip OCE 3155
Global $dest_IP_XX_IV004 = "XX.XX.XX221" ; ip OCE 3155
Global $dest_IP_XX_IV002 = "XX.XX.XX223" ; ip LEXMARK E360DN
Global $dest_IP_XX_IV001 = "XX.XX.XXXX.XX.XX224" ; ip HP CP3525DN


Global $Port = 161 							; UDP 161  = SNMP port
Global $SNMP_Version = 2					; SNMP v2c (1 for SNMP v1)
Global $SNMP_Community = "public"			; SNMPString(Community) - you need the "write" community string to test this.
Global $SNMP_ReqID = 1
Global $SNMP_Command
Global $Start = 1
Global $result
Global $i

;OID pour HP 3525
Global $OID_HP_3525_1 = "1.3.6.1.4.1.11.2.3.9.4.2.1.4.1.8.5.1.26.0"  ; nombre source BAC 2
Global $OID_HP_3525_2 = "1.3.6.1.4.1.11.2.3.9.4.2.1.1.16.1.1.11.26.0"	; nombre de page A4 Feuilles Recto imprimé
Global $OID_HP_3525_3 = "1.3.6.1.4.1.11.2.3.9.4.2.1.1.16.1.1.12.26.0"	; nombre de page A4 Feuilles Recto/Verso imprimé  - X 2 pour avoir le nombre de page A4


;OID pour HP P2055
Global $OID_HP_P2055_1 = "1.3.6.1.4.1.11.2.3.9.4.2.1.4.1.2.5.0"  ; nombre total de pages imprimées
Global $OID_HP_P2055_2 = "1.3.6.1.4.1.11.2.3.9.4.2.1.4.1.2.22.0"  ; nombre total de pages recto/verso imprimées
;pour connaitre de nombre total de page recto imprimé (($OID_HP_P2055_2 /2) - $OID_HP_P2055_1)
Global $OID_HP_P2055_3 = "1.3.6.1.4.1.11.2.3.9.4.2.1.4.1.2.34.0"  ; nombre total de pages bloquées ds l'imprimante

;OID pour Kyocera
Global $OID_KYOCERA_FS1030D_1 = "1.3.6.1.4.1.1347.43.18.3.1.2.1.1"  ; nombre total pages imprimées

;OID pour OCE 3155
Global $OID_OCE_3155_1 = "1.3.6.1.4.1.1552.116.4.19.0"  ; nombre total impression + copie + Numérisation
Global $OID_OCE_3155_2 = "1.3.6.1.4.1.1552.116.4.4.0"  ; nombre total copie A4 recto
Global $OID_OCE_3155_3 = "1.3.6.1.4.1.1552.116.4.5.0"  ; nombre total copie A4 recto-verso
Global $OID_OCE_3155_4 = "1.3.6.1.4.1.1552.116.4.6.0"  ; nombre total copie A3 recto
Global $OID_OCE_3155_5 = "1.3.6.1.4.1.1552.116.4.7.0"  ; nombre total copie A3 recto-verso
Global $OID_OCE_3155_6 = "1.3.6.1.4.1.1552.116.4.8.0"  ; nombre total impression A4 recto
Global $OID_OCE_3155_7 = "1.3.6.1.4.1.1552.116.4.9.0"  ; nombre total impression A4 recto-verso
Global $OID_OCE_3155_8 = "1.3.6.1.4.1.1552.116.4.10.0"  ; nombre total impression A3 recto
Global $OID_OCE_3155_9 = "1.3.6.1.4.1.1552.116.4.11.0"  ; nombre total impression A3 recto-verso

;OID pour CANON
Global $OID_CANON_IR6800 = "1.3.6.1.2.1.43.10.2.1.4.1.1"  ; nombre total de page imprimé type 101

;OID pour Lexmark
;~ Global $OID_LEXMARK_IMP_1 = "1.3.6.1.4.1.641.2.1.5.2.0"  ; nombre total de pages imprimée pour modele E352dn / E360dn / X363dn
Global $OID_LEXMARK_IMP_2 = "1.3.6.1.4.1.641.2.1.5.1.0"  ; nombre total de face sélectionné pour modele E352dn / E360dn / X363dn

;OID Toshiba
Global $OID_TOSHIBA_1 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.6.1.3.1.4"  ; Total Compteur d'impression Imprimante
Global $OID_TOSHIBA_2 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.6.1.3.1.3"  ; Noir Compteur d'impression  Imprimante
Global $OID_TOSHIBA_3 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.6.1.3.1.2"  ; Deux couleur Compteur d'impression  Imprimante
Global $OID_TOSHIBA_4 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.6.1.3.1.1"  ; Couleur Compteur d'impression  Imprimante
Global $OID_TOSHIBA_5 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.6.1.210.1.4"  ; Total Compteur d'impression (petit papier) Imprimante
Global $OID_TOSHIBA_6 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.6.1.210.1.3"  ; Noir Compteur d'impression (petit papier) Imprimante
Global $OID_TOSHIBA_7 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.6.1.210.1.2"  ; Deux couleur Compteur d'impression (petit papier) Imprimante
Global $OID_TOSHIBA_8 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.6.1.210.1.1"  ; Couleur Compteur d'impression (petit papier) Imprimante
Global $OID_TOSHIBA_9 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.6.1.209.1.4"  ; Total Compteur d'impression (papier grand format) Imprimante
Global $OID_TOSHIBA_10 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.6.1.209.1.3"  ; Noir Compteur d'impression (papier grand format) Imprimante
Global $OID_TOSHIBA_11 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.6.1.209.1.2"  ; Deux couleur Compteur d'impression (papier grand format) Imprimante
Global $OID_TOSHIBA_12 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.6.1.209.1.1"  ; Couleur Compteur d'impression (papier grand format) Imprimante





; OID pour TOshiba par departement
Global $OID_TOSHIBA_DPT_1 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.5.1.7.1."  ; Total Couleur (grand papier) Imprimante
Global $OID_TOSHIBA_DPT_2 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.5.1.19.1."  ; Total NB (grand papier) Imprimante
Global $OID_TOSHIBA_DPT_3 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.5.1.55.1."  ; Total 2 couleur (grand papier) Imprimante
Global $OID_TOSHIBA_DPT_4 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.5.1.8.1."  ; Total Couleur (petit papier) Imprimante
Global $OID_TOSHIBA_DPT_5 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.5.1.20.1."  ; Total NB (petit papier) Imprimante
Global $OID_TOSHIBA_DPT_6 = "1.3.6.1.4.1.1129.2.3.50.1.3.21.5.1.56.1."  ; Total 2 couleur (petit papier) Imprimante


; OID par departement
Global $OID_D_1 = "1"
Global $OID_D_2 = "2"
Global $OID_D_3 = "3"
Global $OID_D_4 = "4"
Global $OID_D_5 = "5"
Global $OID_D_6 = "6"
Global $OID_D_7 = "7"
Global $OID_D_8 = "8"
Global $OID_D_9 = "9"
Global $OID_D_10 = "10"
Global $OID_D_11 = "11"
Global $OID_D_12 = "12"
Global $OID_D_13 = "13"
Global $OID_D_14 = "14"
Global $OID_D_15 = "15"


Global Const $CheminExcel= "C:\Users\XX\Documents\AutoIt\script\SNMP\"
Global Const $CheminImpOff= "C:\Users\XX\Documents\AutoIt\script\SNMP\IMP_Off.txt"
Global Const $Cheminresultat= "C:\Users\XX\Documents\AutoIt\script\SNMP\"
Global $nomfileExcel= "Compteur_imp_XX_"&@YEAR
Global $nomfileResultat= "Resultat_"&@MON&"_"&@YEAR&".ini"

Global $sLongMonthName, $Mois, $ExcelMois, $srcv, $Socket

;***** Les Fonctions *****
Func _StartListener()
	If $Start = 1 Then
		$i = 0
		While (1)
			$srcv = UDPRecv($Socket, 2048)
			If ($srcv <> "") Then
				$result = _ShowSNMPReceived ($srcv)
				ConsoleWrite($srcv &@CRLF)
;~ 				_ArrayDisplay($result)
				ExitLoop
			ElseIf ($srcv == "") Then
			ConsoleWrite(@error)
			ExitLoop
			EndIf
		 sleep(100)
		WEnd
	EndIf
EndFunc

Func OnAutoItExit()
    UDPCloseSocket($Socket)
    UDPShutdown()
EndFunc

Func IMPOff()
$FileImp= FileOpen($CheminImpOff, 0)
$line =FileRead($FileImp)
MsgBox(48,"Imprimante Off","Voici la liste des Imprimantes qui n'ont pas envoyé leur compteur à la derniere requête :" & @CRLF & @CRLF& $line)
FileClose($FileImp)
FileDelete($CheminImpOff)
EndFunc

Func FileINI()
	_FileCreate($Cheminresultat&$nomfileResultat)
EndFunc

Func DateM()
$Mois = _DateToMonth(@MON)
EndFunc


;***** Programme principal *****
IMPOff()
FileINI()
;******************************************************************************
;******************************************************************************
;*********************    SNMP HP   *******************************************
;******************************************************************************
; commande pour IMP XX_IV001
If Not Ping($dest_IP_XX_IV001, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV001"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV001", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV001", "resultat_HP_1", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV001", "resultat_HP_2", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV001", "resultat_HP_3", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV001, $Port)
; ecrire dans le fichier ini la section par rapport au nom de l'imprimante
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV001", "")
;Read value at sysLocation
$SNMP_Command_HP_1 = _SNMPBuildPacket($OID_HP_3525_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_1)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_1= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV001", "resultat_HP_1", $resultat_HP_1)

;Read value at sysLocation
$SNMP_Command_HP_2 = _SNMPBuildPacket($OID_HP_3525_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_2)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_2= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV001", "resultat_HP_2", $resultat_HP_2)
;~ ;~ ;~ MsgBox(0,"Printer name",$SNMP_Util[1][1])

;Read value at sysLocation
$SNMP_Command_HP_3 = _SNMPBuildPacket($OID_HP_3525_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_3)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_3= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV001", "resultat_HP_3", $resultat_HP_3)
;~ ;~ ;~ MsgBox(0,"Printer name",$SNMP_Util[1][1])

;~ ;~ MsgBox(0,"Compteur:XX-IV001 ","Le compteur Total d'impression est de:  "& $resultat_HP_1)
;~ ;~ MsgBox(0,"Compteur:XX-IV001 ","Le compteur Total d'impression est de:  "& $resultat_HP_2)
;~ ;~ MsgBox(0,"Compteur:XX-IV001 ","Le compteur Total d'impression est de:  "& $resultat_HP_3)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV038
If Not Ping($dest_IP_XX_IV038, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV038"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV038", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV038", "resultat_HP_4", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV038", "resultat_HP_5", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV038", "resultat_HP_6", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV038, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV038", "")

;Read value at sysLocation
$SNMP_Command_HP_4 = _SNMPBuildPacket($OID_HP_P2055_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_4)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_4= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV038", "resultat_HP_4", $resultat_HP_4)

;Read value at sysLocation
$SNMP_Command_HP_5 = _SNMPBuildPacket($OID_HP_P2055_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_5)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_5= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV038", "resultat_HP_5", $resultat_HP_5)

;Read value at sysLocation
$SNMP_Command_HP_6 = _SNMPBuildPacket($OID_HP_P2055_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_6)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_6= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV038", "resultat_HP_6", $resultat_HP_6)

;~ ;~ MsgBox(0,"Compteur:XX-IV038 ","Le compteur Total d'impression est de:  "& $resultat_HP_4)
;~ ;~ MsgBox(0,"Compteur:XX-IV038 ","Le compteur Total d'impression est de:  "& $resultat_HP_5)
;~ ;~ MsgBox(0,"Compteur:XX-IV038 ","Le compteur Total d'impression est de:  "& $resultat_HP_6)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV039
If Not Ping($dest_IP_XX_IV039, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV039"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV039", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV039", "resultat_HP_7", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV039", "resultat_HP_8", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV039", "resultat_HP_9", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV039, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV039", "")

;Read value at sysLocation
$SNMP_Command_HP_7 = _SNMPBuildPacket($OID_HP_P2055_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_7)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_7= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV039", "resultat_HP_7", $resultat_HP_7)

;Read value at sysLocation
$SNMP_Command_HP_8 = _SNMPBuildPacket($OID_HP_P2055_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_8)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_8= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV039", "resultat_HP_8", $resultat_HP_8)

;Read value at sysLocation
$SNMP_Command_HP_9 = _SNMPBuildPacket($OID_HP_P2055_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_9)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_9= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV039", "resultat_HP_9", $resultat_HP_9)

;~ ;~ MsgBox(0,"Compteur:XX-IV039 ","Le compteur Total d'impression est de:  "& $resultat_HP_7)
;~ ;~ MsgBox(0,"Compteur:XX-IV039 ","Le compteur Total d'impression est de:  "& $resultat_HP_8)
;~ ;~ MsgBox(0,"Compteur:XX-IV039 ","Le compteur Total d'impression est de:  "& $resultat_HP_9)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV040
If Not Ping($dest_IP_XX_IV040, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV040"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV040", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV040", "resultat_HP_10", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV040", "resultat_HP_11", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV040", "resultat_HP_12", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV040, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV040", "")

;Read value at sysLocation
$SNMP_Command_HP_10 = _SNMPBuildPacket($OID_HP_P2055_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_10)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_10= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV040", "resultat_HP_10", $resultat_HP_10)

;Read value at sysLocation
$SNMP_Command_HP_11 = _SNMPBuildPacket($OID_HP_P2055_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_11)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_11= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV040", "resultat_HP_11", $resultat_HP_11)

;Read value at sysLocation
$SNMP_Command_HP_12 = _SNMPBuildPacket($OID_HP_P2055_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_12)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_12= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV040", "resultat_HP_12", $resultat_HP_12)

;~ ;~ MsgBox(0,"Compteur:XX-IV040 ","Le compteur Total d'impression est de:  "& $resultat_HP_10)
;~ MsgBox(0,"Compteur:XX-IV040 ","Le compteur Total d'impression est de:  "& $resultat_HP_11)
;~ MsgBox(0,"Compteur:XX-IV040 ","Le compteur Total d'impression est de:  "& $resultat_HP_12)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV041
If Not Ping($dest_IP_XX_IV041, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV041"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV041", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV041", "resultat_HP_13", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV041", "resultat_HP_14", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV041", "resultat_HP_15", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV041, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV041", "")

;Read value at sysLocation
$SNMP_Command_HP_13 = _SNMPBuildPacket($OID_HP_P2055_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_13)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_13= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV041", "resultat_HP_13", $resultat_HP_13)

;Read value at sysLocation
$SNMP_Command_HP_14 = _SNMPBuildPacket($OID_HP_P2055_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_14)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_14= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV041", "resultat_HP_14", $resultat_HP_14)

;Read value at sysLocation
$SNMP_Command_HP_15 = _SNMPBuildPacket($OID_HP_P2055_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_15)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_15= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV041", "resultat_HP_15", $resultat_HP_15)

;~ MsgBox(0,"Compteur:XX-IV041 ","Le compteur Total d'impression est de:  "& $resultat_HP_13)
;~ MsgBox(0,"Compteur:XX-IV041 ","Le compteur Total d'impression est de:  "& $resultat_HP_14)
;~ MsgBox(0,"Compteur:XX-IV041 ","Le compteur Total d'impression est de:  "& $resultat_HP_15)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV042
If Not Ping($dest_IP_XX_IV042, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV042"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV042", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV042", "resultat_HP_16", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV042", "resultat_HP_17", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV042", "resultat_HP_18", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV042, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV042", "")

;Read value at sysLocation
$SNMP_Command_HP_16 = _SNMPBuildPacket($OID_HP_P2055_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_16)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_16= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV042", "resultat_HP_16", $resultat_HP_16)

;Read value at sysLocation
$SNMP_Command_HP_17 = _SNMPBuildPacket($OID_HP_P2055_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_17)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_17= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV042", "resultat_HP_17", $resultat_HP_17)

;Read value at sysLocation
$SNMP_Command_HP_18 = _SNMPBuildPacket($OID_HP_P2055_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_18)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_18= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV042", "resultat_HP_18", $resultat_HP_18)

;~ MsgBox(0,"Compteur:XX-IV042 ","Le compteur Total d'impression est de:  "& $resultat_HP_16)
;~ MsgBox(0,"Compteur:XX-IV042 ","Le compteur Total d'impression est de:  "& $resultat_HP_17)
;~ MsgBox(0,"Compteur:XX-IV042 ","Le compteur Total d'impression est de:  "& $resultat_HP_18)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV043
If Not Ping($dest_IP_XX_IV043, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV043"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV043", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV043", "resultat_HP_19", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV043", "resultat_HP_20", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV043", "resultat_HP_21", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV043, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV043", "")

;Read value at sysLocation
$SNMP_Command_HP_19 = _SNMPBuildPacket($OID_HP_P2055_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_19)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_19= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV043", "resultat_HP_19", $resultat_HP_19)

;Read value at sysLocation
$SNMP_Command_HP_20 = _SNMPBuildPacket($OID_HP_P2055_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_20)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_20= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV043", "resultat_HP_20", $resultat_HP_20)

;Read value at sysLocation
$SNMP_Command_HP_21 = _SNMPBuildPacket($OID_HP_P2055_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_21)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_21= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV043", "resultat_HP_21", $resultat_HP_21)

;~ MsgBox(0,"Compteur:XX-IV043 ","Le compteur Total d'impression est de:  "& $resultat_HP_19)
;~ MsgBox(0,"Compteur:XX-IV043 ","Le compteur Total d'impression est de:  "& $resultat_HP_20)
;~ MsgBox(0,"Compteur:XX-IV043 ","Le compteur Total d'impression est de:  "& $resultat_HP_21)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV044
If Not Ping($dest_IP_XX_IV044, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV044"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV044", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV044", "resultat_HP_22", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV044", "resultat_HP_23", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV044", "resultat_HP_24", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV044, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV044", "")

;Read value at sysLocation
$SNMP_Command_HP_22 = _SNMPBuildPacket($OID_HP_P2055_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_22)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_22= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV044", "resultat_HP_22", $resultat_HP_22)

;Read value at sysLocation
$SNMP_Command_HP_23 = _SNMPBuildPacket($OID_HP_P2055_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_23)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_23= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV044", "resultat_HP_23", $resultat_HP_23)

;Read value at sysLocation
$SNMP_Command_HP_24 = _SNMPBuildPacket($OID_HP_P2055_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_24)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_24= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV044", "resultat_HP_24", $resultat_HP_24)

;~ MsgBox(0,"Compteur:XX-IV044 ","Le compteur Total d'impression est de:  "& $resultat_HP_22)
;~ MsgBox(0,"Compteur:XX-IV044 ","Le compteur Total d'impression est de:  "& $resultat_HP_23)
;~ MsgBox(0,"Compteur:XX-IV044 ","Le compteur Total d'impression est de:  "& $resultat_HP_24)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV045
If Not Ping($dest_IP_XX_IV045, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV045"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV045", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV045", "resultat_HP_25", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV045", "resultat_HP_26", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV045", "resultat_HP_27", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV045, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV045", "")

;Read value at sysLocation
$SNMP_Command_HP_25 = _SNMPBuildPacket($OID_HP_P2055_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_25)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_25= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV045", "resultat_HP_25", $resultat_HP_25)

;Read value at sysLocation
$SNMP_Command_HP_26 = _SNMPBuildPacket($OID_HP_P2055_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_26)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_26= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV045", "resultat_HP_26", $resultat_HP_26)

;Read value at sysLocation
$SNMP_Command_HP_27 = _SNMPBuildPacket($OID_HP_P2055_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_27)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_27= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV045", "resultat_HP_27", $resultat_HP_27)

;~ MsgBox(0,"Compteur:XX-IV045 ","Le compteur Total d'impression est de:  "& $resultat_HP_25)
;~ MsgBox(0,"Compteur:XX-IV045 ","Le compteur Total d'impression est de:  "& $resultat_HP_26)
;~ MsgBox(0,"Compteur:XX-IV045 ","Le compteur Total d'impression est de:  "& $resultat_HP_27)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV046
If Not Ping($dest_IP_XX_IV046, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV046"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV046", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV046", "resultat_HP_28", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV046", "resultat_HP_29", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV046", "resultat_HP_30", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV046, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV046", "")

;Read value at sysLocation
$SNMP_Command_HP_28 = _SNMPBuildPacket($OID_HP_P2055_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_28)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_28= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV046", "resultat_HP_28", $resultat_HP_28)

;Read value at sysLocation
$SNMP_Command_HP_29 = _SNMPBuildPacket($OID_HP_P2055_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_29)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_29= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV046", "resultat_HP_29", $resultat_HP_29)

;Read value at sysLocation
$SNMP_Command_HP_30 = _SNMPBuildPacket($OID_HP_P2055_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_HP_30)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_HP_30= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV046", "resultat_HP_30", $resultat_HP_30)

;~ MsgBox(0,"Compteur:XX-IV046 ","Le compteur Total d'impression est de:  "& $resultat_HP_28)
;~ MsgBox(0,"Compteur:XX-IV046 ","Le compteur Total d'impression est de:  "& $resultat_HP_29)
;~ MsgBox(0,"Compteur:XX-IV046 ","Le compteur Total d'impression est de:  "& $resultat_HP_30)
OnAutoItExit()
EndIf
;******************************************************************************


;******************************************************************************
;******************************************************************************
;********************* SNMP Lexmark *******************************************
;******************************************************************************
; commande pour IMP XX_IV002
If Not Ping($dest_IP_XX_IV002, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV002"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV002", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV002", "resultat_LEX_1", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV002, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV002", "")

;Read value at sysLocation
$SNMP_Command_LEX_1 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_1)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_1= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV002", "resultat_LEX_1", $resultat_LEX_1)

;~ MsgBox(0,"Compteur:XX-IV002 ","Le compteur Total d'impression est de:  "& $resultat_LEX_1)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV017
If Not Ping($dest_IP_XX_IV017, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV017"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV007", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_LEX_2", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV017, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV007", "")

;Read value at sysLocation
$SNMP_Command_LEX_2 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_2)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_2= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_LEX_2", $resultat_LEX_2)

;~ MsgBox(0,"Compteur:XX-IV017 ","Le compteur Total d'impression est de:  "& $resultat_LEX_2)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV019
If Not Ping($dest_IP_XX_IV019, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV019"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV019", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV019", "resultat_LEX_3", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV019, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV019", "")

;Read value at sysLocation
$SNMP_Command_LEX_3 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_3)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_3= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV019", "resultat_LEX_3", $resultat_LEX_3)

;~ MsgBox(0,"Compteur:XX-IV019 ","Le compteur Total d'impression est de:  "& $resultat_LEX_3)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV022
If Not Ping($dest_IP_XX_IV022, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV022"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV022", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV022", "resultat_LEX_4", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV022, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV022", "")

;Read value at sysLocation
$SNMP_Command_LEX_4 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_4)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_4= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV022", "resultat_LEX_4", $resultat_LEX_4)

;~ MsgBox(0,"Compteur:XX-IV022 ","Le compteur Total d'impression est de:  "& $resultat_LEX_4)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV023
If Not Ping($dest_IP_XX_IV023, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV023"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV023", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV023", "resultat_LEX_5", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV023, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV023", "")

;Read value at sysLocation
$SNMP_Command_LEX_5 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_5)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_5= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV023", "resultat_LEX_5", $resultat_LEX_5)

;~ MsgBox(0,"Compteur:XX-IV023 ","Le compteur Total d'impression est de:  "& $resultat_LEX_5)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV024
If Not Ping($dest_IP_XX_IV024, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV024"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV024", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV024", "resultat_LEX_6", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV024, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV024", "")

;Read value at sysLocation
$SNMP_Command_LEX_6 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_6)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_6= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV024", "resultat_LEX_6", $resultat_LEX_6)

;~ ;~ MsgBox(0,"Compteur:XX-IV024 ","Le compteur Total d'impression est de:  "& $resultat_LEX_6)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV025
If Not Ping($dest_IP_XX_IV025, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV025"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV025", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV025", "resultat_LEX_7", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV025, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV025", "")

;Read value at sysLocation
$SNMP_Command_LEX_7 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_7)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_7= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV025", "resultat_LEX_7", $resultat_LEX_7)

;~ ;~ MsgBox(0,"Compteur:XX-IV025 ","Le compteur Total d'impression est de:  "& $resultat_LEX_7)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV026
If Not Ping($dest_IP_XX_IV026, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV026"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV026", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV026", "resultat_LEX_8", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV026, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV026", "")

;Read value at sysLocation
$SNMP_Command_LEX_8 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_8)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_8= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV026", "resultat_LEX_8", $resultat_LEX_8)

;~ ;~ MsgBox(0,"Compteur:XX-IV026 ","Le compteur Total d'impression est de:  "& $resultat_LEX_8)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV029
If Not Ping($dest_IP_XX_IV029, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV029"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV029", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV029", "resultat_LEX_9", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV029, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV029", "")

;Read value at sysLocation
$SNMP_Command_LEX_9 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_9)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_9= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV029", "resultat_LEX_9", $resultat_LEX_9)

;~ ;~ MsgBox(0,"Compteur:XX-IV029 ","Le compteur Total d'impression est de:  "& $resultat_LEX_9)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV031
If Not Ping($dest_IP_XX_IV031, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV031"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV031", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV031", "resultat_LEX_10", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV031, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV031", "")

;Read value at sysLocation
$SNMP_Command_LEX_10 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_10)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_10= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV031", "resultat_LEX_10", $resultat_LEX_10)

;~ ;~ MsgBox(0,"Compteur:XX-IV031 ","Le compteur Total d'impression est de:  "& $resultat_LEX_10)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV032
If Not Ping($dest_IP_XX_IV032, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV032"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV032", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV032", "resultat_LEX_11", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV032, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV032", "")

;Read value at sysLocation
$SNMP_Command_LEX_11 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_11)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_11= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV032", "resultat_LEX_11", $resultat_LEX_11)

;~ ;~ MsgBox(0,"Compteur:XX-IV032 ","Le compteur Total d'impression est de:  "& $resultat_LEX_11)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV033
If Not Ping($dest_IP_XX_IV033, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV033"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV033", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV033", "resultat_LEX_12", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV033, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV033", "")

;Read value at sysLocation
$SNMP_Command_LEX_12 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_12)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_12= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV033", "resultat_LEX_12", $resultat_LEX_12)

;~ ;~ MsgBox(0,"Compteur:XX-IV033 ","Le compteur Total d'impression est de:  "& $resultat_LEX_12)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV034
If Not Ping($dest_IP_XX_IV034, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV034"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV034", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV034", "resultat_LEX_13", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV034, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV034", "")

;Read value at sysLocation
$SNMP_Command_LEX_13 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_13)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_13= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV034", "resultat_LEX_13", $resultat_LEX_13)

;~ ;~ MsgBox(0,"Compteur:XX-IV034 ","Le compteur Total d'impression est de:  "& $resultat_LEX_13)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV035
If Not Ping($dest_IP_XX_IV035, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV035"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV035", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV035", "resultat_LEX_14", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV035, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV035", "")

;Read value at sysLocation
$SNMP_Command_LEX_14 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_14)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_14= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV035", "resultat_LEX_14", $resultat_LEX_14)

;~ ;~ MsgBox(0,"Compteur:XX-IV035 ","Le compteur Total d'impression est de:  "& $resultat_LEX_14)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV036
If Not Ping($dest_IP_XX_IV036, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV036"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV036", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV036", "resultat_LEX_15", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV036, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV036", "")

;Read value at sysLocation
$SNMP_Command_LEX_15 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_15)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_15= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV036", "resultat_LEX_15", $resultat_LEX_15)

;~ ;~ MsgBox(0,"Compteur:XX-IV036 ","Le compteur Total d'impression est de:  "& $resultat_LEX_15)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV037
If Not Ping($dest_IP_XX_IV037, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV037"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV037", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV037", "resultat_LEX_16", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV037, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV037", "")

;Read value at sysLocation
$SNMP_Command_LEX_16 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_16)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_16= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV037", "resultat_LEX_16", $resultat_LEX_16)

;~ ;~ MsgBox(0,"Compteur:XX-IV037 ","Le compteur Total d'impression est de:  "& $resultat_LEX_16)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV047
If Not Ping($dest_IP_XX_IV047, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV047"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV047", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV047", "resultat_LEX_17", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV047, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV047", "")

;Read value at sysLocation
$SNMP_Command_LEX_17 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_17)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_17= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV047", "resultat_LEX_17", $resultat_LEX_17)

;~ ;~ MsgBox(0,"Compteur:XX-IV047 ","Le compteur Total d'impression est de:  "& $resultat_LEX_17)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV048
If Not Ping($dest_IP_XX_IV048, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV048"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV048", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV048", "resultat_LEX_18", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV048, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV048", "")

;Read value at sysLocation
$SNMP_Command_LEX_18 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_18)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_18= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV048", "resultat_LEX_18", $resultat_LEX_18)

;~ ;~ MsgBox(0,"Compteur:XX-IV048 ","Le compteur Total d'impression est de:  "& $resultat_LEX_18)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV049
If Not Ping($dest_IP_XX_IV049, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV049"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV049", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV049", "resultat_LEX_19", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV049, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV049", "")

;Read value at sysLocation
$SNMP_Command_LEX_19 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_19)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_19= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV049", "resultat_LEX_19", $resultat_LEX_19)

;~ ;~ MsgBox(0,"Compteur:XX-IV049 ","Le compteur Total d'impression est de:  "& $resultat_LEX_19)
OnAutoItExit()
EndIf
;******************************************************************************

; commande pour IMP XX_IV051
If Not Ping($dest_IP_XX_IV051, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV051"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV051", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV051", "resultat_LEX_20", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV051, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV051", "")

;Read value at sysLocation
$SNMP_Command_LEX_20 = _SNMPBuildPacket($OID_LEXMARK_IMP_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_LEX_20)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_LEX_20= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV051", "resultat_LEX_20", $resultat_LEX_20)

;~ ;~ MsgBox(0,"Compteur:XX-IV051 ","Le compteur Total d'impression est de:  "& $resultat_LEX_20)
OnAutoItExit()
EndIf
;******************************************************************************
;******************************************************************************
;******************************************************************************

;******************************************************************************
;******************************************************************************
;********************* SNMP Kyocera *******************************************
;******************************************************************************
; commande pour IMP XX_IV021
If Not Ping($dest_IP_XX_IV021, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV021"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV021", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV021", "resultat_KYO_1", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV021, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV021", "")

;Read value at sysLocation
$SNMP_Command_KYO_1 = _SNMPBuildPacket($OID_KYOCERA_FS1030D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_KYO_1)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_KYO_1= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV021", "resultat_KYO_1", $resultat_KYO_1)

;~ ;~ MsgBox(0,"Compteur:XX-IV021 ","Le compteur Total d'impression est de:  "& $resultat_KYO_1)
OnAutoItExit()
EndIf
;******************************************************************************
;******************************************************************************
;******************************************************************************

;******************************************************************************
;******************************************************************************
;*********************    SNMP TOSHIBA 255   **********************************
;******************************************************************************
; commande pour IMP XX_IV009
If Not Ping($dest_IP_XX_IV009, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV009"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV009", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_1", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_2", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_3", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_4", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_5", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_6", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_7", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_8", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_9", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_10", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_11", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_12", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_13", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_14", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_15", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_16", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_17", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_18", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_19", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_20", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_21", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_22", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV009, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV009", "")

;Read value at sysLocation
$SNMP_Command_T_1 = _SNMPBuildPacket($OID_TOSHIBA_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_1)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_1= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_1", $resultat_T_1)

;Read value at sysLocation
$SNMP_Command_T_2 = _SNMPBuildPacket($OID_TOSHIBA_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_2)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_2= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_2", $resultat_T_2)

;Read value at sysLocation
$SNMP_Command_T_3 = _SNMPBuildPacket($OID_TOSHIBA_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_3)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_3= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_3", $resultat_T_3)

;Read value at sysLocation
$SNMP_Command_T_4 = _SNMPBuildPacket($OID_TOSHIBA_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_4)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_4= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_4", $resultat_T_4)

;Read value at sysLocation
$SNMP_Command_T_5 = _SNMPBuildPacket($OID_TOSHIBA_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_5)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_5= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_5", $resultat_T_5)

;Read value at sysLocation
$SNMP_Command_T_6 = _SNMPBuildPacket($OID_TOSHIBA_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_6)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_6= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_6", $resultat_T_6)
;**********************************************

;*********** Par Département ******************

;Read value at sysLocation
$SNMP_Command_T_7 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_7)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_7= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_7", $resultat_T_7)

;Read value at sysLocation
$SNMP_Command_T_8 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_8)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_8= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_8", $resultat_T_8)

;Read value at sysLocation
$SNMP_Command_T_9 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_9)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_9= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_9", $resultat_T_9)

;Read value at sysLocation
$SNMP_Command_T_10 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_10)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_10= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_10", $resultat_T_10)

;Read value at sysLocation
$SNMP_Command_T_11 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_11)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_11= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_11", $resultat_T_11)

;Read value at sysLocation
$SNMP_Command_T_12 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_12)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_12= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_12", $resultat_T_12)

;Read value at sysLocation
$SNMP_Command_T_13 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_13)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_13= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_13", $resultat_T_13)

;Read value at sysLocation
$SNMP_Command_T_14 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_14)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_14= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_14", $resultat_T_14)

;Read value at sysLocation
$SNMP_Command_T_15 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_15)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_15= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_15", $resultat_T_15)

;Read value at sysLocation
$SNMP_Command_T_16 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_16)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_16= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_16", $resultat_T_16)

;Read value at sysLocation
$SNMP_Command_T_17 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_17)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_17= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_17", $resultat_T_17)

;Read value at sysLocation
$SNMP_Command_T_18 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_18)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_18= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_18", $resultat_T_18)

;Read value at sysLocation
$SNMP_Command_T_19 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_19)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_19= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_19", $resultat_T_19)

;Read value at sysLocation
$SNMP_Command_T_20 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_20)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_20= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_20", $resultat_T_20)

;Read value at sysLocation
$SNMP_Command_T_21 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_21)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_21= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_21", $resultat_T_21)

;Read value at sysLocation
$SNMP_Command_T_22 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_22)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_22= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV009", "resultat_T_22", $resultat_T_22)

;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_1)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_2)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_3)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_4)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_5)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_6)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_7)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_8)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_9)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_10)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_11)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_12)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_13)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_14)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_15)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_16)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_17)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_18)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_19)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_20)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_21)
;~ ;~ MsgBox(0,"Compteur:XX-IV009 ","Le compteur Total d'impression est de:  "& $resultat_T_22)
OnAutoItExit()
EndIf
;******************************************************************************
;******************************************************************************

;******************************************************************************
;******************************************************************************
;*********************    SNMP TOSHIBA 165   **********************************
;******************************************************************************
; commande pour IMP XX_IV027
If Not Ping($dest_IP_XX_IV027, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV027"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV027", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_23", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_24", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_25", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_26", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_27", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_28", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV027, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV027", "")

;Read value at sysLocation
$SNMP_Command_T_23 = _SNMPBuildPacket($OID_TOSHIBA_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_23)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_23= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_23", $resultat_T_23)

;Read value at sysLocation
$SNMP_Command_T_24 = _SNMPBuildPacket($OID_TOSHIBA_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_24)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_24= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_24", $resultat_T_24)

;Read value at sysLocation
$SNMP_Command_T_25 = _SNMPBuildPacket($OID_TOSHIBA_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_25)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_25= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_25", $resultat_T_25)

;Read value at sysLocation
$SNMP_Command_T_26 = _SNMPBuildPacket($OID_TOSHIBA_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_26)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_26= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_26", $resultat_T_26)

;Read value at sysLocation
$SNMP_Command_T_27 = _SNMPBuildPacket($OID_TOSHIBA_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_27)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_27= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_27", $resultat_T_27)

;Read value at sysLocation
$SNMP_Command_T_28 = _SNMPBuildPacket($OID_TOSHIBA_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_28)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_28= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_28", $resultat_T_28)

;~ ;~ MsgBox(0,"Compteur:XX-IV027 ","Le compteur Total d'impression est de:  "& $resultat_T_23)
;~ ;~ MsgBox(0,"Compteur:XX-IV027 ","Le compteur Total d'impression est de:  "& $resultat_T_24)
;~ ;~ MsgBox(0,"Compteur:XX-IV027 ","Le compteur Total d'impression est de:  "& $resultat_T_25)
;~ ;~ MsgBox(0,"Compteur:XX-IV027 ","Le compteur Total d'impression est de:  "& $resultat_T_26)
;~ ;~ MsgBox(0,"Compteur:XX-IV027 ","Le compteur Total d'impression est de:  "& $resultat_T_27)
;~ ;~ MsgBox(0,"Compteur:XX-IV027 ","Le compteur Total d'impression est de:  "& $resultat_T_28)
OnAutoItExit()
EndIf
;************************************
; commande pour IMP XX_IV028
If Not Ping($dest_IP_XX_IV028, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV028"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV028", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_29", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_30", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_31", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_32", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_33", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV027", "resultat_T_34", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV028, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV028", "")

;Read value at sysLocation
$SNMP_Command_T_29 = _SNMPBuildPacket($OID_TOSHIBA_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_29)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_29= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV028", "resultat_T_29", $resultat_T_29)

;Read value at sysLocation
$SNMP_Command_T_30 = _SNMPBuildPacket($OID_TOSHIBA_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_30)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_30= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV028", "resultat_T_30", $resultat_T_30)

;Read value at sysLocation
$SNMP_Command_T_31 = _SNMPBuildPacket($OID_TOSHIBA_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_31)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_31= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV028", "resultat_T_31", $resultat_T_31)

;Read value at sysLocation
$SNMP_Command_T_32 = _SNMPBuildPacket($OID_TOSHIBA_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_32)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_32= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV028", "resultat_T_32", $resultat_T_32)

;Read value at sysLocation
$SNMP_Command_T_33 = _SNMPBuildPacket($OID_TOSHIBA_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_33)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_33= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV028", "resultat_T_33", $resultat_T_33)

;Read value at sysLocation
$SNMP_Command_T_34 = _SNMPBuildPacket($OID_TOSHIBA_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_34)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_34= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV028", "resultat_T_34", $resultat_T_34)

;~ ;~ MsgBox(0,"Compteur:XX-IV028 ","Le compteur Total d'impression est de:  "& $resultat_T_29)
;~ ;~ MsgBox(0,"Compteur:XX-IV028 ","Le compteur Total d'impression est de:  "& $resultat_T_30)
;~ ;~ MsgBox(0,"Compteur:XX-IV028 ","Le compteur Total d'impression est de:  "& $resultat_T_31)
;~ ;~ MsgBox(0,"Compteur:XX-IV028 ","Le compteur Total d'impression est de:  "& $resultat_T_32)
;~ ;~ MsgBox(0,"Compteur:XX-IV028 ","Le compteur Total d'impression est de:  "& $resultat_T_33)
;~ ;~ MsgBox(0,"Compteur:XX-IV028 ","Le compteur Total d'impression est de:  "& $resultat_T_34)
OnAutoItExit()
EndIf
;******************************************************************************
;******************************************************************************

;******************************************************************************
;******************************************************************************
;*********************    SNMP TOSHIBA 3520C   **********************************
;******************************************************************************
; commande pour IMP XX_IV010
If Not Ping($dest_IP_XX_IV010, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV010"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV010", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_35", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_36", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_37", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_38", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_39", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_40", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_41", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_42", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_43", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_44", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_45", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_46", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_47", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_48", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_49", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_50", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_51", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_52", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_53", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_54", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_55", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_56", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_57", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_58", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_59", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_60", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_61", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_62", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_63", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_64", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_65", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_66", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_67", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_68", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_69", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_70", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_71", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_72", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_73", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_74", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_75", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_76", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_77", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_78", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_79", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_80", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_81", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_82", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_83", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_84", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_85", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_86", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_87", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_88", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_89", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_90", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_91", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_92", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_93", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_94", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_95", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_96", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_97", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_98", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_99", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_100", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_101", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_102", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_103", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_104", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_105", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_106", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_107", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_108", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_109", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_110", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_111", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_112", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_113", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_114", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_115", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_116", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_117", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_118", "no info")

Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV010, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV010", "")

;Read value at sysLocation
$SNMP_Command_T_35 = _SNMPBuildPacket($OID_TOSHIBA_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_35)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_35= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_35", $resultat_T_35)

;Read value at sysLocation
$SNMP_Command_T_36 = _SNMPBuildPacket($OID_TOSHIBA_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_36)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_36= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_36", $resultat_T_36)

;Read value at sysLocation
$SNMP_Command_T_37 = _SNMPBuildPacket($OID_TOSHIBA_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_37)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_37= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_37", $resultat_T_37)

;Read value at sysLocation
$SNMP_Command_T_38 = _SNMPBuildPacket($OID_TOSHIBA_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_38)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_38= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_38", $resultat_T_38)

;Read value at sysLocation
$SNMP_Command_T_39 = _SNMPBuildPacket($OID_TOSHIBA_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_39)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_39= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_39", $resultat_T_35)

;Read value at sysLocation
$SNMP_Command_T_40 = _SNMPBuildPacket($OID_TOSHIBA_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_40)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_40= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_40", $resultat_T_40)


;Read value at sysLocation
$SNMP_Command_T_41 = _SNMPBuildPacket($OID_TOSHIBA_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_41)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_41= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_41", $resultat_T_41)

;Read value at sysLocation
$SNMP_Command_T_42 = _SNMPBuildPacket($OID_TOSHIBA_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_42)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_42= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_42", $resultat_T_42)

;Read value at sysLocation
$SNMP_Command_T_43 = _SNMPBuildPacket($OID_TOSHIBA_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_43)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_43= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_43", $resultat_T_43)

;Read value at sysLocation
$SNMP_Command_T_44 = _SNMPBuildPacket($OID_TOSHIBA_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_44)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_44= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_44", $resultat_T_44)

;Read value at sysLocation
$SNMP_Command_T_45 = _SNMPBuildPacket($OID_TOSHIBA_11, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_45)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_45= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_45", $resultat_T_45)

;Read value at sysLocation
$SNMP_Command_T_46 = _SNMPBuildPacket($OID_TOSHIBA_12, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_46)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_46= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_46", $resultat_T_46)

;*********** Par Département ******************
; DEPT 1
;Read value at sysLocation
$SNMP_Command_T_47 = _SNMPBuildPacket($OID_TOSHIBA_DPT_1&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_47)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_47= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_47", $resultat_T_47)

;Read value at sysLocation
$SNMP_Command_T_48 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_48)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_48= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_48", $resultat_T_48)

;Read value at sysLocation
$SNMP_Command_T_49 = _SNMPBuildPacket($OID_TOSHIBA_DPT_3&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_49)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_49= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_49", $resultat_T_49)

;Read value at sysLocation
$SNMP_Command_T_50 = _SNMPBuildPacket($OID_TOSHIBA_DPT_4&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_50)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_50= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_50", $resultat_T_50)

;Read value at sysLocation
$SNMP_Command_T_51 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_51)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_51= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_51", $resultat_T_51)

;Read value at sysLocation
$SNMP_Command_T_52 = _SNMPBuildPacket($OID_TOSHIBA_DPT_6&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_52)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_52= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_52", $resultat_T_52)


; DEPT 2
;Read value at sysLocation
$SNMP_Command_T_53 = _SNMPBuildPacket($OID_TOSHIBA_DPT_1&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_53)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_53= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_53", $resultat_T_53)

;Read value at sysLocation
$SNMP_Command_T_54 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_54)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_54= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_54", $resultat_T_54)

;Read value at sysLocation
$SNMP_Command_T_55 = _SNMPBuildPacket($OID_TOSHIBA_DPT_3&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_55)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_55= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_55", $resultat_T_55)

;Read value at sysLocation
$SNMP_Command_T_56 = _SNMPBuildPacket($OID_TOSHIBA_DPT_4&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_56)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_56= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_56", $resultat_T_56)

;Read value at sysLocation
$SNMP_Command_T_57 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_57)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_57= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_57", $resultat_T_57)

;Read value at sysLocation
$SNMP_Command_T_58 = _SNMPBuildPacket($OID_TOSHIBA_DPT_6&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_58)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_58= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_58", $resultat_T_58)


; DEPT 3
;Read value at sysLocation
$SNMP_Command_T_59 = _SNMPBuildPacket($OID_TOSHIBA_DPT_1&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_59)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_59= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_59", $resultat_T_59)

;Read value at sysLocation
$SNMP_Command_T_60 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_60)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_60= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_60", $resultat_T_60)

;Read value at sysLocation
$SNMP_Command_T_61 = _SNMPBuildPacket($OID_TOSHIBA_DPT_3&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_61)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_61= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_61", $resultat_T_61)

;Read value at sysLocation
$SNMP_Command_T_62 = _SNMPBuildPacket($OID_TOSHIBA_DPT_4&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_62)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_62= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_62", $resultat_T_62)

;Read value at sysLocation
$SNMP_Command_T_63 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_63)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_63= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_63", $resultat_T_63)

;Read value at sysLocation
$SNMP_Command_T_64 = _SNMPBuildPacket($OID_TOSHIBA_DPT_6&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_64)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_64= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_64", $resultat_T_64)

; DEPT 4
;Read value at sysLocation
$SNMP_Command_T_65 = _SNMPBuildPacket($OID_TOSHIBA_DPT_1&$OID_D_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_65)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_65= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_65", $resultat_T_65)

;Read value at sysLocation
$SNMP_Command_T_66 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_66)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_66= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_66", $resultat_T_66)

;Read value at sysLocation
$SNMP_Command_T_67 = _SNMPBuildPacket($OID_TOSHIBA_DPT_3&$OID_D_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_67)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_67= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_67", $resultat_T_67)

;Read value at sysLocation
$SNMP_Command_T_68 = _SNMPBuildPacket($OID_TOSHIBA_DPT_4&$OID_D_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_68)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_68= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_68", $resultat_T_68)

;Read value at sysLocation
$SNMP_Command_T_69 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_69)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_69= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_69", $resultat_T_69)

;Read value at sysLocation
$SNMP_Command_T_70 = _SNMPBuildPacket($OID_TOSHIBA_DPT_6&$OID_D_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_70)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_70= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_70", $resultat_T_70)

; DEPT 5
;Read value at sysLocation
$SNMP_Command_T_71 = _SNMPBuildPacket($OID_TOSHIBA_DPT_1&$OID_D_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_71)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_71= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_71", $resultat_T_71)

;Read value at sysLocation
$SNMP_Command_T_72 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_72)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_72= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_72", $resultat_T_72)

;Read value at sysLocation
$SNMP_Command_T_73 = _SNMPBuildPacket($OID_TOSHIBA_DPT_3&$OID_D_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_73)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_73= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_73", $resultat_T_73)

;Read value at sysLocation
$SNMP_Command_T_74 = _SNMPBuildPacket($OID_TOSHIBA_DPT_4&$OID_D_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_74)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_74= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_74", $resultat_T_74)

;Read value at sysLocation
$SNMP_Command_T_75 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_75)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_75= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_75", $resultat_T_75)

;Read value at sysLocation
$SNMP_Command_T_76 = _SNMPBuildPacket($OID_TOSHIBA_DPT_6&$OID_D_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_76)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_76= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_76", $resultat_T_76)

; DEPT 6
;Read value at sysLocation
$SNMP_Command_T_77 = _SNMPBuildPacket($OID_TOSHIBA_DPT_1&$OID_D_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_77)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_77= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_77", $resultat_T_77)

;Read value at sysLocation
$SNMP_Command_T_78 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_78)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_78= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_78", $resultat_T_78)

;Read value at sysLocation
$SNMP_Command_T_79 = _SNMPBuildPacket($OID_TOSHIBA_DPT_3&$OID_D_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_79)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_79= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_79", $resultat_T_79)

;Read value at sysLocation
$SNMP_Command_T_80 = _SNMPBuildPacket($OID_TOSHIBA_DPT_4&$OID_D_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_80)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_80= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_80", $resultat_T_80)

;Read value at sysLocation
$SNMP_Command_T_81 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_81)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_81= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_81", $resultat_T_81)

;Read value at sysLocation
$SNMP_Command_T_82 = _SNMPBuildPacket($OID_TOSHIBA_DPT_6&$OID_D_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_82)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_82= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_82", $resultat_T_82)

; DEPT 7
;Read value at sysLocation
$SNMP_Command_T_83 = _SNMPBuildPacket($OID_TOSHIBA_DPT_1&$OID_D_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_83)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_83= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_83", $resultat_T_83)

;Read value at sysLocation
$SNMP_Command_T_84 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_84)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_84= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_84", $resultat_T_84)

;Read value at sysLocation
$SNMP_Command_T_85 = _SNMPBuildPacket($OID_TOSHIBA_DPT_3&$OID_D_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_85)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_85= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_85", $resultat_T_85)

;Read value at sysLocation
$SNMP_Command_T_86 = _SNMPBuildPacket($OID_TOSHIBA_DPT_4&$OID_D_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_86)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_86= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_86", $resultat_T_86)

;Read value at sysLocation
$SNMP_Command_T_87 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_87)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_87= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_87", $resultat_T_87)

;Read value at sysLocation
$SNMP_Command_T_88 = _SNMPBuildPacket($OID_TOSHIBA_DPT_6&$OID_D_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_88)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_88= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_88", $resultat_T_88)

; DEPT 8
;Read value at sysLocation
$SNMP_Command_T_89 = _SNMPBuildPacket($OID_TOSHIBA_DPT_1&$OID_D_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_89)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_89= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_89", $resultat_T_89)

;Read value at sysLocation
$SNMP_Command_T_90 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_90)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_90= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_90", $resultat_T_90)

;Read value at sysLocation
$SNMP_Command_T_91 = _SNMPBuildPacket($OID_TOSHIBA_DPT_3&$OID_D_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_91)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_91= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_91", $resultat_T_91)

;Read value at sysLocation
$SNMP_Command_T_92 = _SNMPBuildPacket($OID_TOSHIBA_DPT_4&$OID_D_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_92)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_92= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_92", $resultat_T_92)

;Read value at sysLocation
$SNMP_Command_T_93 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_93)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_93= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_93", $resultat_T_93)

;Read value at sysLocation
$SNMP_Command_T_94 = _SNMPBuildPacket($OID_TOSHIBA_DPT_6&$OID_D_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_94)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_94= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_94", $resultat_T_94)

; DEPT 9
;Read value at sysLocation
$SNMP_Command_T_95 = _SNMPBuildPacket($OID_TOSHIBA_DPT_1&$OID_D_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_95)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_95= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_95", $resultat_T_95)

;Read value at sysLocation
$SNMP_Command_T_96 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_96)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_96= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_96", $resultat_T_96)

;Read value at sysLocation
$SNMP_Command_T_97 = _SNMPBuildPacket($OID_TOSHIBA_DPT_3&$OID_D_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_97)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_97= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_97", $resultat_T_97)

;Read value at sysLocation
$SNMP_Command_T_98 = _SNMPBuildPacket($OID_TOSHIBA_DPT_4&$OID_D_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_98)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_98= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_98", $resultat_T_98)

;Read value at sysLocation
$SNMP_Command_T_99 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_99)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_99= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_99", $resultat_T_99)

;Read value at sysLocation
$SNMP_Command_T_100 = _SNMPBuildPacket($OID_TOSHIBA_DPT_6&$OID_D_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_100)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_100= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_100", $resultat_T_100)

; DEPT 10
;Read value at sysLocation
$SNMP_Command_T_101 = _SNMPBuildPacket($OID_TOSHIBA_DPT_1&$OID_D_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_101)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_101= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_101", $resultat_T_101)

;Read value at sysLocation
$SNMP_Command_T_102 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_102)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_102= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_102", $resultat_T_102)

;Read value at sysLocation
$SNMP_Command_T_103 = _SNMPBuildPacket($OID_TOSHIBA_DPT_3&$OID_D_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_103)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_103= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_103", $resultat_T_103)

;Read value at sysLocation
$SNMP_Command_T_104 = _SNMPBuildPacket($OID_TOSHIBA_DPT_4&$OID_D_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_104)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_104= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_104", $resultat_T_104)

;Read value at sysLocation
$SNMP_Command_T_105 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_105)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_105= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_105", $resultat_T_105)

;Read value at sysLocation
$SNMP_Command_T_106 = _SNMPBuildPacket($OID_TOSHIBA_DPT_6&$OID_D_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_106)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_106= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_106", $resultat_T_106)

; DEPT 11
;Read value at sysLocation
$SNMP_Command_T_107 = _SNMPBuildPacket($OID_TOSHIBA_DPT_1&$OID_D_11, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_107)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_107= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_107", $resultat_T_107)

;Read value at sysLocation
$SNMP_Command_T_108 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_11, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_108)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_108= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_108", $resultat_T_108)

;Read value at sysLocation
$SNMP_Command_T_109 = _SNMPBuildPacket($OID_TOSHIBA_DPT_3&$OID_D_11, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_109)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_109= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_109", $resultat_T_109)

;Read value at sysLocation
$SNMP_Command_T_110 = _SNMPBuildPacket($OID_TOSHIBA_DPT_4&$OID_D_11, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_110)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_110= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_110", $resultat_T_110)

;Read value at sysLocation
$SNMP_Command_T_111 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_11, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_111)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_111= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_111", $resultat_T_111)

;Read value at sysLocation
$SNMP_Command_T_112 = _SNMPBuildPacket($OID_TOSHIBA_DPT_6&$OID_D_11, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_112)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_112= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_112", $resultat_T_112)

; DEPT 12
;Read value at sysLocation
$SNMP_Command_T_113 = _SNMPBuildPacket($OID_TOSHIBA_DPT_1&$OID_D_12, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_113)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_113= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_113", $resultat_T_113)

;Read value at sysLocation
$SNMP_Command_T_114 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_12, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_114)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_114= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_114", $resultat_T_114)

;Read value at sysLocation
$SNMP_Command_T_115 = _SNMPBuildPacket($OID_TOSHIBA_DPT_3&$OID_D_12, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_115)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_115= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_115", $resultat_T_115)

;Read value at sysLocation
$SNMP_Command_T_116 = _SNMPBuildPacket($OID_TOSHIBA_DPT_4&$OID_D_12, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_116)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_116= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_116", $resultat_T_116)

;Read value at sysLocation
$SNMP_Command_T_117 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_12, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_117)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_117= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_117", $resultat_T_117)

;Read value at sysLocation
$SNMP_Command_T_118 = _SNMPBuildPacket($OID_TOSHIBA_DPT_6&$OID_D_12, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_118)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_118= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV010", "resultat_T_118", $resultat_T_118)

;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_35)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_36)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_37)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_38)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_39)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_40)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_41)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_42)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_43)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_44)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_45)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_46)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_47)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_48)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_49)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_50)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_52)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_53)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_54)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_55)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_56)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_57)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_58)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_59)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_60)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_61)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_62)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_63)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_64)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_65)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_66)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_67)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_68)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_69)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_70)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_71)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_72)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_73)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_74)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_75)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_76)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_77)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_78)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_79)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_80)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_81)
;~ ;~ MsgBox(0,"Compteur:XX-IV010","Le compteur Total d'impression est de:  "& $resultat_T_82)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_83)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_84)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_85)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_86)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_87)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_88)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_89)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_90)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_91)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_92)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_93)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_94)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_95)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_96)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_97)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_98)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_99)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_100)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_101)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_102)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_103)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_104)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_105)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_106)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_107)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_108)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_109)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_110)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_111)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_112)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_113)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_114)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_115)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_116)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_117)
;~ ;~ MsgBox(0,"Compteur:XX-IV010 ","Le compteur Total d'impression est de:  "& $resultat_T_118)

OnAutoItExit()
EndIf
;******************************************************************************

;******************************************************************************
; commande pour IMP XX_IV013
If Not Ping($dest_IP_XX_IV013, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV013"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV013", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_119", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_120", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_121", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_122", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_123", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_124", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_125", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_126", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_127", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_128", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_129", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_130", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_131", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_132", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_133", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_134", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_135", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_136", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_137", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_138", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_139", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_140", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_141", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_142", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_143", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_144", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_145", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_146", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_147", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_148", "no info")


Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV013, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV013", "")

;Read value at sysLocation
$SNMP_Command_T_119 = _SNMPBuildPacket($OID_TOSHIBA_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_119)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_119= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_119", $resultat_T_119)

;Read value at sysLocation
$SNMP_Command_T_120 = _SNMPBuildPacket($OID_TOSHIBA_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_120)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_120= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_120", $resultat_T_120)

;Read value at sysLocation
$SNMP_Command_T_121 = _SNMPBuildPacket($OID_TOSHIBA_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_121)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_121= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_121", $resultat_T_121)

;Read value at sysLocation
$SNMP_Command_T_122 = _SNMPBuildPacket($OID_TOSHIBA_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_122)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_122= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_122", $resultat_T_122)

;Read value at sysLocation
$SNMP_Command_T_123 = _SNMPBuildPacket($OID_TOSHIBA_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_123)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_123= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_123", $resultat_T_123)

;Read value at sysLocation
$SNMP_Command_T_124 = _SNMPBuildPacket($OID_TOSHIBA_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_124)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_124= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_124", $resultat_T_124)


;Read value at sysLocation
$SNMP_Command_T_125 = _SNMPBuildPacket($OID_TOSHIBA_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_125)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_125= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_125", $resultat_T_125)

;Read value at sysLocation
$SNMP_Command_T_126 = _SNMPBuildPacket($OID_TOSHIBA_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_126)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_126= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_126", $resultat_T_126)

;Read value at sysLocation
$SNMP_Command_T_127 = _SNMPBuildPacket($OID_TOSHIBA_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_127)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_127= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_127", $resultat_T_127)

;Read value at sysLocation
$SNMP_Command_T_128 = _SNMPBuildPacket($OID_TOSHIBA_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_128)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_128= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_128", $resultat_T_128)

;Read value at sysLocation
$SNMP_Command_T_129 = _SNMPBuildPacket($OID_TOSHIBA_11, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_129)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_129= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_129", $resultat_T_129)

;Read value at sysLocation
$SNMP_Command_T_130 = _SNMPBuildPacket($OID_TOSHIBA_12, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_130)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_130= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_130", $resultat_T_130)

;*********** Par Département ******************
; DEPT 1
;Read value at sysLocation
$SNMP_Command_T_131 = _SNMPBuildPacket($OID_TOSHIBA_DPT_1&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_131)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_131= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_131", $resultat_T_131)

;Read value at sysLocation
$SNMP_Command_T_132 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_132)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_132= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_132", $resultat_T_132)

;Read value at sysLocation
$SNMP_Command_T_133 = _SNMPBuildPacket($OID_TOSHIBA_DPT_3&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_133)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_133= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_133", $resultat_T_133)

;Read value at sysLocation
$SNMP_Command_T_134 = _SNMPBuildPacket($OID_TOSHIBA_DPT_4&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_134)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_134= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_134", $resultat_T_134)

;Read value at sysLocation
$SNMP_Command_T_135 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_135)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_135= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_135", $resultat_T_135)

;Read value at sysLocation
$SNMP_Command_T_136 = _SNMPBuildPacket($OID_TOSHIBA_DPT_6&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_136)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_136= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_136", $resultat_T_136)

; DEPT 2
;Read value at sysLocation
$SNMP_Command_T_137 = _SNMPBuildPacket($OID_TOSHIBA_DPT_1&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_137)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_137= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_137", $resultat_T_137)

;Read value at sysLocation
$SNMP_Command_T_138 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_138)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_138= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_138", $resultat_T_138)

;Read value at sysLocation
$SNMP_Command_T_139 = _SNMPBuildPacket($OID_TOSHIBA_DPT_3&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_139)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_139= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_139", $resultat_T_139)

;Read value at sysLocation
$SNMP_Command_T_140 = _SNMPBuildPacket($OID_TOSHIBA_DPT_4&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_140)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_140= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_140", $resultat_T_140)

;Read value at sysLocation
$SNMP_Command_T_141 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_141)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_141= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_141", $resultat_T_141)

;Read value at sysLocation
$SNMP_Command_T_142 = _SNMPBuildPacket($OID_TOSHIBA_DPT_6&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_142)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_142= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_142", $resultat_T_142)

; DEPT 3
;Read value at sysLocation
$SNMP_Command_T_143 = _SNMPBuildPacket($OID_TOSHIBA_DPT_1&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_143)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_143= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_143", $resultat_T_143)

;Read value at sysLocation
$SNMP_Command_T_144 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_144)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_144= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_144", $resultat_T_144)

;Read value at sysLocation
$SNMP_Command_T_145 = _SNMPBuildPacket($OID_TOSHIBA_DPT_3&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_145)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_145= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_145", $resultat_T_145)
;Read value at sysLocation
$SNMP_Command_T_146 = _SNMPBuildPacket($OID_TOSHIBA_DPT_4&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_146)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_146= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_146", $resultat_T_146)

;Read value at sysLocation
$SNMP_Command_T_147 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_147)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_147= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_147", $resultat_T_147)

;Read value at sysLocation
$SNMP_Command_T_148 = _SNMPBuildPacket($OID_TOSHIBA_DPT_6&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_148)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_148= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV013", "resultat_T_148", $resultat_T_148)

;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_131)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_132)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_133)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_134)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_135)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_136)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_137)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_138)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_139)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_140)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_141)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_142)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_143)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_144)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_145)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_146)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_147)
;~ ;~ MsgBox(0,"Compteur:XX-IV013 ","Le compteur Total d'impression est de:  "& $resultat_T_148)

OnAutoItExit()
EndIf
;******************************************************************************

;******************************************************************************
;******************************************************************************
;******************************************************************************
;*********************    SNMP TOSHIBA 455   **********************************
;******************************************************************************
; commande pour IMP XX_IV011
If Not Ping($dest_IP_XX_IV011, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV011"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV011", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_149", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_150", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_151", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_152", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_153", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_154", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_155", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_156", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_157", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_158", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_159", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_160", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_161", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_162", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_163", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_164", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_165", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_166", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_167", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_168", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_169", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_170", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_171", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_172", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_173", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_174", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_175", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_176", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_177", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_178", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_179", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_180", "no info")

Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV011, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV011", "")

;Read value at sysLocation
$SNMP_Command_T_149 = _SNMPBuildPacket($OID_TOSHIBA_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_149)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_149= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_149", $resultat_T_149)

;Read value at sysLocation
$SNMP_Command_T_150 = _SNMPBuildPacket($OID_TOSHIBA_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_150)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_150= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_150", $resultat_T_150)

;Read value at sysLocation
$SNMP_Command_T_151 = _SNMPBuildPacket($OID_TOSHIBA_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_151)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_151= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_151", $resultat_T_151)

;Read value at sysLocation
$SNMP_Command_T_152 = _SNMPBuildPacket($OID_TOSHIBA_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_152)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_152= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_152", $resultat_T_152)

;Read value at sysLocation
$SNMP_Command_T_153 = _SNMPBuildPacket($OID_TOSHIBA_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_153)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_153= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_153", $resultat_T_153)

;Read value at sysLocation
$SNMP_Command_T_154 = _SNMPBuildPacket($OID_TOSHIBA_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_154)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_154= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_154", $resultat_T_154)

;*********** Par Département ******************
; DEPT 1
;Read value at sysLocation
$SNMP_Command_T_155 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_155)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_155= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_155", $resultat_T_155)

;Read value at sysLocation
$SNMP_Command_T_156 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_156)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_156= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_156", $resultat_T_156)

; DEPT 2
;Read value at sysLocation
$SNMP_Command_T_157 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_157)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_157= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_157", $resultat_T_157)

;Read value at sysLocation
$SNMP_Command_T_158 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_158)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_158= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_158", $resultat_T_158)

; DEPT 3
;Read value at sysLocation
$SNMP_Command_T_159 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_159)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_159= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_159", $resultat_T_159)

;Read value at sysLocation
$SNMP_Command_T_160 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_160)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_160= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_160", $resultat_T_160)

; DEPT 4
;Read value at sysLocation
$SNMP_Command_T_161 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_161)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_161= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_161", $resultat_T_161)

;Read value at sysLocation
$SNMP_Command_T_162 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_162)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_162= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_162", $resultat_T_162)

; DEPT 5
;Read value at sysLocation
$SNMP_Command_T_163 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_163)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_163= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_163", $resultat_T_163)

;Read value at sysLocation
$SNMP_Command_T_164 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_164)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_164= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_164", $resultat_T_164)

; DEPT 6
;Read value at sysLocation
$SNMP_Command_T_165 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_165)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_165= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_165", $resultat_T_165)

;Read value at sysLocation
$SNMP_Command_T_166 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_166)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_166= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_166", $resultat_T_166)

; DEPT 7
;Read value at sysLocation
$SNMP_Command_T_167 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_167)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_167= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_167", $resultat_T_167)

;Read value at sysLocation
$SNMP_Command_T_168 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_168)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_168= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_168", $resultat_T_168)

; DEPT 8
;Read value at sysLocation
$SNMP_Command_T_169 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_169)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_169= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_169", $resultat_T_169)

;Read value at sysLocation
$SNMP_Command_T_170 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_170)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_170= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_170", $resultat_T_170)

; DEPT 9
;Read value at sysLocation
$SNMP_Command_T_171 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_171)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_171= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_171", $resultat_T_171)

;Read value at sysLocation
$SNMP_Command_T_172 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_172)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_172= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_172", $resultat_T_172)

; DEPT 10
;Read value at sysLocation
$SNMP_Command_T_173 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_173)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_173= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_173", $resultat_T_173)

;Read value at sysLocation
$SNMP_Command_T_174 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_174)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_174= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_174", $resultat_T_174)

; DEPT 11
;Read value at sysLocation
$SNMP_Command_T_175 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_11, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_175)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_175= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_175", $resultat_T_175)

;Read value at sysLocation
$SNMP_Command_T_176 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_11, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_176)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_176= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_176", $resultat_T_176)

; DEPT 12
;Read value at sysLocation
$SNMP_Command_T_177 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_12, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_177)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_177= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_177", $resultat_T_177)

;Read value at sysLocation
$SNMP_Command_T_178 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_12, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_178)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_178= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_178", $resultat_T_178)

; DEPT 13
;Read value at sysLocation
$SNMP_Command_T_179 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_13, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_179)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_179= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_179", $resultat_T_179)

;Read value at sysLocation
$SNMP_Command_T_180 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_13, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_180)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_180= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV011", "resultat_T_180", $resultat_T_180)

;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_149)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_150)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_151)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_152)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_153)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_154)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_155)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_156)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_157)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_158)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_159)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_160)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_161)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_162)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_163)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_164)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_165)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_166)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_167)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_168)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_169)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_170)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_171)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_172)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_173)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_174)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_175)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_176)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_177)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_178)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_179)
;~ ;~ MsgBox(0,"Compteur:XX-IV011 ","Le compteur Total d'impression est de:  "& $resultat_T_180)
OnAutoItExit()
EndIf
;*********************************************************************************

; commande pour IMP XX_IV012
If Not Ping($dest_IP_XX_IV012, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV012"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV012", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_181", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_182", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_183", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_184", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_185", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_186", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_187", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_188", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_189", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_190", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_191", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_192", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_193", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_194", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_195", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_196", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_197", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_198", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_199", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_200", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_201", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_202", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_203", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_204", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_205", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_206", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_207", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_208", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_209", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_210", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_211", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_212", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_213", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_214", "no info")



Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV012, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV012", "")

;Read value at sysLocation
$SNMP_Command_T_181 = _SNMPBuildPacket($OID_TOSHIBA_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_181)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_181= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_181", $resultat_T_181)

;Read value at sysLocation
$SNMP_Command_T_182 = _SNMPBuildPacket($OID_TOSHIBA_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_182)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_182= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_182", $resultat_T_182)

;Read value at sysLocation
$SNMP_Command_T_183 = _SNMPBuildPacket($OID_TOSHIBA_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_183)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_183= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_183", $resultat_T_183)

;Read value at sysLocation
$SNMP_Command_T_184 = _SNMPBuildPacket($OID_TOSHIBA_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_184)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_184= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_184", $resultat_T_184)

;Read value at sysLocation
$SNMP_Command_T_185 = _SNMPBuildPacket($OID_TOSHIBA_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_185)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_185= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_185", $resultat_T_185)

;Read value at sysLocation
$SNMP_Command_T_186 = _SNMPBuildPacket($OID_TOSHIBA_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_186)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_186= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_186", $resultat_T_186)

;*********** Par Département ******************
; DEPT 1
;Read value at sysLocation
$SNMP_Command_T_187 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_187)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_187= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_187", $resultat_T_187)

;Read value at sysLocation
$SNMP_Command_T_188 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_188)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_188= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_188", $resultat_T_188)

; DEPT 2
;Read value at sysLocation
$SNMP_Command_T_189 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_189)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_189= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_189", $resultat_T_189)

;Read value at sysLocation
$SNMP_Command_T_190 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_190)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_190= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_190", $resultat_T_190)

; DEPT 3
;Read value at sysLocation
$SNMP_Command_T_191 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_191)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_191= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_191", $resultat_T_191)

;Read value at sysLocation
$SNMP_Command_T_192 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_192)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_192= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_192", $resultat_T_192)

; DEPT 4
;Read value at sysLocation
$SNMP_Command_T_193 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_193)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_193= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_193", $resultat_T_193)

;Read value at sysLocation
$SNMP_Command_T_194 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_194)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_194= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_194", $resultat_T_194)

; DEPT 5
;Read value at sysLocation
$SNMP_Command_T_195 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_195)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_195= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_195", $resultat_T_195)

;Read value at sysLocation
$SNMP_Command_T_196 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_196)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_196= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_196", $resultat_T_196)

; DEPT 6
;Read value at sysLocation
$SNMP_Command_T_197 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_197)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_197= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_197", $resultat_T_197)

;Read value at sysLocation
$SNMP_Command_T_198 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_198)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_198= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_198", $resultat_T_198)

; DEPT 7
;Read value at sysLocation
$SNMP_Command_T_199 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_199)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_199= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_199", $resultat_T_199)

;Read value at sysLocation
$SNMP_Command_T_200 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_200)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_200= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_200", $resultat_T_200)

; DEPT 8
;Read value at sysLocation
$SNMP_Command_T_201 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_201)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_201= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_201", $resultat_T_201)

;Read value at sysLocation
$SNMP_Command_T_202 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_202)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_202= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_202", $resultat_T_202)

; DEPT 9
;Read value at sysLocation
$SNMP_Command_T_203 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_203)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_203= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_203", $resultat_T_203)

;Read value at sysLocation
$SNMP_Command_T_204 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_204)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_204= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_204", $resultat_T_204)

; DEPT 10
;Read value at sysLocation
$SNMP_Command_T_205 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_205)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_205= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_205", $resultat_T_205)

;Read value at sysLocation
$SNMP_Command_T_206 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_206)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_206= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_206", $resultat_T_206)

; DEPT 11
;Read value at sysLocation
$SNMP_Command_T_207 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_11, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_207)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_207= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_207", $resultat_T_207)

;Read value at sysLocation
$SNMP_Command_T_208 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_11, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_208)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_208= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_208", $resultat_T_208)

; DEPT 12
;Read value at sysLocation
$SNMP_Command_T_209 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_12, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_209)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_209= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_209", $resultat_T_209)

;Read value at sysLocation
$SNMP_Command_T_210 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_12, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_210)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_210= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_210", $resultat_T_210)

; DEPT 13
;Read value at sysLocation
$SNMP_Command_T_211 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_13, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_211)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_211= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_211", $resultat_T_211)

;Read value at sysLocation
$SNMP_Command_T_212 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_13, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_212)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_212= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_212", $resultat_T_212)

; DEPT 14
;Read value at sysLocation
$SNMP_Command_T_213 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_13, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_213)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_213= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_213", $resultat_T_213)

;Read value at sysLocation
$SNMP_Command_T_214 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_13, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_214)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_214= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV012", "resultat_T_214", $resultat_T_214)

;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_181)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_182)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_183)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_184)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_185)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_186)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_187)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_188)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_189)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_190)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_191)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_192)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_193)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_194)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_195)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_196)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_197)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_198)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_199)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_200)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_201)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_202)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_203)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_204)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_205)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_206)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_207)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_208)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_209)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_210)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_211)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_212)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_213)
;~ ;~ MsgBox(0,"Compteur:XX-IV012 ","Le compteur Total d'impression est de:  "& $resultat_T_214)
OnAutoItExit()
EndIf
;*********************************************************************************

; commande pour IMP XX_IV014
If Not Ping($dest_IP_XX_IV014, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV014"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV014", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_215", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_216", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_217", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_218", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_219", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_220", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_221", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_222", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_223", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_224", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_225", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_226", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_227", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_228", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_229", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_230", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_231", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_232", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_233", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_234", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_235", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_236", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_237", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_238", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_239", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_240", "no info")

Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV014, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV014", "")

;Read value at sysLocation
$SNMP_Command_T_215 = _SNMPBuildPacket($OID_TOSHIBA_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_215)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_215= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_215", $resultat_T_215)

;Read value at sysLocation
$SNMP_Command_T_216 = _SNMPBuildPacket($OID_TOSHIBA_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_216)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_216= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_216", $resultat_T_216)

;Read value at sysLocation
$SNMP_Command_T_217 = _SNMPBuildPacket($OID_TOSHIBA_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_217)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_217= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_217", $resultat_T_217)

;Read value at sysLocation
$SNMP_Command_T_218 = _SNMPBuildPacket($OID_TOSHIBA_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_218)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_218= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_218", $resultat_T_218)

;Read value at sysLocation
$SNMP_Command_T_219 = _SNMPBuildPacket($OID_TOSHIBA_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_219)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_219= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_219", $resultat_T_219)


;Read value at sysLocation
$SNMP_Command_T_220 = _SNMPBuildPacket($OID_TOSHIBA_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_220)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_220= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_220", $resultat_T_220)


;*********** Par Département ******************
; DEPT 1
;Read value at sysLocation
$SNMP_Command_T_221 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_221)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_221= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_221", $resultat_T_221)

;Read value at sysLocation
$SNMP_Command_T_222 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_222)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_222= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_222", $resultat_T_222)

; DEPT 2
;Read value at sysLocation
$SNMP_Command_T_223 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_223)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_223= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_223", $resultat_T_223)

;Read value at sysLocation
$SNMP_Command_T_224 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_224)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_224= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_224", $resultat_T_224)

; DEPT 3
;Read value at sysLocation
$SNMP_Command_T_225 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_225)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_225= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_225", $resultat_T_225)

;Read value at sysLocation
$SNMP_Command_T_226 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_226)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_226= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_226", $resultat_T_226)

; DEPT 4
;Read value at sysLocation
$SNMP_Command_T_227 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_227)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_227= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_227", $resultat_T_227)

;Read value at sysLocation
$SNMP_Command_T_228 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_228)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_228= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_228", $resultat_T_228)

; DEPT 5
;Read value at sysLocation
$SNMP_Command_T_229 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_229)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_229= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_229", $resultat_T_229)

;Read value at sysLocation
$SNMP_Command_T_230 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_230)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_230= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_230", $resultat_T_230)

; DEPT 6
;Read value at sysLocation
$SNMP_Command_T_231 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_231)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_231= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_231", $resultat_T_231)

;Read value at sysLocation
$SNMP_Command_T_232 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_232)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_232= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_232", $resultat_T_232)

; DEPT 7
;Read value at sysLocation
$SNMP_Command_T_233 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_233)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_233= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_233", $resultat_T_233)

;Read value at sysLocation
$SNMP_Command_T_234 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_234)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_234= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_234", $resultat_T_234)

; DEPT 8
;Read value at sysLocation
$SNMP_Command_T_235 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_235)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_235= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_235", $resultat_T_235)

;Read value at sysLocation
$SNMP_Command_T_236 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_236)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_236= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_236", $resultat_T_236)

; DEPT 9
;Read value at sysLocation
$SNMP_Command_T_237 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_237)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_237= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_237", $resultat_T_237)

;Read value at sysLocation
$SNMP_Command_T_238 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_238)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_238= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_238", $resultat_T_238)

; DEPT 10
;Read value at sysLocation
$SNMP_Command_T_239 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_239)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_239= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_239", $resultat_T_239)

;Read value at sysLocation
$SNMP_Command_T_240 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_240)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_240= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV014", "resultat_T_240", $resultat_T_240)


;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_215)
;~ ;~ MsgBox(0,"Compteur:XX-IV014","Le compteur Total d'impression est de:  "& $resultat_T_216)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_217)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_218)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_219)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_220)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_221)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_222)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_223)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_224)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_225)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_226)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_227)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_228)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_229)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_230)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_231)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_232)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_233)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_234)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_235)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_236)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_237)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_238)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_239)
;~ ;~ MsgBox(0,"Compteur:XX-IV014 ","Le compteur Total d'impression est de:  "& $resultat_T_240)
OnAutoItExit()
EndIf
;*********************************************************************************

; commande pour IMP XX_IV030
If Not Ping($dest_IP_XX_IV030, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV030"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV030", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_241", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_242", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_243", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_244", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_245", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_246", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_247", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_248", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_249", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_250", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_251", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_252", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_253", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_254", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_255", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_256", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV030, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV030", "")

;Read value at sysLocation
$SNMP_Command_T_241 = _SNMPBuildPacket($OID_TOSHIBA_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_241)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_241= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_241", $resultat_T_241)

;Read value at sysLocation
$SNMP_Command_T_242 = _SNMPBuildPacket($OID_TOSHIBA_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_242)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_242= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_242", $resultat_T_242)

;Read value at sysLocation
$SNMP_Command_T_243 = _SNMPBuildPacket($OID_TOSHIBA_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_243)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_243= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_243", $resultat_T_243)

;Read value at sysLocation
$SNMP_Command_T_244 = _SNMPBuildPacket($OID_TOSHIBA_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_244)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_244= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_244", $resultat_T_244)

;Read value at sysLocation
$SNMP_Command_T_245 = _SNMPBuildPacket($OID_TOSHIBA_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_245)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_245= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_245", $resultat_T_245)

;Read value at sysLocation
$SNMP_Command_T_246 = _SNMPBuildPacket($OID_TOSHIBA_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_246)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_246= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_246", $resultat_T_246)

;*********** Par Département ******************
; DEPT 1
;Read value at sysLocation
$SNMP_Command_T_247 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_247)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_247= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_247", $resultat_T_247)

;Read value at sysLocation
$SNMP_Command_T_248 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_248)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_248= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_248", $resultat_T_248)

; DEPT 2
;Read value at sysLocation
$SNMP_Command_T_249 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_249)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_249= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_249", $resultat_T_249)

;Read value at sysLocation
$SNMP_Command_T_250 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_250)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_250= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_250", $resultat_T_250)

; DEPT 3
;Read value at sysLocation
$SNMP_Command_T_251 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_251)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_251= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_251", $resultat_T_251)

;Read value at sysLocation
$SNMP_Command_T_252 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_252)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_252= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_252", $resultat_T_252)

; DEPT 4
;Read value at sysLocation
$SNMP_Command_T_253 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_253)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_253= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_253", $resultat_T_253)

;Read value at sysLocation
$SNMP_Command_T_254 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_254)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_254= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_254", $resultat_T_254)

; DEPT 5
;Read value at sysLocation
$SNMP_Command_T_255 = _SNMPBuildPacket($OID_TOSHIBA_DPT_2&$OID_D_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_255)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_255= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_255", $resultat_T_255)

;Read value at sysLocation
$SNMP_Command_T_256 = _SNMPBuildPacket($OID_TOSHIBA_DPT_5&$OID_D_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_256)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_256= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV030", "resultat_T_256", $resultat_T_256)

;~ ;~ MsgBox(0,"Compteur:XX-IV030 ","Le compteur Total d'impression est de:  "& $resultat_T_241)
;~ ;~ MsgBox(0,"Compteur:XX-IV030 ","Le compteur Total d'impression est de:  "& $resultat_T_242)
;~ ;~ MsgBox(0,"Compteur:XX-IV030 ","Le compteur Total d'impression est de:  "& $resultat_T_243)
;~ ;~ MsgBox(0,"Compteur:XX-IV030 ","Le compteur Total d'impression est de:  "& $resultat_T_244)
;~ ;~ MsgBox(0,"Compteur:XX-IV030 ","Le compteur Total d'impression est de:  "& $resultat_T_245)
;~ ;~ MsgBox(0,"Compteur:XX-IV030 ","Le compteur Total d'impression est de:  "& $resultat_T_246)
;~ ;~ MsgBox(0,"Compteur:XX-IV030 ","Le compteur Total d'impression est de:  "& $resultat_T_247)
;~ ;~ MsgBox(0,"Compteur:XX-IV030 ","Le compteur Total d'impression est de:  "& $resultat_T_248)
;~ ;~ MsgBox(0,"Compteur:XX-IV030 ","Le compteur Total d'impression est de:  "& $resultat_T_249)
;~ ;~ MsgBox(0,"Compteur:XX-IV030 ","Le compteur Total d'impression est de:  "& $resultat_T_250)
;~ ;~ MsgBox(0,"Compteur:XX-IV030 ","Le compteur Total d'impression est de:  "& $resultat_T_251)
;~ ;~ MsgBox(0,"Compteur:XX-IV030 ","Le compteur Total d'impression est de:  "& $resultat_T_252)
;~ ;~ MsgBox(0,"Compteur:XX-IV030 ","Le compteur Total d'impression est de:  "& $resultat_T_253)
;~ ;~ MsgBox(0,"Compteur:XX-IV030 ","Le compteur Total d'impression est de:  "& $resultat_T_254)
;~ ;~ MsgBox(0,"Compteur:XX-IV030 ","Le compteur Total d'impression est de:  "& $resultat_T_255)
;~ ;~ MsgBox(0,"Compteur:XX-IV030 ","Le compteur Total d'impression est de:  "& $resultat_T_256)

OnAutoItExit()
EndIf
;*********************************************************************************
;******************************************************************************
;*********************    SNMP TOSHIBA 2500C   **********************************
;******************************************************************************
;******************************************************************************
; commande pour IMP XX_IV007
If Not Ping($dest_IP_XX_IV007, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV007"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV007", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_257", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_258", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_259", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_260", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_261", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_262", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_263", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_264", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_265", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_266", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_267", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_268", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV007, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV007", "")

;Read value at sysLocation
$SNMP_Command_T_257 = _SNMPBuildPacket($OID_TOSHIBA_1, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_257)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_257= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_257", $resultat_T_257)

;Read value at sysLocation
$SNMP_Command_T_258 = _SNMPBuildPacket($OID_TOSHIBA_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_258)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_258= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_258", $resultat_T_258)

;Read value at sysLocation
$SNMP_Command_T_259 = _SNMPBuildPacket($OID_TOSHIBA_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_259)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_259= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_259", $resultat_T_259)

;Read value at sysLocation
$SNMP_Command_T_260 = _SNMPBuildPacket($OID_TOSHIBA_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_260)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_260= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_260", $resultat_T_260)

;Read value at sysLocation
$SNMP_Command_T_261 = _SNMPBuildPacket($OID_TOSHIBA_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_261)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_261= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_261", $resultat_T_261)

;Read value at sysLocation
$SNMP_Command_T_262 = _SNMPBuildPacket($OID_TOSHIBA_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_262)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_262= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_262", $resultat_T_262)


;Read value at sysLocation
$SNMP_Command_T_263 = _SNMPBuildPacket($OID_TOSHIBA_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_263)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_263= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_263", $resultat_T_263)

;Read value at sysLocation
$SNMP_Command_T_264 = _SNMPBuildPacket($OID_TOSHIBA_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_264)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_264= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_264", $resultat_T_264)

;Read value at sysLocation
$SNMP_Command_T_265 = _SNMPBuildPacket($OID_TOSHIBA_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_265)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_265= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_265", $resultat_T_265)

;Read value at sysLocation
$SNMP_Command_T_266 = _SNMPBuildPacket($OID_TOSHIBA_10, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_266)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_266= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_266", $resultat_T_266)

;Read value at sysLocation
$SNMP_Command_T_267 = _SNMPBuildPacket($OID_TOSHIBA_11, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_267)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_267= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_267", $resultat_T_267)

;Read value at sysLocation
$SNMP_Command_T_268 = _SNMPBuildPacket($OID_TOSHIBA_12, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_T_268)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_T_268= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV007", "resultat_T_268", $resultat_T_268)

;~ ;~ MsgBox(0,"Compteur:XX-IV007 ","Le compteur Total d'impression est de:  "& $resultat_T_257)
;~ ;~ MsgBox(0,"Compteur:XX-IV007 ","Le compteur Total d'impression est de:  "& $resultat_T_258)
;~ ;~ MsgBox(0,"Compteur:XX-IV007 ","Le compteur Total d'impression est de:  "& $resultat_T_259)
;~ ;~ MsgBox(0,"Compteur:XX-IV007 ","Le compteur Total d'impression est de:  "& $resultat_T_260)
;~ ;~ MsgBox(0,"Compteur:XX-IV007 ","Le compteur Total d'impression est de:  "& $resultat_T_261)
;~ ;~ MsgBox(0,"Compteur:XX-IV007 ","Le compteur Total d'impression est de:  "& $resultat_T_262)
;~ ;~ MsgBox(0,"Compteur:XX-IV007 ","Le compteur Total d'impression est de:  "& $resultat_T_263)
;~ ;~ MsgBox(0,"Compteur:XX-IV007 ","Le compteur Total d'impression est de:  "& $resultat_T_264)
;~ ;~ MsgBox(0,"Compteur:XX-IV007 ","Le compteur Total d'impression est de:  "& $resultat_T_265)
;~ ;~ MsgBox(0,"Compteur:XX-IV007 ","Le compteur Total d'impression est de:  "& $resultat_T_266)
;~ ;~ MsgBox(0,"Compteur:XX-IV007 ","Le compteur Total d'impression est de:  "& $resultat_T_267)
;~ ;~ MsgBox(0,"Compteur:XX-IV007 ","Le compteur Total d'impression est de:  "& $resultat_T_268)
OnAutoItExit()
EndIf
;******************************************************************************
;*********************    SNMP OCE 3155   **********************************
;******************************************************************************
; commande pour IMP XX_IV004
If Not Ping($dest_IP_XX_IV004, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV004"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV004", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV004", "resultat_OCE_2", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV004", "resultat_OCE_3", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV004", "resultat_OCE_4", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV004", "resultat_OCE_5", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV004", "resultat_OCE_6", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV004", "resultat_OCE_7", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV004", "resultat_OCE_8", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV004", "resultat_OCE_9", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV004, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV004", "")

;Read value at sysLocation
$SNMP_Command_OCE_2 = _SNMPBuildPacket($OID_OCE_3155_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_2)
_StartListener()
sleep (400)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_2= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV004", "resultat_OCE_2", $resultat_OCE_2)
sleep (200)

;Read value at sysLocation
$SNMP_Command_OCE_3 = _SNMPBuildPacket($OID_OCE_3155_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_3)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_3= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV004", "resultat_OCE_3", $resultat_OCE_3)

;Read value at sysLocation
$SNMP_Command_OCE_4 = _SNMPBuildPacket($OID_OCE_3155_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_4)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_4= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV004", "resultat_OCE_4", $resultat_OCE_4)

;Read value at sysLocation
$SNMP_Command_OCE_5 = _SNMPBuildPacket($OID_OCE_3155_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_5)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_5= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV004", "resultat_OCE_5", $resultat_OCE_5)

;Read value at sysLocation
$SNMP_Command_OCE_6 = _SNMPBuildPacket($OID_OCE_3155_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_6)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_6= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV004", "resultat_OCE_6", $resultat_OCE_6)

;Read value at sysLocation
$SNMP_Command_OCE_7 = _SNMPBuildPacket($OID_OCE_3155_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_7)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_7= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV004", "resultat_OCE_7", $resultat_OCE_7)

;Read value at sysLocation
$SNMP_Command_OCE_8 = _SNMPBuildPacket($OID_OCE_3155_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_8)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_8= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV004", "resultat_OCE_8", $resultat_OCE_8)

;Read value at sysLocation
$SNMP_Command_OCE_9 = _SNMPBuildPacket($OID_OCE_3155_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_9)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_9= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV004", "resultat_OCE_9", $resultat_OCE_9)

OnAutoItExit()
EndIf
;*****************************
;****************************
; commande pour IMP XX_IV005
If Not Ping($dest_IP_XX_IV005, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV004"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV005", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV005", "resultat_OCE_10", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV005", "resultat_OCE_11", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV005", "resultat_OCE_12", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV005", "resultat_OCE_13", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV005", "resultat_OCE_14", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV005", "resultat_OCE_15", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV005", "resultat_OCE_16", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV005", "resultat_OCE_17", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV005, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV005", "")

;Read value at sysLocation
$SNMP_Command_OCE_10 = _SNMPBuildPacket($OID_OCE_3155_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_10)
_StartListener()
sleep (400)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_10= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV005", "resultat_OCE_10", $resultat_OCE_10)

;Read value at sysLocation
$SNMP_Command_OCE_11 = _SNMPBuildPacket($OID_OCE_3155_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_11)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_11= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV005", "resultat_OCE_11", $resultat_OCE_11)

;Read value at sysLocation
$SNMP_Command_OCE_12 = _SNMPBuildPacket($OID_OCE_3155_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_12)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_12= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV005", "resultat_OCE_12", $resultat_OCE_12)

;Read value at sysLocation
$SNMP_Command_OCE_13 = _SNMPBuildPacket($OID_OCE_3155_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_13)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_13= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV005", "resultat_OCE_13", $resultat_OCE_13)

;Read value at sysLocation
$SNMP_Command_OCE_14 = _SNMPBuildPacket($OID_OCE_3155_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_14)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_14= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV005", "resultat_OCE_14", $resultat_OCE_14)

;Read value at sysLocation
$SNMP_Command_OCE_15 = _SNMPBuildPacket($OID_OCE_3155_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_15)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_15= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV005", "resultat_OCE_15", $resultat_OCE_15)

;Read value at sysLocation
$SNMP_Command_OCE_16 = _SNMPBuildPacket($OID_OCE_3155_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_16)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_16= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV005", "resultat_OCE_16", $resultat_OCE_16)

;Read value at sysLocation
$SNMP_Command_OCE_17 = _SNMPBuildPacket($OID_OCE_3155_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_17)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_17= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV005", "resultat_OCE_17", $resultat_OCE_17)

OnAutoItExit()
EndIf
;**********************
;**********************
; commande pour IMP XX_IV015
If Not Ping($dest_IP_XX_IV015, 500) Then;tentative de ping pouir voir si l'imprimante est présent sur le réseau !
;~ 	Msg("Hosts injoignable !")
	ConsoleWrite("IMP injoignable !" & @CRLF)
	$FileImp= FileOpen($CheminImpOff, 1)
	FileWrite($FileImp, "XX-IV015"& @CRLF)
	FileClose($FileImp)
	IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV015", "")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV015", "resultat_OCE_18", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV015", "resultat_OCE_19", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV015", "resultat_OCE_20", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV015", "resultat_OCE_21", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV015", "resultat_OCE_22", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV015", "resultat_OCE_23", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV015", "resultat_OCE_24", "no info")
	IniWrite($Cheminresultat&$nomfileResultat, "XX-IV015", "resultat_OCE_25", "no info")
Else
UDPStartUp()
$Socket = UDPopen($dest_IP_XX_IV015, $Port)
IniWriteSection($Cheminresultat&$nomfileResultat, "XX-IV015", "")

;Read value at sysLocation
$SNMP_Command_OCE_18 = _SNMPBuildPacket($OID_OCE_3155_2, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_18)
_StartListener()
sleep (400)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_18= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV015", "resultat_OCE_18", $resultat_OCE_18)
sleep (200)

;Read value at sysLocation
$SNMP_Command_OCE_19 = _SNMPBuildPacket($OID_OCE_3155_3, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_19)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_19= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV015", "resultat_OCE_19", $resultat_OCE_19)
sleep (200)

;Read value at sysLocation
$SNMP_Command_OCE_20 = _SNMPBuildPacket($OID_OCE_3155_4, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_20)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_20= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV015", "resultat_OCE_20", $resultat_OCE_20)
sleep (200)

;Read value at sysLocation
$SNMP_Command_OCE_21 = _SNMPBuildPacket($OID_OCE_3155_5, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_21)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_21= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV015", "resultat_OCE_21", $resultat_OCE_21)
sleep (200)

;Read value at sysLocation
$SNMP_Command_OCE_22 = _SNMPBuildPacket($OID_OCE_3155_6, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_22)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_22= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV015", "resultat_OCE_22", $resultat_OCE_22)
sleep (200)

;Read value at sysLocation
$SNMP_Command_OCE_23 = _SNMPBuildPacket($OID_OCE_3155_7, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_23)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_23= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV015", "resultat_OCE_23", $resultat_OCE_23)
sleep (200)

;Read value at sysLocation
$SNMP_Command_OCE_24 = _SNMPBuildPacket($OID_OCE_3155_8, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_24)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_24= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV015", "resultat_OCE_24", $resultat_OCE_24)
sleep (200)

;Read value at sysLocation
$SNMP_Command_OCE_25 = _SNMPBuildPacket($OID_OCE_3155_9, $SNMP_Community,$SNMP_Version, $SNMP_ReqID, "A0")
UDPSend($Socket, $SNMP_Command_OCE_25)
_StartListener()
sleep (200)
;~ _ArrayDisplay($SNMP_Util, "GetRequest 1x OID")
$resultat_OCE_25= $SNMP_Util[1][1]
IniWrite($Cheminresultat&$nomfileResultat, "XX-IV015", "resultat_OCE_25", $resultat_OCE_25)
sleep (200)

OnAutoItExit()
EndIf
;************************
;************************