Script vbs, pour Action sur Windows 11

Bonjour à tous,

Néophyte en la matière, je cherche à créer une petite procédure vbs dans Windows (Windows 11 Business, Version 22H2) qui consiste à:

ouvrir la boîte des paramètres de Windows,
sélectionner le sous-menu : Accessibilité
Sélectionner : Pointeur de souris et interaction tactile
Sélectionner Le style (4ème) de souris "Vert fluo"
et augmenter sa taille à : 6
Puis tout refermer.

Puis sur une seconde procédure qui ferait l'inverse, c'est à dire qu'il sélectionne les différents menus jusqu'au pointeur de la souris, et là, il remet le blanc standard (1er de la liste) avec la taille de 1
et referme toutes le fenêtre ouvertes.

Évidemment s'il y a la possibilité d'avoir l'ensemble des actions (où l'une ou l'autre actions s'exécute en fonction du type d'icône de souris active) sur une seule procédure, ce serait le top, mais bon, je n'y crois pas trop. ;)

J'ai essayé de bricoler autour de la procédure suivante, mais sans succès, malheureusement elle ne fonctionne pas (Erreur à la ligne: 2 Car.: 1 )
Erreur: Impossible d'attendre pour le traitement
Code: 80020009

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

'----------------------------------------------- Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "ms-settings:accessibility", 1, True WScript.Sleep 1000 WshShell.Run "ms-settings:easeofaccess-mouse", 1, True WScript.Sleep 2000 WshShell.SendKeys "{TAB}" WScript.Sleep 2000 WshShell.SendKeys "{TAB}" WScript.Sleep 2000 WshShell.SendKeys "{TAB}" WScript.Sleep 2000 WshShell.SendKeys "{TAB}" WScript.Sleep 2000 WshShell.SendKeys "{ENTER}" WshShell.SendKeys "{TAB}" WScript.Sleep 500 WshShell.SendKeys "{TAB}" WScript.Sleep 500 WshShell.SendKeys "{TAB}" WScript.Sleep 500 WshShell.SendKeys "{TAB}" WScript.Sleep 500 WshShell.SendKeys "{TAB}" WScript.Sleep 500 WshShell.SendKeys "{TAB}" WScript.Sleep 500 WshShell.SendKeys "{SPACE}" WScript.Sleep 500 WshShell.SendKeys "{TAB}" WScript.Sleep 500 WshShell.SendKeys "{TAB}" WScript.Sleep 500 WshShell.SendKeys "{ENTER}" WScript.Sleep 500 WshShell.SendKeys "8" WScript.Sleep 500 WshShell.SendKeys "{TAB}" WScript.Sleep 500 WshShell.SendKeys "{ENTER}" '-----------------------------------------

---

Je vous remercie d'avance pour votre sollicitude et pour votre aide et conseils

Cordialement,
Emile

pour commencer, la commande pour accéder directement à la bonne fenêtre est ms-settings:easeofaccess-mousepointer (inutile de passer par des intermédiaires) (https://learn.microsoft.com/fr-fr/wi...ease-of-access)

Ensuite, l'erreur indique qu'il impossible d'attendre un retour de l'appel, donc soit enlever True, soir le remplacer par False de la ligne de commande

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "ms-settings:easeofaccess-mousepointer", 1 WScript.Sleep 2000 'par défaut, on est sur la taille 'on décale 5 fois pour aller sur le 6 ( for i = 1 to 5 WshShell.SendKeys "{RIGHT}" WScript.Sleep 2000 next 'on passe à la sélection du curseur WshShell.SendKeys "{TAB}" WScript.Sleep 2000 WshShell.SendKeys "{RIGHT}" WScript.Sleep 2000 WshShell.SendKeys "{RIGHT}" WScript.Sleep 2000 WshShell.SendKeys "{RIGHT}" WScript.Sleep 2000 WshShell.SendKeys "{ENTER}" WScript.Sleep 2000 'on ferme la fenêtre WshShell.SendKeys "%{F4}"

---

PS: code qui fonctionne sous windows 10 (pas de windows 11 pour vérifier si c'est la même organisation, mais je pense que oui)

Merci umfred pour ton aide. 👍

J'ai dû l'adapter, mais ça fonctionne maintenant.
Encore merci et bonne journée.