[..] Bug avec le planificateur de tâche de Windows

[eyoyo]

Bonjour,

J'ai écrit un long script qui me donnait entière satisfaction jusqu'à ce j'essaie de le lancer automatiquement avec le planificateur de tâche de Windows 7.
Lorsque c'est le planificateur de tâche qui lance le script j'obtiens l'erreur suivante:
Line 163
$acoeffg &= $aCheckg[0]
$acoeffg &= $aCheckg^ ERROR
Error: Subscript used ou non-accessible variable

Je précise que le script fonctionne très bien lorsque je ne le lance pas avec le planificateur de tâche de windows 7.
Voici une partie du code et j'ai mis les passages importants en rouge:

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <Date.au3>
#include <Array.au3>
#include <String.au3>
#include <ColorConstants.au3>


_Main()
Func _Main()

;Condition de démarrage du programme
sleep (15000)
;Paramètres serveur TCP (ATOP 5002 ou autre)
   $sIP = "192.168.129.4"
   $iPort1 = 4660
   $iping = Ping ($sIP, 250)
   ;$iPort2 = 4661
   ;$count = 4
;Paramètres du routeur cisco
   $ciscoip = "192.168.129.254"
   $pingcisco = Ping ($ciscoip, 250)
   ;MsgBox(0, "cisco", "cisco is alive:" & $pingcisco)

;Test de la connexion au réseau
While $pingcisco <> 1
   MsgBox (48, "Pas de réseau", "En attente du réseau", 60)
   Sleep (60000)
   $pingcisco = Ping ($ciscoip, 250)
Wend
;Set variables date et heure
$Datefile = @YEAR & @MON & @MDAY
$Timefile = @HOUR & @MIN & @SEC

;Ouverture du fichier de données
Local $file = FileOpen( "C:\akibato\datafiles\INSU_AL_" & $Datefile & "_" & $Timefile & ".txt", 10)
Local $file2 = FileOpen( "C:\akibato\captureddatas\SNAP_INSU_AL_" & $Datefile & "_" & $Timefile & ".txt", 10)
   ;If $file = -1 Then
    ;  MsgBox(0, "Error", "Unable to open file.")
     ; Exit
   ;EndIf

;CONSTITUTION DE L'ENTETE
;Déclaration des dossiers ou se trouvent les fichiers
$currentdir= @WorkingDir
$calibfiledir = ($currentdir & "\calibfiles")
$45calibfiledir = ($calibfiledir & "\current45")
$38calibfiledir = ($calibfiledir & "\current38")

