1. #1
    Membre du Club Avatar de cubepiege
    Inscrit en
    novembre 2004
    Messages
    155
    Détails du profil
    Informations forums :
    Inscription : novembre 2004
    Messages : 155
    Points : 48
    Points
    48

    Par défaut Créneau plage horaire

    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  2. #2
    Rédacteur
    Avatar de omen999
    Inscrit en
    février 2006
    Messages
    1 040
    Détails du profil
    Informations forums :
    Inscription : février 2006
    Messages : 1 040
    Points : 2 764
    Points
    2 764

    Par défaut

    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 ?
    nomen omen, nemo non omen
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp

  3. #3
    Membre du Club Avatar de cubepiege
    Inscrit en
    novembre 2004
    Messages
    155
    Détails du profil
    Informations forums :
    Inscription : novembre 2004
    Messages : 155
    Points : 48
    Points
    48

    Par défaut

    Hors du creneau

  4. #4
    Rédacteur
    Avatar de omen999
    Inscrit en
    février 2006
    Messages
    1 040
    Détails du profil
    Informations forums :
    Inscription : février 2006
    Messages : 1 040
    Points : 2 764
    Points
    2 764

    Par défaut

    oki
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    nomen omen, nemo non omen
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo