Private
SubCommand1_Click()</li><li>
On
Error
Resume
Next</li><li>
DimNom_Du_Serveur As
String</li><li>Nom_Du_Serveur <var>"127.0.0.1"</var></li><li><samp>'Appel WMI de l'object Win32_ScheduledJob</samp></li><li><samp>'On peut creer la Tache sur un autre PC du groupe</samp></li><li>
SetTâche
GetObject(<var>"winmgmts:\"</var> & Nom_Du_Serveur & <var>"\root\cimv2:Win32_ScheduledJob"</var>)</li><li>Tâche.Create <var>"Calc.exe"</var>, <var>"********214000.000000-000"</var> <samp>',[Repeter as boolean], [JourDelaSemaine ], [Jourdumois],[InteractWithDesktop as boolean]), JobId</samp></li><li><samp>'0 x00000001 Lundi</samp></li><li><samp>'0 x00000002 Mardi</samp></li><li><samp>'0 x00000004 Mercredi</samp></li><li><samp>'0 x00000008 Jeudi</samp></li><li><samp>'0 x00000010 Vendredi</samp></li><li><samp>'0 x00000020 Samedi</samp></li><li><samp>'0 x00000040 Dimanche</samp></li><li><samp>'Exp pou Lundi+Mardi 1+2 etc...</samp></li><li>
End
Sub</li><li><samp>'Pour + de precision Ecrivez mo</samp></li>