Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 4 sur 4
  1. #1
    Membre du Club Avatar de cubepiege
    Inscrit en
    novembre 2004
    Messages
    149
    Détails du profil
    Informations forums :
    Inscription : novembre 2004
    Messages : 149
    Points : 46
    Points
    46

    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 :
    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 021
    Détails du profil
    Informations forums :
    Inscription : février 2006
    Messages : 1 021
    Points : 2 600
    Points
    2 600

    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
    149
    Détails du profil
    Informations forums :
    Inscription : novembre 2004
    Messages : 149
    Points : 46
    Points
    46

    Par défaut

    Hors du creneau

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

    Par défaut

    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
    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

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •