Bonsoir a tous,
Voila jai un probleme dans une fonction en VB
Le probleme est que je n'arrive pas a me connecter a une machine distante via WMI, par contre en local cela est parfaitement fonctionnel.
Porriez vous regarder car cela fait plusieur jours que je me creuse la tete sans arriver a quelque chose.
Le code de la fonction qui permet de se connecter :
Code :
- Function Connecter(ByVal MachineName)
- Dim objLocator, ObjService
- On Error Resume Next
- '************** Création de l'objet Locator ********************'
- Set objLocator = CreateObject("WbemScripting.SWbemLocator" )
- If Err.Number Then
- MsgBox "Une erreur est survenue lors de la création de Locator."
- Err.Clear
- Exit Function
- End If
- '*********** Connexion à la machine MachineName ****************'
- Set ObjService = objLocator.ConnectServer(MachineName)
- ObjService.Security_.ImpersonationLevel = 3 'Impersonate
- If Err.Number Then
- MsgBox "Une erreur est survenue lors de la connexion."
- Err.Clear
- End If
- Set Connecter = ObjService
- End Function
|
L'erreur se produit o niveau de la ligne :
Set ObjService = objLocator.ConnectServer(MachineName)
Je vous remercie d'avance du coup de main.
Seb