Créneau plage horaire

[cubepiege]

Bonjour, après avoir essayer plusieurs méthode différentes, je ne m'en sors pas.
je cherche à déclencher un exe sur une machine en prenant comme critère les conditions suivantes.
je sors l'heure système actuelle puis je dis que si celle-ci est inférieur à 9h00 ou bien supérieur à 10h00, je l’exécute.

En gros, l'exe ne doit pas pouvoir se lancer entre 9 et 10 heure du matin.
Voila, merci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Heure = Time
Debut= "09:00:00"
Fin= "10:00:00"
 
Sub Main()
 ctrlTime
End Sub
 
Function ctrlTime()
Wscript.Echo "Debut : " +Debut
Wscript.Echo "Fin : " +Fin
 
Wscript.Echo Heure
 
'On contrôle si l'on est dans la plage horaire adéquat pour lancer l'exe
If Heure < Debut AND Heure > Fin Then
 Wscript.Echo "Hors plage de lancement"
WScript.Quit
End If
 
End Function

[omen999]

bonjour,

En gros, l'exe ne doit pas pouvoir se lancer entre 9 et 10 heure du matin.

'On contrôle si l'on est dans la plage horaire adéquat pour lancer l'exe

ton code cherche à faire exactement le contraire du but recherché...
le lancement doit se faire dans le créneau ou hors du créneau ?

[cubepiege]

Hors du creneau

[omen999]

oki

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Heure = Time
Debut= "09:00:00"
Fin= "10:00:00"
 
Sub Main()
 ctrlTime
End Sub
 
Function ctrlTime()
	Wscript.Echo "Debut : " +Debut
	Wscript.Echo "Fin : " +Fin
	Wscript.Echo Heure
 
	If (Heure<Debut) or (Heure>Fin) Then
		Set oShell = WScript.CreateObject ("WScript.Shell")
		oShell.Run "C:\WINDOWS\NOTEPAD.EXE"	
	Else
	 	Wscript.Echo "La plage est fermée entre 9h et 10h"
	End If
End Function
Main