B
brizard
Guest
Bonjour.
J'ai trouvé une solution sur le forum pour fermer excel et windows avec ce code ci-dessous, mais celui-ci m'indique l'erreur suivante: Erreur automation sur "For Each ObjOperatingSystem In colOperatingSystems"
Quelqu'un peut-il m'éclaircir là-dessus svp
Sub ArreterOrdinateurShutdown()
Dim colOperatingSystems, ObjOperatingSystem
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Sele ct * from Win32_OperatingSystem")
'Arrête l'ordinateur, puis le redémarre
For Each ObjOperatingSystem In colOperatingSystems
'Jeu d 'indicateurs pour arrêter l'ordinateur. Définissez ce paramètre à 0 pour fermer la session.
'La propriété Flags peut prendre les valeurs suivantes :
'ObjOperatingSystem.Win32Shutdown '(1) '(2) - 1 Arrêter et Eteint - 2 Arrêter et Redémarrer
ObjOperatingSystem.Win32Shutdown (1)
Next
End Sub
J'ai trouvé une solution sur le forum pour fermer excel et windows avec ce code ci-dessous, mais celui-ci m'indique l'erreur suivante: Erreur automation sur "For Each ObjOperatingSystem In colOperatingSystems"
Quelqu'un peut-il m'éclaircir là-dessus svp
Sub ArreterOrdinateurShutdown()
Dim colOperatingSystems, ObjOperatingSystem
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Sele ct * from Win32_OperatingSystem")
'Arrête l'ordinateur, puis le redémarre
For Each ObjOperatingSystem In colOperatingSystems
'Jeu d 'indicateurs pour arrêter l'ordinateur. Définissez ce paramètre à 0 pour fermer la session.
'La propriété Flags peut prendre les valeurs suivantes :
'ObjOperatingSystem.Win32Shutdown '(1) '(2) - 1 Arrêter et Eteint - 2 Arrêter et Redémarrer
ObjOperatingSystem.Win32Shutdown (1)
Next
End Sub