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 :
- ---------------------------------------------------------------
- Dim Service As SWbemServices
- Dim objSet As SWbemObjectSet
- Dim obj As SWbemObject
- Set Service = GetObject("WinMgmts://" & AdrPC & "/root/cimv2" ) /*AdrPc est l'ip de la machine à laquelle je souhaite me connecter*/
- Set objSet = Service.ExecQuery("select * from win32_OperatingSystem" )
- For Each obj In objSet
-
- txtOS.Text = obj.Caption & vbCrLf & obj.csdversion
-
- Next obj
- ---------------------------------------------------------------
|
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