AutoIt Français

Code : Tout sélectionner

{"objectInfo":{"indexPath":"","keyPath":"","name":"DeviceInfo","key":"DeviceInfo","attributes":{},"state":"ready","parameterCount":24,"childCount":1,"instanceCount":0},"functions":[{"name":"get","type":"variant","attributes":{},"arguments":[]},{"name":"update","type":"bool","attributes":{},"arguments":[]},{"name":"export","type":"bool","attributes":{},"arguments":[{"name":"fileName","type":"string","attributes":{}}]}],"parameters":[{"name":"Manufacturer","type":"string","attributes":{"read_only": true},"state":"ready","value":"Sagemcom","validator":{"max":"64"}},{"name":"ManufacturerOUI","type":"string","attributes":{"read_only": true},"state":"ready","value":"2C3996","validator":{"max":"6"}},{"name":"ModelName","type":"string","attributes":{"read_only": true},"state":"ready","value":"SagemcomFast3965_LB2.8","validator":{"max":"64"}},{"name":"Description","type":"string","attributes":{"read_only": true},"state":"ready","value":"SagemcomFast3965_LB2.8 Sagemcom fr","validator":{"max":"256"}},{"name":"ProductClass","type":"string","attributes":{"read_only": true},"state":"ready","value":"Livebox 3","validator":{"max":"64"}},{"name":"SerialNumber","type":"string","attributes":{"read_only": true},"state":"ready","value":"NQ1315504557065","validator":{"max":"64"}},{"name":"HardwareVersion","type":"string","attributes":{"read_only": true},"state":"ready","value":"SG_LB3_1.2.1","validator":{"max":"64"}},{"name":"SoftwareVersion","type":"string","attributes":{"read_only": true},"state":"ready","value":"SG30_sip-fr-5.12.13.1","validator":{"max":"64"}},{"name":"RescueVersion","type":"string","attributes":{"read_only": true},"state":"ready","value":"SG30_sip-fr-5.7.16.1","validator":{"max":"64"}},{"name":"ModemFirmwareVersion","type":"string","attributes":{"read_only": true},"state":"ready","value":"","validator":{"max":"64"}},{"name":"EnabledOptions","type":"string","attributes":{"read_only": true},"state":"ready","value":"","validator":{"max":"1024"}},{"name":"AdditionalHardwareVersion","type":"string","attributes":{"read_only": true},"state":"ready","value":"","validator":{"max":"64"}},{"name":"AdditionalSoftwareVersion","type":"string","attributes":{"read_only": true},"state":"ready","value":"g5-sip-fr","validator":{"max":"64"}},{"name":"SpecVersion","type":"string","attributes":{"read_only": true},"state":"ready","value":"1.1","validator":{"max":"16"}},{"name":"ProvisioningCode","type":"string","attributes":{"persistent": true},"state":"ready","value":"VSIP.0885.8906.WCOM.1893.3334","validator":{"max":"64"}},{"name":"UpTime","type":"uint32","attributes":{"read_only": true},"state":"ready","value":603951},{"name":"FirstUseDate","type":"date_time","attributes":{"read_only": true},"state":"ready","value":"0001-01-01T00:00:00Z"},{"name":"DeviceLog","type":"string","attributes":{"read_only": true},"state":"ready","value":"","validator":{"max":"32768"}},{"name":"VendorConfigFileNumberOfEntries","type":"uint32","attributes":{"read_only": true},"state":"ready","value":1},{"name":"ManufacturerURL","type":"string","attributes":{"read_only": true},"state":"ready","value":"http://www.sagemcom.com/"},{"name":"Country","type":"string","attributes":{"read_only": true},"state":"ready","value":"fr"},{"name":"ExternalIPAddress","type":"string","attributes":{"read_only": true},"state":"ready","value":"109.210.171.110"},{"name":"DeviceStatus","type":"string","attributes":{},"state":"ready","value":"Up","validator":["Initializing","Up","Synchronized","Error","Disabled"]},{"name":"NumberOfReboots","type":"uint32","attributes":{"read_only": true,"persistent": true},"state":"ready","value":2}],"children":[{"objectInfo":{"indexPath":"DeviceInfo","keyPath":"DeviceInfo","name":"VendorConfigFile","key":"VendorConfigFile","attributes":{"template":true,"persistent":true},"state":"ready","parameterCount":4,"childCount":0,"instanceCount":1},"templateInfo":{ "maxInstances":4294967295 },"functions":[],"parameters":[{"name":"Name","type":"string","attributes":{"read_only": true,"persistent": true},"state":"ready","value":"","validator":{"max":"64"}},{"name":"Version","type":"string","attributes":{"read_only": true,"persistent": true},"state":"ready","value":"","validator":{"max":"16"}},{"name":"Date","type":"date_time","attributes":{"read_only": true,"persistent": true},"state":"ready","value":"0001-01-01T00:00:00Z"},{"name":"Description","type":"string","attributes":{"read_only": true,"persistent": true},"state":"ready","value":"","validator":{"max":"256"}}],"children":[],"instances":[{"objectInfo":{"indexPath":"DeviceInfo.VendorConfigFile","keyPath":"DeviceInfo.VendorConfigFile","name":"1","key":"digitmap","attributes":{"instance":true,"persistent":true},"state":"ready","parameterCount":4,"childCount":0,"instanceCount":0},"functions":[],"parameters":[{"name":"Name","type":"string","attributes":{"read_only": true,"persistent": true},"state":"ready","value":"digitmap","validator":{"max":"64"}},{"name":"Version","type":"string","attributes":{"read_only": true,"persistent": true},"state":"ready","value":"","validator":{"max":"16"}},{"name":"Date","type":"date_time","attributes":{"read_only": true,"persistent": true},"state":"ready","value":"0001-01-01T00:00:00Z"},{"name":"Description","type":"string","attributes":{"read_only": true,"persistent": true},"state":"ready","value":"","validator":{"max":"256"}}],"children":[],"instances":[]}]}],"instances":[]}

