Discussion :

[cincap]

Bonjour à toutes et à tous,

J'aimerai créer une tâche pour lire un fichier .wav à l'aide d'un .vbs.

Le fichier .vbs fonctionne depuis son dossier mais pas depuis la tâche créée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set Sound = CreateObject("WMPlayer.OCX.7")
Sound.URL = "C:\Users\Cinca\Downloads\Data JM 2022\StartUp\Hello.wav"
Sound.Controls.play
do while Sound.currentmedia.duration = 0
wscript.sleep 100
loop
wscript.sleep (int(Sound.currentmedia.duration)+1)*1000

J'avais essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c:\windows\system32\cscript.exe Sound.vbs

Sans succès.

Y aurait t'il une explication ?

Merci d'avance.

@+,

cincap

[hackoofr]

La tâche planifié doit-être répeter chaque 2 heures par exemple ou bien une seule fois lors de l'ouverture du PC ?
Si vous voulez que ce script s'exécute une seule fois lors de l'ouverture du PC, alors pensez a créer un raccourci ou bien copier directement le vbscript dans le dossier Startup
Shell:Startup

Sinon si vous voulez créer cette tâche pour qu'elle se répete chaque 2 heures, voici un exemple testé sur mon windows 10 (64 bits)

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
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
'Run as Admin
If Not WScript.Arguments.Named.Exists("elevate") Then
   CreateObject("Shell.Application").ShellExecute DblQuote(WScript.FullName) _
   , DblQuote(WScript.ScriptFullName) & " /elevate", "", "runas", 1
    WScript.Quit
End If
 
Dim FilePath,TaskName,Repeat_Task,Sound
FilePath = WScript.ScriptFullName
TaskName = "PlayMusic"
Repeat_Task = 120 REM Pour répeter la tâche chaque 2 heures=120 min
Call Create_Schedule_Task(Repeat_Task,TaskName,FilePath)
 
Set Sound = CreateObject("WMPlayer.OCX.7")
Sound.URL = "E:\hubiC\Sauvegarde\DownloadPrgBar\IbizaMix.mp3"
Sound.Controls.play
Do while Sound.currentmedia.duration = 0
    wscript.sleep 100
Loop
wscript.sleep (int(Sound.currentmedia.duration)+1)*1000
'----------------------------------------------------------------
REM Fonction pour ajouter des guillemets doubles dans une variable
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'-----------------------------------------------------------------
Sub Create_Schedule_Task(Repeat_Task,TaskName,FilePath)
Dim Ws,Task,Result
Set Ws = CreateObject("WScript.Shell")
Task = "CMD /C Schtasks /Create /SC DAILY /ST 08:00 /F /RI "&_
Repeat_Task &" /DU 24:00 /TN "& TaskName &" /TR "& FilePath &""
Result = Ws.run(Task,0,True)
End Sub
'-----------------------------------------------------------------

[cincap]

@ hackoofr, merci pour ta réponse, le fichier son ne doit être lu que lors du démarrage de Windows et avant le logon.

La tâche créée par le planificateur de tâche devrait le lire.

Pour ta suggestion :

ou bien copier directement le vbscript dans le dossier Startup
Shell:Startup

Dans ce dossier j'ai la suite du message avec l'heure et après le logon.

Ma tâche est correcte car j'ai testé avec une petite application Delphi vite fait bien fait qui charge un fichier .wav et qu'il le lit et j'obtiens bien le message vocal "Hello" avant le logon et ensuite celui qui est dans le dossier de démarrage.

J'ai même essayé avec un fichier .bat qui lancerait le fichier .vbs sans succès.

Il ne faut pas perdre de vue que avant le logon on est en dos même si on utilise Windows !

On croirait qu'il manque l'instruction pour lancer le script.

Je cherche aussi.

@+,

cincap

[hackoofr]

Essayez alors d'écrire bien le chemin de votre vbscript càd le chemin absolu et n'oubliez pas les guillemets si votre chemin contient des espaces

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c:\windows\system32\cscript.exe "Chemin complet\Sound.vbs"

[cincap]

@ hackoofr, merci pour la réponse, j'avais déjà testé.

En fait quand je teste la tâche, j'ai la boite de dialogue qui s'ouvre en me demandant avec quoi je dois ouvrir le fichier.

C'est peut-être une piste.

Avec mon application Delphi qui est un exécutable j'utilise "sndPlaySound(Stream.Memory, (SND_ASYNC or SND_MEMORY));"

Et cela fonctionne dès que je démarre mon Pc.

@+,

cincap

[hackoofr]

@ hackoofr, merci pour la réponse, j'avais déjà testé.

En fait quand je teste la tâche, j'ai la boite de dialogue qui s'ouvre en me demandant avec quoi je dois ouvrir le fichier.

C'est peut-être une piste.

Avec mon application Delphi qui est un exécutable j'utilise "sndPlaySound(Stream.Memory, (SND_ASYNC or SND_MEMORY));"

Et cela fonctionne dès que je démarre mon Pc.

@+,

cincap

Voici une piste Can't run .vbs with Windows Task Scheduler - Open With...