vbscript temporisation avant shutdown Résolu/Fermé

Question

Bonjour,
Je suis en train de créer un vbs, je me suis bloqué sur un script d'arrêt de l'ordinateur. Le probeme c'est qu'il ne comporte pas de temporisation et pourtant je voudrais en placer une, j'ai essayer avec une input box avec le code '&num&' que j'ai essayer de placer sans reussite et voici le code :

num = InputBox ("Entrez le temps avant l'Arrêt du système")

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Shutdown)}!\" & strComputer & "oot\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Shutdown()
Next

Pouvais vous me dire ou le placer ou si vous avez un autre code comprenant la temporisation je serais d'accord.
Merci à vous les pro.

fiddy · Answer

Salut
As-tu essayé : wscript.sleep 5000 pour une tempo de 5 secondes par exemple ?

d3mon · Answer

Salut,
ton code ma bien aidé.
Voici donc le résulatat du code :

num = InputBox ("Entrez le temps avant l'Arrêt du système (ex : 500 = 0.5sec / 10000= 10sec)")
wscript.sleep ""&num&""
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Shutdown)}!\" & strComputer & "oot\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Shutdown()
Next

Merci beaucoup

Vbscript temporisation avant shutdown

2 réponses

Discussions similaires