Discussion :

[ctrl32]

Bonjour,
tout d'abord, je n'y connais absolument rien en script, voilà qui est dit.
j'ai un besoin, lancer un .bat toute les 5 mn
via le planificateur d'évènement Win 7, le bat se lance, mais en fait, rien ne se passe. (aucune idée sur la raison, c'est un fait, seulement, si je lance à la main ce .bat, il fonctionne.)
actuellement j'utilise le .vbs ci dessous qui me permet de lancer le .bat sans avoir de fenêtre dos

Code :

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

1
2
3
4
DIM oWsh, commande
Set oWsh = WScript.CreateObject("WScript.Shell")
commande = "copiefichier.bat"
oWsh.Run commande,0

est il possible, via encore un bout de script, d'utiliser ce .vbs afin de donner l'ordre au .bat de se lancer toute les 5 mn ?

pour info, ce .bat, copie un fichier dans un dossier, et envoie ce fichier en ftp sur une machine distante

merci de vos suggestions

Laurent

[ProgElecT]

Salut

Dans le planificateur de tâches, onglet Général il faut sûrement cocher Exécuter avec les autorisations maximales.

[hackoofr]

Si vous avez encore des problèmes avec le plannificateur de tâches sur windows 7, vous pouvez tester ce vbscript en boucle avec une pause de 5 minutes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Ws,command,Execution
Set Ws = CreateObject("WScript.Shell")
command = "copiefichier.bat"
Do
	Execution = Ws.Run(Command,0,False)
	Pause(5) 'pause pour 5 minutes
Loop
'***************************************
Sub Pause(Min)
	WScript.Sleep 60*1000*Min
End Sub
'***************************************

et ce code pour savoir quels sont les scripts VBS en cours d'exécution :

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
Titre = " Processus "& qq("Wscript.exe") &" en cours d'exécution "
Set fso = CreateObject("Scripting.FileSystemObject")
Set sho = CreateObject( "Wscript.Shell" )
NomFichierLog="Processus VBScript.txt"
temp = sho.ExpandEnvironmentStrings("%temp%")
PathNomFichierLog = temp & "\" & NomFichierLog
Set OutPut = fso.CreateTextFile(temp & "\" & NomFichierLog,1)
count=0 
strComputer = "."
Call FindScript()
Call Explorer(PathNomFichierLog)
'***************************************************************************************************
Function Explorer(File)
	Set ws=CreateObject("wscript.shell")
	ws.run "Explorer "& File & "\",1,True
end Function
'***************************************************************************************************
Sub FindScript()
	Set colItems = GetObject("winmgmts:").ExecQuery("Select * from Win32_Process " _
	& "Where Name like '%wscript.exe%' AND NOT commandline like '%" & wsh.scriptname & "%'",,48)
	For Each objItem in colItems
		'MsgBox "Script : " & objItem.CommandLine,64,Titre
		count= count + 1
		Msgbox Mid(objItem.CommandLine,InStr(objItem.CommandLine,""" """) + 2),64,Titre
		OutPut.WriteLine Mid(objItem.CommandLine,InStr(objItem.CommandLine,""" """) + 2)
	Next
OutPut.WriteLine count & Titre 
End Sub
'***************************************************************************************************
Function qq(strIn)
	qq = Chr(34) & strIn & Chr(34)
End Function
'***************************************************************************************************

[ctrl32]

Merci à tous !!
j'ai vraiment été gâté !!

pour terminer j'ai besoins de fermer mon script que j'ai lancé en mode "invisible"
je pensais le trouver dans le gestionnaire de tâche mais non, que les services ou exe.... comment faire ?

encore merci pour tes scripts, super sympa !!

[ctrl32]

euu, comment dire, ben ton script donnant le nombre de scripts en cours m' donné l'exe à tuer = > Wscript.exe

[ctrl32]

scripts testé et approuvé, un vrai bonheur !!
une dernière chose avant clôture de cette discussion,
sans trop vouloir abuser,
est il possible d'avoir, pour chaque ligne des scripts, une explication ?