Portos67
Messages postés72Date d'inscriptionvendredi 25 février 2005StatutMembreDernière intervention14 janvier 2013
-
17 avril 2009 à 11:41
Portos67
Messages postés72Date d'inscriptionvendredi 25 février 2005StatutMembreDernière intervention14 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 !!!!