Wmi planificateur de taches
Description
Faut Avoir WMI Installe.pas de prob avec 2000 et +
Source / Exemple :
Private Sub Command1_Click()
On Error Resume Next
Dim Nom_Du_Serveur As String
Nom_Du_Serveur = "127.0.0.1"
'Appel WMI de l'object Win32_ScheduledJob
'On peut creer la Tache sur un autre PC du groupe
Set Tâche = GetObject("winmgmts:\\" & Nom_Du_Serveur & "\root\cimv2:Win32_ScheduledJob")
Tâche.Create "Calc.exe", "********214000.000000-000" ',[Repeter as boolean], [JourDelaSemaine ], [Jourdumois],[InteractWithDesktop as boolean]), JobId
'0 x00000001 Lundi
'0 x00000002 Mardi
'0 x00000004 Mercredi
'0 x00000008 Jeudi
'0 x00000010 Vendredi
'0 x00000020 Samedi
'0 x00000040 Dimanche
'Exp pou Lundi+Mardi 1+2 etc...
End Sub
'Pour + de precision Ecrivez moi
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.