Vbscript temporisation avant shutdown
Résolu
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 & "\root\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.
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 & "\root\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.
2 réponses
-
ContributeurSalut
As-tu essayé : wscript.sleep 5000 pour une tempo de 5 secondes par exemple ? -
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 & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
objOperatingSystem.Shutdown()
Next
Merci beaucoup
