[R] Audit de Poste

[Blevanaks]

Bonjour

J'aurai d'aide sur le code ci-dessous quand je le compile et l'exécute dans autoit je n'ai pas d'erreur, cependant quand j'exécute l'exe j'obtiens cette erreur : "Error: Array variable has incorrect number of subscripts or subscript dimension range exceeded"


Merci pour votre aide
Julien

[Blevanaks]

A priori l'erreur se trouve dans ces lignes ! une idée ?

Code : Tout sélectionner

If UBound($NACDNSServer) > 0 Then
                        If $NACDNSServer[0] = "" Then
                            ; Do Nothing
                        Else
                            FileWrite($Report, '<span style="display: inline-block; margin-left: 20px; width: 100px;">DNS Server 1:</span><span style="display: inline-block; margin-left: 20px; width: 300px;">' & $NACDNSServer[0] & '</span><br />')
                            If $NACDNSServer[1] = "" Then
                                FileWrite($Report, '<br />' & @CRLF)
                            Else
                                FileWrite($Report, @CRLF & '<span style="display: inline-block; margin-left: 20px; width: 100px;">DNS Server 2:</span><span style="display: inline-block; margin-left: 20px; width: 300px;">' & $NACDNSServer[1] & '</span><br />' & @CRLF)
                            EndIf
                        EndIf
                    EndIf

 

[ZDS]

Bonjour,

Une première correction grossière serait de changer la première ligne du bloc de code que tu as présenté, car si tu testes $NACDNSServer[0] et $NACDNSServer[1], c'est que ton tableau est au moins de taille 2, donc :
"If UBound($NACDNSServer) > 0 Then" est une erreur : à remplacer par "If UBound($NACDNSServer) > 1 Then" ou par "If UBound($NACDNSServer) >= 2 Then" pour plus de clarté.

Après, dans ton algo sur ce bloc de code, tu peux aussi faire :

► Afficher le texteseconde correction possible

Code : Tout sélectionner

                    If UBound($NACDNSServer) >= 1 Then
                        If $NACDNSServer[0] = "" Then
                            ; Do Nothing
                        Else
                            FileWrite($Report, '<span style="display: inline-block; margin-left: 20px; width: 100px;">DNS Server 1:</span><span style="display: inline-block; margin-left: 20px; width: 300px;">' & $NACDNSServer[0] & '</span><br />')
                            If UBound($NACDNSServer) >= 2 Then
                                If $NACDNSServer[1] = "" Then
                                    FileWrite($Report, '<br />' & @CRLF)
                                Else
                                    FileWrite($Report, @CRLF & '<span style="display: inline-block; margin-left: 20px; width: 100px;">DNS Server 2:</span><span style="display: inline-block; margin-left: 20px; width: 300px;">' & $NACDNSServer[1] & '</span><br />' & @CRLF)
                                EndIf
                            EndIf
                        EndIf
                    EndIf

mais je sais pas si c'est ce que tu souhaites.

Bonne chance, et à bientôt !

[Blevanaks]

MERCI

Super ^^ erreur bête ^^'

[karime1]

N'oublie pas de changer le titre du sujet en [R]

[Blevanaks]

j ai un petit soucis de nouveau ^^ voir image

Code : Tout sélectionner

; ----------------------------------------------------------------------------
; Right side - Main Circuit Board
; ----------------------------------------------------------------------------
GUICtrlSetData($Label, "Writing Motherboard Details to report")
GUICtrlSetData($Progress1, 0)
GUICtrlSetData($Percent1, "0%")
; ----------------------------------------------------------------------------
FileWrite($Report, '<div class="twobobsright">' & @CRLF)
FileWrite($Report, '<span class="secheader">Carte Mere</span><br/>' & @CRLF)
GUICtrlSetData($Progress1, 500)
GUICtrlSetData($Progress2, 70.0)
GUICtrlSetData($Percent1, "50%")
GUICtrlSetData($Percent2, "70.0%")
FileWrite($Report, 'Board: ' & $BBMManufacturer & ' ' & $BBMProduct & '<br />' & @CRLF)
FileWrite($Report, 'BIOS: ' & $BIOManufacturer & ' ' & $BIOVersion & ' ' & $BIORelDay & '/' & $BIORelMonth & '/' & $BIORelYear & '<br />' & @CRLF)
FileWrite($Report, '</div>' & @CRLF)
FileWrite($Report, '</div>' & @CRLF)
GUICtrlSetData($Progress1, 100)
GUICtrlSetData($Progress2, 72.0)
GUICtrlSetData($Percent1, "100%")
GUICtrlSetData($Percent2, "72.0%")
 

merci

[Laddy]

Bonjour
déclares tes variables en haut de ton code

Global $BBMManufacturer , $BIOManufacturer , $BBMProduct , $BIOVersion , $Report

[Blevanaks]

^^' merci

[ricky]

Hello,

ton script a des informations intéressantes, mais regarde ce lien sur le forum anglais :

http://www.autoitscript.com/forum/topic ... olog-v123/

C'est un script très évolué, moi j'ai rajouté quelques fonctions pour mon propre usage, mais déjà celui fourni donne pas mal d'informations pertinentes. D'ailleurs je lui ai transmis quelques remarques et améliorations qu'il a pris en compte...
Donne moi ton avis...