Code : Tout sélectionner

#include "WinHttp.au3"  ; https://www.autoitscript.com/forum/topic/84133-winhttp-functions/
#Include <Array.au3>
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>

$sUsername = "admin"
$sPassword = "XXXXXX"
$sAddress = "192.168.1.1"


$PARAMSgetDSLStats = '{"parameters":{}}'
$PARAMSgetMIBs = '{"parameters":{"mibs":"dsl","flag":"","traverse":"down"}}'
$PARAMSgetWANstatus = '{"parameters":{}}'


; Authentification Livebox
$hOpen = _WinHttpOpen()
$hConnect = _WinHttpConnect($hOpen, $sAddress)
$hRequest = _WinHttpOpenRequest($hConnect, "POST", "authenticate?username=" & $sUsername & "&password=" & $sPassword )

_WinHttpSendRequest($hRequest, "Content-Type: application/json")
_WinHttpReceiveResponse($hRequest)

$sData = _WinHttpReadData($hRequest)
$sContextID = StringRegExp($sData, 'contextID":"([^"]+)"|()$', 1)[0]

; Recuperation des donnees qualitatives
$hRequest = _WinHttpOpenRequest($hConnect, "POST", "/sysbus/NeMo/Intf/dsl0:getDSLStats")
_WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $PARAMSgetDSLStats)
_WinHttpReceiveResponse($hRequest)
$_sDSLStats = _WinHttpReadData($hRequest)
$_aDSLStats = StringRegExp($_sDSLStats, '"([^"]+)":(?|"(.*?)"|(\d+))[,}]', 3)
$sDSLStats = _FormatData($_aDSLStats)

; Recuperation des donnees techniques
$hRequest = _WinHttpOpenRequest($hConnect, "POST", "/sysbus/NeMo/Intf/data:getMIBs")
_WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $PARAMSgetMIBs)
_WinHttpReceiveResponse($hRequest)
$_sMIBs = _WinHttpReadData($hRequest)
$_aMIBs = StringRegExp($_sMIBs, '"([^"]+)":(?|"(.*?)"|(\d+))[,}]', 3)
$sMIBs = _FormatData($_aMIBs)

; Recuperation des donnees WAN
$hRequest = _WinHttpOpenRequest($hConnect, "POST", "/sysbus/NMC:getWANStatus")
_WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $PARAMSgetWANstatus)
_WinHttpReceiveResponse($hRequest)
$_sWANStatus = _WinHttpReadData($hRequest)
$_aWANStatus = StringRegExp($_sWANStatus, '"([^"]+)":(?|"(.*?)"|(\d+))[,}]', 3)
$sWANStatus = _FormatData($_aWANStatus)

; Recuperation des donnees DeviceInfo
$hRequest = _WinHttpOpenRequest($hConnect, "GET", "/sysbus/DeviceInfo?_restDepth=-1")
_WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID)
_WinHttpReceiveResponse($hRequest)
$_sWDeviceInfo = _WinHttpReadData($hRequest)
ClipPut( $_sWDeviceInfo)
$_aWDeviceInfo = StringRegExp($_sWDeviceInfo, '{"name":"([^"]+)",.+?"value":(?|"(.*?)"|(\d+))', 3)
$sWDeviceInfo = _FormatData($_aWDeviceInfo)


; Logout
$hRequest = _WinHttpOpenRequest($hConnect, "POST", "/logout" )
_WinHttpSendRequest($hRequest)



$Form1 = GUICreate("LiveBox info", 420, 500)

$hTab = GUICtrlCreateTab(10, 10, 400, 480)
; Create tabitems
GUICtrlCreateTabItem("DSLstats")
    $Edit1 = GUICtrlCreateEdit("", 32, 40, 360, 377)
    GUICtrlSetData(-1, $sDSLStats)
    GUICtrlSetFont(-1, 10, 400, 0, "Courier New")
