[VBS] Win32_ScheduledJob

Win32_ScheduledJob [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 30-08-2005 à 14:39:45    

Salut !
J'ai réccupérer ce morceau de code :
 

Code :
  1. Dim lundi, mardi, mercredi, jeudi, vendredi, samedi, dimanche
  2. Set net   = Wscript.CreateObject("WScript.Network" )
  3. dimanche = "1"
  4. lundi = "2"
  5. mardi = "4"
  6. mercredi = "8"
  7. jeudi = "16"
  8. vendredi = "32"
  9. samedi = "64"
  10. strComputer = net.ComputerName
  11. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  12. Set objNewJob = objWMIService.Get("Win32_ScheduledJob" )
  13. errJobCreated = objNewJob.Create("Notepad.exe","********012500.000000-420",True, lundi OR mardi or mercredi or jeudi or vendredi or samedi, , False, JobID)
  14. If errJobCreated <> 0 Then
  15. Wscript.Echo "Erreur Ó la crÚation de la tÔche"
  16. Else
  17. Wscript.Echo "Tache crÚÚe"
  18. End If


 
Bon je comprend l'essentiel (j'ai lu la page de microsoft) mais je voulais savoir  
- si mon code marche (j'ai pas XP !)
- Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" ) : je comprend pas les arguments que passe en revue la fonction ? (faut dire que je débute en VBS et que je connais pas trop la commande GetObject...
 
MErci et @+

Reply

Marsh Posté le 30-08-2005 à 14:39:45   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed