Discussion :

[Korleone]

Bonjour, j'ai une macro pour laquelle j'ai besoin que le PC ne se mette pas en veille.
C'est pourquoi, je place les propriétés d'alimentation sur "Always On" grace à ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd /c powercfg /setactive ""Always On""", 0, True

Mais à la fin de la macro, j'aimerai pouvoir remettre les paramètres d'origine.
Je n'ai trouvé aucune commande qui permette de rappatrier les données active de Powercfg.cpl
Je me rabat donc vers un code qui remet les propriétés d'alimentation en fonction du fait que l'on soit sur un portable ou sur un fixe, pour pouvoir choisir entre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objShell.Run "cmd /c powercfg /setactive ""Home/Office Desk""", 0, True

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objShell.Run "cmd /c powercfg /setactive ""Portable/Laptop""", 0, True

Cependant, ici non plus, je ne trouve pas comment faire...
Avez-vous une solution ?

Merci de votre aide !

[ucfoutu]

Bonjour,

Je tenterais, en poartantu du principe selon lequel un portable fonctionne avec une batterie :
- J'installerais le controle sysinfo et regarderais ce que renvoit sa propriété BatteryFullTime, censée retourner la valeur, en secondes, de la "vie" résiduelle de la batterie.
Si maintenant -1 (BatteryFullTime) est renvoyé, cela veut dire que cette valeur est inconnue (propablement parce que pas de batterie/pas portable ?). Ce que j'ignore et ne peux en ce moment contrôler, c'est le comportement d'un portable qui serait branché directement sur le secteur.


EDIT :
Ceci étant dit, portable ou non, je m'intéresserais également à l'utilisation des fonctions IsPwrShutdownAllowed, IsPwrSuspendAllowed et IsPwrHibernateAllowed de la librairie "Powrprof.dll" de l'Api de Windows. Je les utiliserais pour relever les paramètres existants avant mon intervention et les restituerais in fine.
Reste à savoir si le "client" final apprécierait ce type d'intervention (qui pourrait contrecarrer d'autres applications en cours, voire tout simplement ne pas être "réparé in fine" en cas de crash de ton appli ou du système.

[Korleone]

Merci pour la réponse aussi rapide, cependant, je ne peux pas installer de choses en plus sur les ordinateurs... Concernant le contrôle batterie, j'ai déjà cherché dans la librairie Excel, mais il n'y a rien qui concerne les batteries...

[ucfoutu]

Lis mon édit !

[Korleone]

Merci, je me suis faire owner...

En fait, je me suis aperçu que les PC ont des noms particuliers en fonction qu'ils soient fixe ou portable, j'ai donc simplement rappatrié le nom du PC et mis une condition.

Merci de l'aide.