GUICtrlCreateTabItem("MIBS")
    $Edit2 = GUICtrlCreateEdit("", 32, 40, 360, 377)
    GUICtrlSetData(-1, $sMIBs)
    GUICtrlSetFont(-1, 10, 400, 0, "Courier New")

GUICtrlCreateTabItem("WANstatus")
    $Edit3 = GUICtrlCreateEdit("", 32, 40, 360, 377)
    GUICtrlSetData(-1, $sWANStatus)
    GUICtrlSetFont(-1, 10, 400, 0, "Courier New")
    
GUICtrlCreateTabItem("Deviceinfo")
    $Edit4 = GUICtrlCreateEdit("", 32, 40, 360, 377)
    GUICtrlSetData(-1, $sWDeviceInfo)
    GUICtrlSetFont(-1, 10, 400, 0, "Courier New")   

; Close Tab definiton
GUICtrlCreateTabItem("")


GUISetState()


While 1
    $nMsg = GUIGetMsg()
    If $nMsg = $GUI_EVENT_CLOSE Then Exit
WEnd




Func _FormatData($aData)
    Local $iMaxLen = 0
    Local $sData
    ; Local $aRet[ UBound($aData) / 2]
    For $i = 0 To UBound($aData) - 1 Step 2
        If StringLen($aData[$i]) > $iMaxLen Then $iMaxLen = StringLen($aData[$i])
    Next
    
    For $i = 0 To UBound($aData) - 1 Step 2
        If $aData[$i + 1] = "" Then ContinueLoop
        If StringRegExp($aData[$i], "Noise|Attenuation") Then
            $aData[$i + 1] &= " dB"
        ElseIf StringRegExp($aData[$i], "Rate") Then
            $aData[$i + 1] &= " Kb/s"
        EndIf
        $sData &= StringFormat("%-" & $iMaxLen & "s : ", $aData[$i]) & $aData[$i + 1] & @CRLF
    Next
    
    Return $sData
EndFunc
 

Code : Tout sélectionner

#include "WinHttp.au3"  ; https://www.autoitscript.com/forum/topi ... functions/
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <ScreenCapture.au3>

TCPStartup()
Global $sLiveboxAddress = TCPNameToIP("livebox")
If $sLiveboxAddress = "" Then $sLiveboxAddress = "192.168.1.1"

Global $sLiveboxUsername = "admin"
Global $sLiveboxPassword = "xxxxxxxx"

Global $sFilePath = @scriptDir & "\config.ini"
Global $PARAMSgetDSLStats = '{"parameters":{}}'
Global $PARAMSgetMIBs = '{"parameters":{"mibs":"dsl","flag":"","traverse":"down"}}'
Global $PARAMSgetWANstatus = '{"parameters":{}}'
Global $PARAMSreconnect1 = '{"parameters":{"name":"Enable","value":0,"flag":"ppp","traverse":"down"}}'
Global $PARAMSreconnect2 = '{"parameters":{"name":"Enable","value":1,"flag":"ppp","traverse":"down"}}'
Global $PARAMSreboot = '{"parameters":{}}'

Global $aReconnect[2][5] = [ ['Livebox 3', _
                                 '{"parameters":{"name":"Enable","value":0,"flag":"ppp","traverse":"down"}}', _
                                 '{"parameters":{"name":"Enable","value":1,"flag":"ppp","traverse":"down"}}', _
                                 '/sysbus/NeMo/Intf/data:setFirstParameter', _
                                 '/sysbus/NeMo/Intf/data:setFirstParameter' ], _
                             ['Livebox FTTH v2', _
                                 '{"parameters":{"WanMode":"DSL_PPP"}}', _
                                 '{"parameters":{}}', _
                                 '/sysbus/NMC:setWanMode', _
                                 '/sysbus/NMC:getWANStatus' ] ]

Global $ProductClass
Global $sDSLStats, $sMIBs, $sWANStatus, $sWDeviceInfo

_LoadConfig()


$hGui = GUICreate("LiveBox info Vx.x.x", 420, 500)

$hTab = GUICtrlCreateTab(10, 10, 400, 480)
GUICtrlCreateTabItem("DSLstats")
    $Edit1 = GUICtrlCreateEdit("", 32, 40, 360, 377)
    GUICtrlSetFont(-1, 10, 400, 0, "Courier New")
GUICtrlCreateTabItem("MIBS")
    $Edit2 = GUICtrlCreateEdit("", 32, 40, 360, 377)
    GUICtrlSetFont(-1, 10, 400, 0, "Courier New")
GUICtrlCreateTabItem("WANstatus")
    $Edit3 = GUICtrlCreateEdit("", 32, 40, 360, 377)
    GUICtrlSetFont(-1, 10, 400, 0, "Courier New")
GUICtrlCreateTabItem("Deviceinfo")
    $Edit4 = GUICtrlCreateEdit("", 32, 40, 360, 377)
    GUICtrlSetFont(-1, 10, 400, 0, "Courier New")   
