Affichage de l'information system

Bonjour,

Je recherche le moyen d'afficher la fenêtre d'information système de Windows depuis VB.net.

Mon logiciel créé en VB.net est une suite d'un logiciel que j'ai modifié en VB6. En VB6, dans l'aide il y a un bouton pour afficher l'information système. Je doit implémenté ce code dans m'a partie VB.net mais malheureusement le code VB6 n'est pas compatible et les quelques modification permettant sa compilation ne permet pas d'ouvrir la fenêtre recherché.

Je ne peut pas vous montré le code que j'ai en VB6, l'auteur n'étant pas la en ce moment je ne peut pas me permettre de diffusé sont travail.

Voila la fenêtre que je cherche à ouvrir:

http://i39.servimg.com/u/f39/13/09/4...h/infosy10.jpg

On cherche à ouvrir cette fenêtre afin de trouver un éventuel dysfonctionnement chez le client.

Le logiciel pouvant être installé sur XP, Vista, 7 voir 98 et ME mais cette fois je suis pas sur que l'on peut installer le frameworks 3.5 sur ce genre de machine.

Merci de votre aide

Pourquoi ne pas tout simplement lancer le process du systools ?

Tout à fait d'accord avec Danyel.

Un petit

Code:

---

Process.Start("C:\Program Files\Fichiers communs\Microsoft Shared\MSInfo\msinfo32.exe")

---

devrait faire l'affaire

Merci bien.

Tout sa pour sa ... :)

En code VB6 il y a bien une 30ne de ligne :) mais il vont rechercher les information dans la base de registre.

Vu que j'utilise la FW 3.5 on oubli 98, Me et 2000. Ce petit code me semble me suffire largement reste à voir si c'est le même chemin pour XP, Vista et 7.

Merci

Citation:

---

Envoyé par megamario

à voir si c'est le même chemin pour XP, Vista et 7.

---

Normalement oui.
Eventuellement voir s'il n'existe pas un pre-chemin pour le \Program Files\Fichiers communs\Microsoft Shared\

Je viens de regarder les repertoires speciaux, mais il n'a pas l'air d'y etre
http://msdn.microsoft.com/fr-fr/library/ms128068.aspx

Au pire du pire du pire tu peux récupérer le chemin à l'aide de la clé de registre, qui doit être la même pour les différents OS je pense.

Code:

---

1 2 3 4

Dim key As Object = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSInfo", "Path", Nothing) If key IsNot Nothing Then Process.Start(key.ToString) End If

---

Merci, je vais regarder sa lundi avec attention.

Citation:

---

Envoyé par foliv57

Au pire du pire du pire tu peux récupérer le chemin à l'aide de la clé de registre, qui doit être la même pour les différents OS je pense.

Code:

---

1 2 3 4

Dim key As Object = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSInfo", "Path", Nothing) If key IsNot Nothing Then Process.Start(key.ToString) End If

---

---

Bonjour, cela marche très bien sur XP en tout cas, je vais essayé avec 7 dés que j'en ai un sous la main.