Créneau plage horaire

Version imprimable

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

20/02/2013, 10h44
omen999

bonjour,

Citation:

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

Citation:

'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é... :koi:
le lancement doit se faire dans le créneau ou hors du créneau ?
20/02/2013, 10h49
cubepiege

Hors du creneau

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