ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment arrêter un service Windows avec WMI   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > WMI (Windows Management Instrumentation)

Comment arrêter un service Windows avec WMI
# 0000000812
ajouté le 12/02/2012 15:16:31 et modifié le 12/02/2012
consulté 7654 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0

Description


Voici comment arrêter un service Windows avec WMI



Code source :

? StopService( ".""Adobe LM Service")


Procedure StopService(tcComputer, tcServiceName)
  Private  loService
  objWMI = Getobject("winmgmts:\\" + tcComputer + "\root\cimv2")
  loServices = objWMI.ExecQuery("Select * from Win32_Service",,48)
  &&Get the WMI administration object'
  && Check base properties'
  For Each loService In loServices
    If loService.Name = tcServiceName
      If loService.Started = .f.
        ? "The service " + tcServiceName + " is Not started"
        Exit
      Endif
      If Not loService.AcceptStop
        ? "The service " + tcServiceName + " does Not accept stop command"
        Exit
      endif
      loService.StopService
      Inkey(5)
      If 0 <>  loService.StopService
        ?"Stop " + tcServiceName + " error: " + Transform(loService.StopService)
        Exit
      Endif

      Do While loService.Started
         lnResult = loService.StopService
        ? Datetime(), "StopService", tcServiceName,loService.Started,loService.State, loService.Status
        Inkey(1)
        Loop
      Enddo
    Endif
  Endfor
   ? 'Service stopped at 'ttoc(datetime())


Endproc

Commentaires
Aucun commentaire enregistré ...

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3