GUICtrlCreateTabItem("")

$idScreenShot = GUICtrlCreateButton("Screenshot", 32, 424, 75, 25)
$id_Clipboard = GUICtrlCreateButton("Copier dans presse papier", 32, 456, 147, 25)
$id_Resync = GUICtrlCreateButton("Changer IP", 300, 424, 85, 25)
$id_Reboot = GUICtrlCreateButton("Reboot", 300, 456, 85, 25)
$id_Refresh = GUICtrlCreateButton("Refresh", 208, 424, 75, 25)


_GetLiveboxInfos()

GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $id_Resync
            _Reconnect()
        Case $id_Reboot
            _Reboot()          
        Case $id_Refresh
            _GetLiveboxInfos()
        Case $id_Clipboard
        $sOutsWANStatus = StringRegExpReplace($sWANStatus, "(?m)^IPAddress.+\.\K\d+\.\d+$", "XXX.XXX")
        $sOutWDeviceInfo = StringRegExpReplace($sWDeviceInfo, '(?m)^SerialNumber\h+:\h+.+?\K.{8}$', "XXXXXXXX")
        $sOutWDeviceInfo = StringRegExpReplace($sOutWDeviceInfo, "(?m)^ExternalIPAddress.+\.\K\d+\.\d+$", "XXX.XXX")
        
        $sOutput = "[-quote]" & _
                   @CRLF & $sDSLStats & "[---]" & _
                   @CRLF & $sMIBs & "[---]" & _
                   @CRLF & $sOutsWANStatus & "[---]" & _
                   @CRLF & $sOutWDeviceInfo & "[/quote]"
        ClipPut($sOutput)
        MsgBox(0,"","Le texte a été copié en mémoire, vous pouver coller le résultat sur le forum." & @CRLF & "Les informations confidentielles ont été masquées.", 3, $hGui)
        Case $idScreenShot
            _ScreenCapture_CaptureWnd(@scriptDir & "/" & @YEAR & @MON & @MDAY & "_" & @HOUR & @MIN & @SEC & "_infos_livebox.jpg", $hGui,0,0,-1,-1,False)
    EndSwitch
WEnd




Func _LoadConfig()
    If NOT FileExists($sFilePath) Then
        IniWrite($sFilePath, "Setting", "LiveboxIP", $sLiveboxAddress)
        IniWrite($sFilePath, "Setting", "Password", "xxxxxxxx")
        Return
    Else
        $sLiveboxPassword = IniRead($sFilePath, "Setting", "Password", "xxxxxxxx")
        $sLiveboxAddress = IniRead($sFilePath, "Setting", "LiveboxIP", $sLiveboxAddress)
    EndIf
   
    If $sLiveboxPassword = "xxxxxxxx" Then
        MsgBox(16,"Erreur","Veuillez indiquer votre mot de passe Livebox dans le fichier CONFIG.INI")
        Exit
    EndIf
EndFunc

Func _GetLiveboxInfos()
    ; Login
    $hOpen = _WinHttpOpen()
    $hConnect = _WinHttpConnect($hOpen, $sLiveboxAddress)
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "authenticate?username=" & $sLiveboxUsername & "&password=" & $sLiveboxPassword )
    _WinHttpSendRequest($hRequest, "Content-Type: application/json")
    _WinHttpReceiveResponse($hRequest)
    $sData = _WinHttpReadData($hRequest)
    $sContextID = StringRegExp($sData, 'contextID":"([^"]+)"|()$', 1)[0]

    ; Recuperation des donnees qualitatives
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "/sysbus/NeMo/Intf/dsl0:getDSLStats")
    _WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $PARAMSgetDSLStats)
    _WinHttpReceiveResponse($hRequest)
    $_sDSLStats = _WinHttpReadData($hRequest)
    $_aDSLStats = StringRegExp($_sDSLStats, '"([^"]+)":(?|"(.*?)"|(\d+))[,}]', 3)
    $sDSLStats = _FormatData($_aDSLStats)

    ; Recuperation des donnees techniques
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "/sysbus/NeMo/Intf/data:getMIBs")
    _WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $PARAMSgetMIBs)
    _WinHttpReceiveResponse($hRequest)
    $_sMIBs = _WinHttpReadData($hRequest)
    $_aMIBs = StringRegExp($_sMIBs, '"([^"]+)":(?|"(.*?)"|(\d+))[,}]', 3)
    $sMIBs = _FormatData($_aMIBs)

    ; Recuperation des donnees WAN
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "/sysbus/NMC:getWANStatus")
    _WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $PARAMSgetWANstatus)
    _WinHttpReceiveResponse($hRequest)
    $_sWANStatus = _WinHttpReadData($hRequest)
    $_aWANStatus = StringRegExp($_sWANStatus, '"([^"]+)":(?|"(.*?)"|(\d+))[,}]', 3)
    $sWANStatus = _FormatData($_aWANStatus)

    ; Recuperation des donnees DeviceInfo
    $hRequest = _WinHttpOpenRequest($hConnect, "GET", "/sysbus/DeviceInfo?_restDepth=-1")
    _WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID)
    _WinHttpReceiveResponse($hRequest)
    $_sWDeviceInfo = _WinHttpReadData($hRequest)
    $_aWDeviceInfo = StringRegExp($_sWDeviceInfo, '{"name":"([^"]+)",.+?"value":(?|"(.*?)"|(\d+))', 3)
    $sWDeviceInfo = _FormatData($_aWDeviceInfo)
   
    $ProductClass = StringRegExp($_sWDeviceInfo, '{"name":"ProductClass",.+?"value":"([^"]+)"|()$', 1)[0]
   
    ; Logout
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "/logout" )
    _WinHttpSendRequest($hRequest)
   
    GUICtrlSetData($edit1, $sDSLStats)
    GUICtrlSetData($edit2, $sMIBs)
    GUICtrlSetData($edit3, $sWANStatus)
    GUICtrlSetData($edit4, $sWDeviceInfo)
