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