Problème de connection à un pc distant avec WMI

Problème de connection à un pc distant avec WMI - VB/VBA/VBS - Programmation

Marsh Posté le 24-11-2005 à 00:10:48    

Bonsoir a tous, je suis étudiant en BTS Informatique de gestion, et j'ai un petit problème avec mon PTI. En résumé mon PTI est une petite application qui va récupérer toutes les caractéristiques de votre machine et vous les afficher (adresse ip,nom domain,type de cpu,quantitée de ram,...) je le code en VB6.
Tout vas bien dans le meilleur des monde quand il s'agit de récupérer c'est infos en locale, ça ce complique un peut lorsque je tente de me connecter à un pc sur le reseau.
Voici comment je procéde:

Code :
  1. ---------------------------------------------------------------
  2. Dim Service As SWbemServices
  3. Dim objSet As SWbemObjectSet
  4. Dim obj As SWbemObject
  5. Set Service = GetObject("WinMgmts://" & AdrPC & "/root/cimv2" ) /*AdrPc est l'ip de la machine à laquelle je souhaite me connecter*/
  6. Set objSet = Service.ExecQuery("select * from win32_OperatingSystem" )
  7. For Each obj In objSet
  8.                
  9.      txtOS.Text = obj.Caption & vbCrLf & obj.csdversion
  10.                
  11. Next obj
  12. ---------------------------------------------------------------


ceci me permet de récupérer le nom de l'OS ainsi que la version du service pack installé
 
Lorsque je rentre l'adresse ip d'un poste du reseau voici l'erreur que j'obtient
 
Erreur d'exécution '462':
Le serveur distant n'existe pas ou n'est pas disponible
 
Je pense que ça vient plutot d'un problème de config plutôt qu'un problème de code.
 
Si quelqu'un aurait une idée pour résoudre ce problème?
Et me confirmer aussi que j'utilise la bonne façon pour récupérer les infos et me connecter aux machines sur le reseau?
 
Merci d'avance et bonne soirée

Reply

Marsh Posté le 24-11-2005 à 00:10:48   

Reply

Marsh Posté le 28-11-2005 à 16:52:56    

J'ai reussi à résoudre mon problème , mais maintenant un autre ce pose a moi :s
dans ma chaine de connection:
Set Service = locator.ConnectServer(AdrPC, , txtLogin.Text, txtMDP.Text)
il m'affiche le message d'erreur accées refusé, mais si je rentre les valeur en dur
Set Service = locator.ConnectServer("192.168.23.240", , "administrateur", "" )
ca marche :s
Vous avez une idée?

Reply

Marsh Posté le 20-07-2006 à 14:50:38    

Excuses moi mais comment as tu resolu ton premier probleme stp...
 
Merci d'avance
 
Steph

Reply

Sujets relatifs:

Leave a Replay

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