EndFunc

Func _Reconnect()
    $iLbModelIndex = -1
    For $i = 0 To UBound($aReconnect) - 1
        If $ProductClass = $aReconnect[$i][0] Then
        EndIf
    Next
   
    If $iLbModelIndex = -1 Then
        MsgBox(16, "Erreur", "Le modèle de Livebox (" & $ProductClass & ") n'est pas pris en charge")
        Return
    EndIf
   
   
    ; Login
    $hOpen = _WinHttpOpen()
    $hConnect = _WinHttpConnect($hOpen, $sLiveboxAddress)
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "authenticate?username=" & $sLiveboxUsername & "&password=" & $sLiveboxPassword )
    _WinHttpSendRequest($hRequest, "Content-Type: application/json")
    _WinHttpReceiveResponse($hRequest)
    $sData = _WinHttpReadData($hRequest)
    $sContextID = StringRegExp($sData, 'contextID":"([^"]+)"|()$', 1)[0]
   
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", $aReconnect[$iLbModelIndex][2])
    _WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $aReconnect[$iLbModelIndex][0])
    _WinHttpReceiveResponse($hRequest)
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", $aReconnect[$iLbModelIndex][3])
    _WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $aReconnect[$iLbModelIndex][1])
    ; _WinHttpReceiveResponse($hRequest)
   
    ; Logout
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "/logout" )
    _WinHttpSendRequest($hRequest) 
EndFunc

Func _Reboot()
    ; Login
    $hOpen = _WinHttpOpen()
    $hConnect = _WinHttpConnect($hOpen, $sLiveboxAddress)
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "authenticate?username=" & $sLiveboxUsername & "&password=" & $sLiveboxPassword )
    _WinHttpSendRequest($hRequest, "Content-Type: application/json")
    _WinHttpReceiveResponse($hRequest)
    $sData = _WinHttpReadData($hRequest)
    $sContextID = StringRegExp($sData, 'contextID":"([^"]+)"|()$', 1)[0]
   
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "/sysbus/NMC:reboot")
    _WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $PARAMSreboot)
EndFunc





Func _FormatData($aData)
    Local $iMaxLen = 0
    Local $sData

    For $i = 0 To UBound($aData) - 1 Step 2
        If StringLen($aData[$i]) > $iMaxLen Then $iMaxLen = StringLen($aData[$i])
    Next
   
    For $i = 0 To UBound($aData) - 1 Step 2
        If $aData[$i + 1] = "" Then ContinueLoop
        If StringRegExp($aData[$i], "Noise|Attenuation") Then
            $aData[$i + 1] = $aData[$i + 1] / 10 & " dB"
        ElseIf StringRegExp($aData[$i], "Rate") Then
            $aData[$i + 1] &= " Kb/s"
        EndIf
        $sData &= StringFormat("%-" & $iMaxLen & "s : ", $aData[$i]) & $aData[$i + 1] & @CRLF
    Next
   
    Return $sData
EndFunc
 

Code : Tout sélectionner

#include "WinHttp.au3"  ; https://www.autoitscript.com/forum/topi ... functions/
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <ScreenCapture.au3>

#include <Array.au3>

TCPStartup()
Global $sLiveboxAddress = TCPNameToIP("livebox")
If $sLiveboxAddress = "" Then $sLiveboxAddress = "192.168.1.1"

Global $sLiveboxUsername = "admin"
Global $sLiveboxPassword = "xxxxxxxx"

Global $sFilePath = @scriptDir & "\config.ini"
Global $PARAMSgetDSLStats = '{"parameters":{}}'
Global $PARAMSgetMIBs = '{"parameters":{"mibs":"dsl","flag":"","traverse":"down"}}'
Global $PARAMSgetWANstatus = '{"parameters":{}}'
Global $PARAMSgetPhone = '{"parameters":{}}'
Global $PARAMSgetDevices = '{"parameters":{}}'
Global $PARAMSreconnect1 = '{"parameters":{"name":"Enable","value":0,"flag":"ppp","traverse":"down"}}'
Global $PARAMSreconnect2 = '{"parameters":{"name":"Enable","value":1,"flag":"ppp","traverse":"down"}}'
Global $PARAMSreboot = '{"parameters":{}}'



