Vbscript temporisation avant shutdown

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.