[Windows 10] Automatisation de la création d'une barre d'outils
Posté : lun. 08 oct. 2018 17:35
Bonjour,
Je suis en train de développer un script d'automatisation de création de barre d'outils sous Windows 10. Ce script est compilé et déployé via GPO.
L'idée est de scripter les opérations suivantes :
1 : Click droit dans la barre des tâches
2 : Dans le menu contextuel, sélection du menu "barre d'outil"
3 : Sélection du menu "Nouvelle barre d'outils"
4 : Création de la barre d'outils
La cinématique du script foncitonne bien mais je butte sur un cas étrange :
Avant l'étape 1 je vérifie si la barre d'outil à créer existe déjà à l'aide de ce code :
A l'ouverture de session Windows, le script se lance via GPO et s'exécute sans problème. Si juste après je relance le script en manuel via CMD.exe, le script plante au niveau du ControlGetText au check de la premiere instance (Elle apparait comme vide dans le fichier de log et au bout d'un certain temps une popup apparait avec ce message : " subscript used on non accessible varaible". Si encore une fois je relance le script, il s'exécute sans problème.
Quelqu'un aurait-il déjà rencontré ce comportement ?
Merci d'avance,
Je suis en train de développer un script d'automatisation de création de barre d'outils sous Windows 10. Ce script est compilé et déployé via GPO.
L'idée est de scripter les opérations suivantes :
1 : Click droit dans la barre des tâches
2 : Dans le menu contextuel, sélection du menu "barre d'outil"
3 : Sélection du menu "Nouvelle barre d'outils"
4 : Création de la barre d'outils
La cinématique du script foncitonne bien mais je butte sur un cas étrange :
Avant l'étape 1 je vérifie si la barre d'outil à créer existe déjà à l'aide de ce code :
Code : Tout sélectionner
;Gestion du fait que si la barre d'outil existe deja, elle n'est pas recréée
Dim $ToolBarExist = "False"
Do
$instanceNumber = "[CLASS:ToolbarWindow32;Instance:" & $i & "]"
$ToolBarText = ControlGetText("[CLASS:Shell_TrayWnd]", "", $instanceNumber)
If $isVerbose = True Then
FileWrite($tempFilePath, _NowDate () & " " & _NowTime (5) & " : Texte toolbar " & $i & " : " & $ToolBarText & @CRLF)
EndIf
; Modifier pour checker le dernier dossier du chemin demandé
If $ToolBarText = $ToolbarName Then
$ToolBarExist = "True"
EndIf
$i = $i + 1
Sleep(10)
Until $ToolBarText = ""
Quelqu'un aurait-il déjà rencontré ce comportement ?
Merci d'avance,