Re: Agir sur le planificateur de tâches XP

Posté par xofxon le 14/4/2005 9:15:54

Après moult essais, passer par wmi n'est pas concluant, pour ajouter une tâche.
Par contre, le programme schtasks, qui remplace le vieux programme AT fonctionne parfaitement.
Il est installé nativement sous XP Pro mais on peut le reprendre tel quel sous XP Fam et il existe une version particulières pour W2k.
Ci après le code qui fonctionne sous XP Pro,XP fam et W2k

// Tous les paramètres ne requierent pas d'être encadrés par des guillemets mais par sécurité on les encadre tous quand même

vl_c_Guillemets = """"
vl_c_NomLongExe = "c:\windows\system32\freecell.exe"
vl_c_NomcourtExe = fCheminCourt(vl_c_NomLongExe)

vl_c_NomProgrammeSoc = vl_c_Guillemets
vl_c_NomProgrammeSoc += vl_c_NomcourtExe
vl_c_NomProgrammeSoc += vl_c_Guillemets

vl_c_Heure_Format = vl_c_Guillemets + NumériqueVersChaine(vl_dh_DateHeure..Heure,"02d")+":"+NumériqueVersChaine(vl_dh_DateHeure..Minute,"02d")+":00" + vl_c_Guillemets
vl_c_Date_format = vl_c_Guillemets + NumériqueVersChaine(vl_dh_DateHeure..Jour,"02d")+"/"+NumériqueVersChaine(vl_dh_DateHeure..Mois,"02d")+"/"+NumériqueVersChaine(vl_dh_DateHeure..Année,"04d") + vl_c_Guillemets
vl_c_nomPArlant = vl_c_Guillemets + c_NomParlant+vl_c_Guillemets

vl_c_nomPArlant = Remplace(vl_c_nomPArlant,"<","")
vl_c_nomPArlant = Remplace(vl_c_nomPArlant,">","")
vl_c_nomPArlant = Remplace(vl_c_nomPArlant,":","")
vl_c_nomPArlant = Remplace(vl_c_nomPArlant,"/","")
vl_c_nomPArlant = Remplace(vl_c_nomPArlant,"\","")
vl_c_nomPArlant = Remplace(vl_c_nomPArlant,"|","")

vl_c_NomUtil = vl_c_Guillemets+ c_Nom_Utilisateur_Plan8 + vl_c_Guillemets
vl_c_pwd = vl_c_Guillemets + c_Nom_confimerpwd_Plan8 + vl_c_Guillemets

//schtasks /Create /RU "ET Maison" /RP Lepapeestmortvivelepape /SC ONCE /TN montest2 /TR "c:\windows\system32\freecell.exe" /ST 17:57:00 /SD 07/04/2005


vl_c_Chaine_schtasks = ChaîneConstruit("schtasks /Create /RU %5 /RP %6 /SC ONCE /TN %1 /TR %2 /ST %3 /SD %4 ",...
vl_c_nomPArlant,...
vl_c_NomProgrammeSoc,...
vl_c_Heure_Format,...
vl_c_Date_format,...
vl_c_NomUtil,...
vl_c_pwd)
DDELance(vl_c_Chaine_schtasks,DDEActif,Vrai)