Global $aReconnect[2][5] = [ ['Livebox 3', _
                                 '{"parameters":{"name":"Enable","value":0,"flag":"ppp","traverse":"down"}}', _
                                 '{"parameters":{"name":"Enable","value":1,"flag":"ppp","traverse":"down"}}', _
                                 '/sysbus/NeMo/Intf/data:setFirstParameter', _
                                 '/sysbus/NeMo/Intf/data:setFirstParameter' ], _
                             ['Livebox FTTH v2', _
                                 '{"parameters":{"WanMode":"DSL_PPP"}}', _
                                 '{"parameters":{}}', _
                                 '/sysbus/NMC:setWanMode', _
                                 '/sysbus/NMC:getWANStatus' ] ]

Global $ProductClass
Global $sDSLStats, $sMIBs, $sWANStatus, $sWDeviceInfo, $sPhoneInfos, $sDevicesInfos

_LoadConfig()


$hGui = GUICreate("LiveBox info Vx.x.x", 420, 500)

$hTab = GUICtrlCreateTab(10, 10, 500, 480)
GUICtrlCreateTabItem("DSLstats")
    $Edit1 = GUICtrlCreateEdit("", 32, 40, 460, 377)
    GUICtrlSetFont(-1, 10, 400, 0, "Courier New")
GUICtrlCreateTabItem("MIBS")
    $Edit2 = GUICtrlCreateEdit("", 32, 40, 460, 377)
    GUICtrlSetFont(-1, 10, 400, 0, "Courier New")
GUICtrlCreateTabItem("WANstatus")
    $Edit3 = GUICtrlCreateEdit("", 32, 40, 460, 377)
    GUICtrlSetFont(-1, 10, 400, 0, "Courier New")
GUICtrlCreateTabItem("Deviceinfo")
    $Edit4 = GUICtrlCreateEdit("", 32, 40, 460, 377)
    GUICtrlSetFont(-1, 10, 400, 0, "Courier New")
GUICtrlCreateTabItem("Telephone")
    $Edit5 = GUICtrlCreateEdit("", 32, 40, 460, 377)
    GUICtrlSetFont(-1, 10, 400, 0, "Courier New")  
GUICtrlCreateTabItem("Peripheriques")
    $Edit6 = GUICtrlCreateEdit("", 32, 40, 460, 377)
    GUICtrlSetFont(-1, 10, 400, 0, "Courier New")   
GUICtrlCreateTabItem("")

$idScreenShot = GUICtrlCreateButton("Screenshot", 32, 424, 75, 25)
$id_Clipboard = GUICtrlCreateButton("Copier dans presse papier", 32, 456, 147, 25)
$id_Resync = GUICtrlCreateButton("Changer IP", 300, 424, 85, 25)
$id_Reboot = GUICtrlCreateButton("Reboot", 300, 456, 85, 25)
$id_Refresh = GUICtrlCreateButton("Refresh", 208, 424, 75, 25)


GUISetState()

_GetLiveboxInfos()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $id_Resync
            _Reconnect()
        Case $id_Reboot
            _Reboot()          
        Case $id_Refresh
            _GetLiveboxInfos()
        Case $id_Clipboard
            $sOutsWANStatus = StringRegExpReplace($sWANStatus, "(?m)^IPAddress.+\.\K\d+\.\d+$", "XXX.XXX")
            $sOutWDeviceInfo = StringRegExpReplace($sWDeviceInfo, '(?m)^SerialNumber\h+:\h+.+?\K.{8}$', "XXXXXXXX")
            $sOutWDeviceInfo = StringRegExpReplace($sOutWDeviceInfo, "(?m)^ExternalIPAddress.+\.\K\d+\.\d+$", "XXX.XXX")
        
            $sOutput = "[-quote]" & _
                       @CRLF & $sDSLStats & "[---]" & _
                       @CRLF & $sMIBs & "[---]" & _
                       @CRLF & $sOutsWANStatus & "[---]" & _
                       @CRLF & $sOutWDeviceInfo & "[/quote]"
            ClipPut($sOutput)
            MsgBox(0,"","Le texte a été copié en mémoire, vous pouver coller le résultat sur le forum." & @CRLF & "Les informations confidentielles ont été masquées.", 3, $hGui)
        Case $idScreenShot
            _ScreenCapture_CaptureWnd(@scriptDir & "/" & @YEAR & @MON & @MDAY & "_" & @HOUR & @MIN & @SEC & "_infos_livebox.jpg", $hGui,0,0,-1,-1,False)
    EndSwitch
WEnd