; Entête SBE45
; On liste le contenu du repertoire contenant les fichiers d'étalonnage, on le recopie dans un tableau puis sous forme de chaêne
$45ContenuRep=_FileListToArray($45calibfiledir)
$45calibfilename = _ArrayToString($45ContenuRep,@TAB,1,1)
$45calibfilepath = ($45calibfiledir & "\" & $45calibfilename)


;récupération des données pour l'entête COLCOR SBE45
;numéro de série du SBE45
$45serialnum = StringTrimRight($45calibfilename, 33)
$45serialnum = StringTrimLeft($45serialnum, 2)
;Date d'installation du SBE45
$45installday = StringTrimRight($45calibfilename, 23)
$45installday = StringTrimLeft($45installday, 14)
$45installmonth = StringTrimRight($45calibfilename, 21)
$45installmonth = StringTrimLeft($45installmonth, 16)
$45installyear = StringTrimRight($45calibfilename, 19)
$45installyear = StringTrimLeft($45installyear, 18)
$45installdate = ($45installday & "/" & $45installmonth & "/20" & $45installyear)
;Date d'étalonnage du SBE45
$45calibday = StringTrimRight($45calibfilename, 11)
$45calibday = StringTrimLeft($45calibday, 26)
$45calibmonth = StringTrimRight($45calibfilename, 9)
$45calibmonth = StringTrimLeft($45calibmonth, 28)
$45calibyear = StringTrimRight($45calibfilename, 7)
$45calibyear = StringTrimLeft($45calibyear, 30)
$45calibdate = ($45calibday & "/" & $45calibmonth & "/20" & $45calibyear)

;Entête SBE38
$38ContenuRep=_FileListToArray($38calibfiledir)
$38calibfilename = _ArrayToString($38ContenuRep,@TAB,1,1)
$38calibfilepath = ($38calibfiledir & "\" & $38calibfilename)


;récupération des données pour l'entête COLCOR SBE38
;numéro de série du SBE38
$38serialnum = StringTrimRight($38calibfilename, 33)
$38serialnum = StringTrimLeft($38serialnum, 2)
;Date d'installation du SBE38
$38installday = StringTrimRight($38calibfilename, 23)
$38installday = StringTrimLeft($38installday, 14)
$38installmonth = StringTrimRight($38calibfilename, 21)
$38installmonth = StringTrimLeft($38installmonth, 16)
$38installyear = StringTrimRight($38calibfilename, 19)
$38installyear = StringTrimLeft($38installyear, 18)
$38installdate = ($38installday & "/" & $38installmonth & "/20" & $38installyear)
;Date d'étalonnage du SBE38
$38calibday = StringTrimRight($38calibfilename, 11)
$38calibday = StringTrimLeft($38calibday, 26)
$38calibmonth = StringTrimRight($38calibfilename, 9)
$38calibmonth = StringTrimLeft($38calibmonth, 28)
$38calibyear = StringTrimRight($38calibfilename, 7)
$38calibyear = StringTrimLeft($38calibyear, 30)
$38calibdate = ($38calibday & "/" & $38calibmonth & "/20" & $38calibyear)

;Lecture des coefficients d'étalonnage du fichier XML du SBE45
$ainput = FileRead($45calibfilepath)
[color=#FF0000]Local $acoeffg = ""[/color]
Local $acoeffh = ""
Local $acoeffi = ""
Local $acoeffj = ""
Local $acoeffcp = ""
Local $acoeffct = ""
Local $acoeffsl = ""
Local $acoeffof = ""
Local $afArray = ""
[color=#FF0000]_FileReadToArray($45calibfilepath, $afArray)[/color]
      ;$aChecka = _StringBetween($ainput, "<A>", "</A>")
      ;$aCheckb = _StringBetween($ainput, "<B>", "</B>")
      ;$aCheckc = _StringBetween($ainput, "<C>", "</C>")*
      ;$aCheckd = _StringBetween($ainput, "<D>", "</D>")
      ;$aCheckf0 = _StringBetween($ainput, "<FO>", "</FO>")
      ;$aChecks = _StringBetween($ainput, "<Slope>", "</Slope>")
      ;$aChecko = _StringBetween($ainput, "<Offset>", "</Offset>")

      $aCheckg = _StringBetween($ainput, "<G>", "</G>")
      $aCheckh = _StringBetween($ainput, "<H>", "</H>")
      $aChecki = _StringBetween($ainput, "<I>", "</I>")
      $aCheckj = _StringBetween($ainput, "<J>", "</J>")
      $aCheckCP = _StringBetween($ainput, "<CPcor>", "</CPcor>")
      $aCheckCT= _StringBetween($ainput, "<CTcor>", "</CTcor>")
      $aCheckSl = _StringBetween($ainput, "<Slope>", "</Slope>")
      $aCheckOf = _StringBetween($ainput, "<Offset>", "</Offset>")
      ;$acoeffa &= $aChecka[0]
      ;$acoeffb &= $aCheckb[0]
      ;$acoeffc &= $aCheckc[0]
      ;$acoeffd &= $aCheckd[0]
     [color=#FF0000] $acoeffg &= $aCheckg[0][/color]
      $acoeffh &= $aCheckh[0]
      $acoeffi &= $aChecki[0]
      $acoeffj &= $aCheckj[0]
      $acoeffcp &= $aCheckCP[0]
      $acoeffct &= $aCheckCT[0]
      $acoeffsl &= $aCheckSL[0]
      $acoeffof &= $aCheckOf[0]
 

Ca semble venir de mon utilisation de _FileReadToArray mais je ne vois pas comment corriger ça.
J'ai également pensé à déclarer les variable acoeff* en "Global" mais ça ne change pas mon problème dans le "task scheduler" de windows 7.
Je trouve assez déroutant que le programme n'est pas le même comportement lorsque je double clique dessus et lorsque je le lance avec le planificateur et je coince.
Pour info cette partie du script va lire des valeurs entre des balises < > dans des fichiers XML pour créer un entête dans un fichier de données.
Merci pour votre précieuse aide

Lionel

[DimVar]

Bonjour,

J'ai deja eu des pb similaires avec les droits utilisateurs de la tache planifiée.
Declaré comme admin local ?

Ou éventuellement utiliser "isarray" pour vérifier qu'une fonction retourne bien un tableau...

Ou encore essayer de compiler en CUI (plutot que GUI)

Cdlt.

[jguinch]

dans ton script, je vois la partie suivante :

► Afficher le texte

Code : Tout sélectionner

[b][color=#FF0000]$ainput = FileRead($45calibfilepath)[/color][/b]
Local $acoeffg = ""
Local $acoeffh = ""
Local $acoeffi = ""
Local $acoeffj = ""
Local $acoeffcp = ""
Local $acoeffct = ""
Local $acoeffsl = ""
Local $acoeffof = ""
Local $afArray = ""
_FileReadToArray($45calibfilepath, $afArray)
;$aChecka = _StringBetween($ainput, "<A>", "</A>")
;$aCheckb = _StringBetween($ainput, "<B>", "</B>")
;$aCheckc = _StringBetween($ainput, "<C>", "</C>")*
;$aCheckd = _StringBetween($ainput, "<D>", "</D>")
;$aCheckf0 = _StringBetween($ainput, "<FO>", "</FO>")
;$aChecks = _StringBetween($ainput, "<Slope>", "</Slope>")
;$aChecko = _StringBetween($ainput, "<Offset>", "</Offset>")

[b][color=#FF0000]$aCheckg = _StringBetween($ainput, "<G>", "</G>")[/color][/b]
$aCheckh = _StringBetween($ainput, "<H>", "</H>")
$aChecki = _StringBetween($ainput, "<I>", "</I>")
$aCheckj = _StringBetween($ainput, "<J>", "</J>")
$aCheckCP = _StringBetween($ainput, "<CPcor>", "</CPcor>")
$aCheckCT= _StringBetween($ainput, "<CTcor>", "</CTcor>")
$aCheckSl = _StringBetween($ainput, "<Slope>", "</Slope>")
$aCheckOf = _StringBetween($ainput, "<Offset>", "</Offset>")
;$acoeffa &= $aChecka[0]
;$acoeffb &= $aCheckb[0]
;$acoeffc &= $aCheckc[0]
;$acoeffd &= $aCheckd[0]
[b][color=#FF0000]$acoeffg &= $aCheckg[0][/color][/b]
 

$aCheckg n'est pas un tableau...

[Y01]

Le script est lancé avec ton compte, le compte administrateur ou avec le compte SYSTEM ?

Je pense qu'en choisissant un compte diffèrent, le comportement de ton script le sera aussi.

[eyoyo]

dans ton script, je vois la partie suivante :

► Afficher le texte

Code : Tout sélectionner

[b][color=#FF0000]$ainput = FileRead($45calibfilepath)[/color][/b]
Local $acoeffg = ""
Local $acoeffh = ""
Local $acoeffi = ""
Local $acoeffj = ""
Local $acoeffcp = ""
Local $acoeffct = ""
Local $acoeffsl = ""
Local $acoeffof = ""
Local $afArray = ""
_FileReadToArray($45calibfilepath, $afArray)
;$aChecka = _StringBetween($ainput, "<A>", "</A>")
;$aCheckb = _StringBetween($ainput, "<B>", "</B>")
;$aCheckc = _StringBetween($ainput, "<C>", "</C>")*
;$aCheckd = _StringBetween($ainput, "<D>", "</D>")
;$aCheckf0 = _StringBetween($ainput, "<FO>", "</FO>")
;$aChecks = _StringBetween($ainput, "<Slope>", "</Slope>")
;$aChecko = _StringBetween($ainput, "<Offset>", "</Offset>")

[b][color=#FF0000]$aCheckg = _StringBetween($ainput, "<G>", "</G>")[/color][/b]
$aCheckh = _StringBetween($ainput, "<H>", "</H>")
$aChecki = _StringBetween($ainput, "<I>", "</I>")
$aCheckj = _StringBetween($ainput, "<J>", "</J>")
$aCheckCP = _StringBetween($ainput, "<CPcor>", "</CPcor>")
$aCheckCT= _StringBetween($ainput, "<CTcor>", "</CTcor>")
$aCheckSl = _StringBetween($ainput, "<Slope>", "</Slope>")
$aCheckOf = _StringBetween($ainput, "<Offset>", "</Offset>")
;$acoeffa &= $aChecka[0]
;$acoeffb &= $aCheckb[0]
;$acoeffc &= $aCheckc[0]
;$acoeffd &= $aCheckd[0]
[b][color=#FF0000]$acoeffg &= $aCheckg[0][/color][/b]
 

$aCheckg n'est pas un tableau...

Oula je me rends compte que j'ai mélangé deux solutions à mon problème au fur et à mesure de mon développement.
le _fileread et le _filereadtoarray.
Le hic c'est que je ne comprends pas bien comment lire les valeurs comprises entre les chants "<G> <\G> etc..." de mon fichier XML pour les écrire dans un autre fichier
Je n'y arrive que comme ça:

Code : Tout sélectionner

$ainput = FileRead($45calibfilepath)
Local $acoeffg = ""
Local $afArray = ""
$aCheckg = _StringBetween($ainput, "<G>", "</G>")
$acoeffg = $aCheckg [0]
MsgBox(0, "coeff G", $acoeffg)

Savez-vous comment je peux coder cela autrement ?
Car le problème semble venir de là. J'ai copié tous mes fichiers sous un autre compte Admin créé pour l'occasion et le problème persiste.
Le planificateur de tâche ne semble pas aimer le "$aCheckg [0]"

[orax]

Savez-vous comment je peux coder cela autrement ?

Si le fichier XML est assez complexe, il y a MSXML qui est fait pour ça.

Code : Tout sélectionner

$xmlDoc = ObjCreate("Msxml2.DOMDocument.6.0")

[walkson]

Bonsoir,
En complément d'Orax, il y a _XMLDomWrapper.au3

[eyoyo]

Le fichier xml est tout bête. J'ai le même problème pour aller lire des nombres entre des balises dans un fichier quelconque et les écrire dans un autre fichier. J'ai du mal à faire ca différemment que dans mon dernier exemple. Je note votre outil mais comment faire simple pour lire un chiffre entre deux flags dans un fichier et l'écrire dans un autre fichier?
Merci

[orax]

L'erreur pourrait aussi survenir avant, avec FileRead par exemple.

Code : Tout sélectionner

$ainput = FileRead($45calibfilepath)
If @error Then Exit MsgBox(0, 'FileRead', @error)
Local $acoeffg = ""
Local $afArray = ""
$aCheckg = _StringBetween($ainput, "<G>", "</G>")
If @error Then Exit MsgBox(0, '_StringBetween', @error)
$acoeffg = $aCheckg[0]
MsgBox(0, "coeff G", $acoeffg)

[eyoyo]

Le fileread pourrait planter pour une histoire de droits uniquement sous le planificateur et pas quand je lance le script moi-même?
Aucune idée pour éviter le $aCheckg[0]?

[jguinch]

Quand tu auras testé ce que propose orax, tu auras certainement avancé.
Si le code plante sur $aCheckg[0], c'est que $aCheckg n'est pas un tableau. Donc tu as forcément une erreur plus haut (FileRead ou _StringBetween)

[eyoyo]

Ok. Je teste ca demain a l'aube. Merci

[jguinch]

Le soleil se lève à quel heure chez toi ?

[eyoyo]

J'étais au boulot à 7h30!
Le test d'erreur mentionné plus n'a rien donné. Il n'y pas d'erreur sur le fileread ou le stringbewteen et le coefficient est bien lu.
Le programme tourne mais pas dans le planificateur de tâche de windows.

[eyoyo]

Je viens de faire de nouveaux tests et il semblerait que le problème se pose aussi dans la lecture du nom des fichiers (toujours avec le planificateur uniquement).
Cette fois le programme ne plante pas mais il ne récupère pas non plus le nom des fichiers.

[Y01]

Code : Tout sélectionner

$currentdir= @WorkingDir

En lançant l'application avec le gestionnaire de tâche le @WorkingDir passe à "C:\Windows\Tasks" non ?

EDIT : Je rajouterai même que tu peux spécifier le WorkingDir dans ta tâche.

[orax]

Je pense qu'avec While $pingcisco <> 1 le routeur doit répondre en 1 ms maxi. Je ferais plutôt comme ça :

Code : Tout sélectionner

;Paramètres du routeur cisco
$ciscoip = "192.168.129.254"

;Test de la connexion au réseau
While Ping($ciscoip, 250) = 0 ; ping le routeur en boucle tant qu'il ne répond pas
    MsgBox(48, "Pas de réseau", "En attente du réseau", 60)
    Sleep(60000)
WEnd

Mais c'est juste un détail puisque l'erreur ne vient pas de là.

Si les fichiers sont dans le même répertoire que le script, tu peux utiliser @ScriptDir au lieu de @WorkingDir.

[eyoyo]

Je vais essayer de mettre les chemins en dur et de corriger ma boucle de ping. Merci vous m'aidez beaucoup.

[DimVar]

Pour corroborer la réponse d'Orax, j'ai fait une bête msgbox avec @workingdir en tache planifiée, elle me renvoi "c:\windows\system32".

Cdlt, Dimvar.