Lancer un service à distance

Résolu
Portos67 Messages postés 72 Date d'inscription vendredi 25 février 2005 Statut Membre Dernière intervention 14 janvier 2013 - 17 avril 2009 à 11:41
Portos67 Messages postés 72 Date d'inscription vendredi 25 février 2005 Statut Membre Dernière intervention 14 janvier 2013 - 17 avril 2009 à 14:49
Bonjour à tous,

Voila j'ai un soucis pour démarrer un service à distance, en sachant que j'ai les droits admin sur les postes, j'arrive à connaître le statut d'un service à distance mais pas de le lancer :

Public Function startServices(ByVal ComputerToConnect As String, ByVal Servicestart As String) As String
        On Error GoTo GestErr
        Dim Service
        For Each Service In GetObject("winmgmts:{impersonationLevel=impersonate}!//" & ComputerToConnect).InstancesOf("win32_service")
            If LCase(Service.Name) = LCase(Servicestart) Then
               Service.StartService()
                Exit For
            Else
         ...
...
..

Si vous pouvez me donner une piste ou me dire ou j'ai commis l'erreur, MERCI !!!!

1 réponse

Portos67 Messages postés 72 Date d'inscription vendredi 25 février 2005 Statut Membre Dernière intervention 14 janvier 2013 1
17 avril 2009 à 14:49
Problème résolu ,

Avec WMI:


\>wmic /node:<server> service <service> call StopService

\>wmic /node:<server> service <service> call StartService
3
Rejoignez-nous