Func _LoadConfig()
    If NOT FileExists($sFilePath) Then
        IniWrite($sFilePath, "Setting", "LiveboxIP", $sLiveboxAddress)
        IniWrite($sFilePath, "Setting", "Password", "xxxxxxxx")
        Return
    Else
        $sLiveboxPassword = IniRead($sFilePath, "Setting", "Password", "xxxxxxxx")
        $sLiveboxAddress = IniRead($sFilePath, "Setting", "LiveboxIP", $sLiveboxAddress)
    EndIf
   
    If $sLiveboxPassword = "xxxxxxxx" Then
        MsgBox(16,"Erreur","Veuillez indiquer votre mot de passe Livebox dans le fichier CONFIG.INI")
        Exit
    EndIf
EndFunc

Func _GetLiveboxInfos()
    ; Login
    $hOpen = _WinHttpOpen()
    $hConnect = _WinHttpConnect($hOpen, $sLiveboxAddress)
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "authenticate?username=" & $sLiveboxUsername & "&password=" & $sLiveboxPassword )
    _WinHttpSendRequest($hRequest, "Content-Type: application/json")
    _WinHttpReceiveResponse($hRequest)
    $sData = _WinHttpReadData($hRequest)
    $sContextID = StringRegExp($sData, 'contextID":"([^"]+)"|()$', 1)[0]

    ; Recuperation des donnees qualitatives
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "/sysbus/NeMo/Intf/dsl0:getDSLStats")
    _WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $PARAMSgetDSLStats)
    _WinHttpReceiveResponse($hRequest)
    $_sDSLStats = _WinHttpReadData($hRequest)
    $_aDSLStats = StringRegExp($_sDSLStats, '"([^"]+)":(?|"(.*?)"|(\d+))[,}]', 3)
    $sDSLStats = _FormatData($_aDSLStats)

    ; Recuperation des donnees techniques
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "/sysbus/NeMo/Intf/data:getMIBs")
    _WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $PARAMSgetMIBs)
    _WinHttpReceiveResponse($hRequest)
    $_sMIBs = _WinHttpReadData($hRequest)
    $_aMIBs = StringRegExp($_sMIBs, '"([^"]+)":(?|"(.*?)"|(\d+))[,}]', 3)
    $sMIBs = _FormatData($_aMIBs)

    ; Recuperation des donnees WAN
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "/sysbus/NMC:getWANStatus")
    _WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $PARAMSgetWANstatus)
    _WinHttpReceiveResponse($hRequest)
    $_sWANStatus = _WinHttpReadData($hRequest)
    $_aWANStatus = StringRegExp($_sWANStatus, '"([^"]+)":(?|"(.*?)"|(\d+))[,}]', 3)
    $sWANStatus = _FormatData($_aWANStatus)

    ; Recuperation des donnees DeviceInfo
    $hRequest = _WinHttpOpenRequest($hConnect, "GET", "/sysbus/DeviceInfo?_restDepth=-1")
    _WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID)
    _WinHttpReceiveResponse($hRequest)
    $_sWDeviceInfo = _WinHttpReadData($hRequest)
    $_aWDeviceInfo = StringRegExp($_sWDeviceInfo, '{"name":"([^"]+)",.+?"value":(?|"(.*?)"|(\d+))', 3)
    $sWDeviceInfo = _FormatData($_aWDeviceInfo)
   
    $ProductClass = StringRegExp($_sWDeviceInfo, '{"name":"ProductClass",.+?"value":"([^"]+)"|()$', 1)[0]
   
    ; Recuperation des donnees Telephone
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "/sysbus/VoiceService/VoiceApplication:listTrunks")
    _WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $PARAMSgetPhone)
    _WinHttpReceiveResponse($hRequest)
    $_sPhoneInfos = _WinHttpReadData($hRequest)
    ClipPut($_sPhoneInfos)
    ; Utilisation d'une seule regexp impossible, voir parser JSON, ou plusieurs regex
    $_aPhoneInfos = StringRegExp($_sPhoneInfos, '"([^"]+)":(?|"(.*?)"|(\d+))[,}]', 3)
    $sPhoneInfos = _FormatData($_aPhoneInfos)
   
   
    ; Recuperation des donnees Devices
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "/sysbus/Hosts:getDevices")
    _WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $PARAMSgetDevices)
    _WinHttpReceiveResponse($hRequest)
    $_sDevicesInfos = _WinHttpReadData($hRequest, Default , 65536) ; <=== 65536 car il y a énormément d'infos
    $_aDevicesInfosRaw = StringRegExp($_sDevicesInfos, '(\{"physAddress":.+?),"addresses"', 3)   ; à faire, mais y'a du boulot
    For $i = 0 To UBound($_aDevicesInfosRaw) - 1
        $_aDevicesInfos = StringRegExp($_aDevicesInfosRaw[$i], '"([^"]+)":(?|"(.*?)"|(\d+))[,}]', 3)
        $_sDevicesInfos = _FormatData($_aDevicesInfos)
        
        $sDevicesInfos &= $_sDevicesInfos & @CRLF
    Next
    $sDevicesInfos = StringRegExpReplace($sDevicesInfos, "\R+$", "")

    
    ; Logout
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "/logout" )
    _WinHttpSendRequest($hRequest)
   
    GUICtrlSetData($edit1, $sDSLStats)
    GUICtrlSetData($edit2, $sMIBs)
    GUICtrlSetData($edit3, $sWANStatus)
    GUICtrlSetData($edit4, $sWDeviceInfo)
    GUICtrlSetData($edit5, $sPhoneInfos)
    GUICtrlSetData($edit6, $sDevicesInfos)
