[VB6] [WMI] Probleme de connection a un pc distant

Probleme de connection a un pc distant [VB6] [WMI] - VB/VBA/VBS - Programmation

Marsh Posté le 18-06-2004 à 23:27:11    

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 :
  1. Function Connecter(ByVal MachineName)
  2. Dim objLocator, ObjService
  3. On Error Resume Next
  4. '************** Création de l'objet Locator ********************'
  5. Set objLocator = CreateObject("WbemScripting.SWbemLocator" )
  6. If Err.Number Then
  7. MsgBox "Une erreur est survenue lors de la création de Locator."
  8. Err.Clear
  9. Exit Function
  10. End If
  11. '*********** Connexion à la machine MachineName ****************'
  12. Set ObjService = objLocator.ConnectServer(MachineName)
  13. ObjService.Security_.ImpersonationLevel = 3 'Impersonate
  14. If Err.Number Then
  15. MsgBox "Une erreur est survenue lors de la connexion."
  16. Err.Clear
  17. End If
  18. Set Connecter = ObjService
  19. 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

Reply

Marsh Posté le 18-06-2004 à 23:27:11   

Reply

Sujets relatifs:

Leave a Replay

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