EndFunc

Func _Reconnect()
    $iLbModelIndex = -1
    For $i = 0 To UBound($aReconnect) - 1
        If $ProductClass = $aReconnect[$i][0] Then
        EndIf
    Next
   
    If $iLbModelIndex = -1 Then
        MsgBox(16, "Erreur", "Le modèle de Livebox (" & $ProductClass & ") n'est pas pris en charge")
        Return
    EndIf
   
   
    ; Login
    $hOpen = _WinHttpOpen()
    $hConnect = _WinHttpConnect($hOpen, $sLiveboxAddress)
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "authenticate?username=" & $sLiveboxUsername & "&password=" & $sLiveboxPassword )
    _WinHttpSendRequest($hRequest, "Content-Type: application/json")
    _WinHttpReceiveResponse($hRequest)
    $sData = _WinHttpReadData($hRequest)
    $sContextID = StringRegExp($sData, 'contextID":"([^"]+)"|()$', 1)[0]
   
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", $aReconnect[$iLbModelIndex][2])
    _WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $aReconnect[$iLbModelIndex][0])
    _WinHttpReceiveResponse($hRequest)
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", $aReconnect[$iLbModelIndex][3])
    _WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $aReconnect[$iLbModelIndex][1])
    ; _WinHttpReceiveResponse($hRequest)
   
    ; Logout
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "/logout" )
    _WinHttpSendRequest($hRequest) 
EndFunc

Func _Reboot()
    ; Login
    $hOpen = _WinHttpOpen()
    $hConnect = _WinHttpConnect($hOpen, $sLiveboxAddress)
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "authenticate?username=" & $sLiveboxUsername & "&password=" & $sLiveboxPassword )
    _WinHttpSendRequest($hRequest, "Content-Type: application/json")
    _WinHttpReceiveResponse($hRequest)
    $sData = _WinHttpReadData($hRequest)
    $sContextID = StringRegExp($sData, 'contextID":"([^"]+)"|()$', 1)[0]
   
    $hRequest = _WinHttpOpenRequest($hConnect, "POST", "/sysbus/NMC:reboot")
    _WinHttpSendRequest($hRequest, 'X-Context: ' & $sContextID , $PARAMSreboot)
EndFunc





Func _FormatData($aData)
    Local $iMaxLen = 0
    Local $sData

    For $i = 0 To UBound($aData) - 1 Step 2
        If StringLen($aData[$i]) > $iMaxLen Then $iMaxLen = StringLen($aData[$i])
    Next
   
    For $i = 0 To UBound($aData) - 1 Step 2
        If $aData[$i + 1] = "" Then ContinueLoop
        If StringRegExp($aData[$i], "Noise|Attenuation") Then
            $aData[$i + 1] = $aData[$i + 1] / 10 & " dB"
        ElseIf StringRegExp($aData[$i], "Rate") Then
            $aData[$i + 1] &= " Kb/s"
        EndIf
        $sData &= StringFormat("%-" & $iMaxLen & "s : ", $aData[$i]) & $aData[$i + 1] & @CRLF
    Next
   
    Return $sData
EndFunc
 

Code : Tout sélectionner

Global $sLiveboxUsername = "admin"
Global $sLiveboxPassword = "XXXXXXXX"

$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")

; Login
$str = "/authenticate?username=" & $sLiveboxUsername & "&password=" & $sLiveboxPassword
$oHTTP.Open("POST", "http://192.168.1.1" & $str, False)
$oHTTP.SetRequestHeader("Content-Type", "application/json")
$oHTTP.Send()
$oReceived = $oHTTP.ResponseText
$sContextID = StringRegExp($oReceived, 'contextID":"([^"]+)"|()$', 1)[0]

; Recuperation ip wan
$str = "/sysbus/NeMo/Intf/data:luckyAddrAddress"
$oHTTP.Open("POST", "http://192.168.1.1" & $str, False)
$oHTTP.SetRequestHeader("X-Context", $sContextID)
$oHTTP.Send('{"parameters":{}}')
$oReceived = $oHTTP.ResponseText
$_ip = StringRegExpReplace($oReceived, '\{"status":"([^"]*)"}', "$1")

$oHTTP.Open("POST", "http://192.168.1.1/logout", False)
$oHTTP.Send()
$oHTTP = 0

MsgBox(4096, "ip", $_ip)