Discussion :

[megamario]

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:



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

[Danyel]

Pourquoi ne pas tout simplement lancer le process du systools ?

[foliv57]

Tout à fait d'accord avec Danyel.

Un petit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

devrait faire l'affaire

[megamario]

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

[Danyel]

à 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\

[Danyel]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[megamario]

Merci, je vais regarder sa lundi avec attention.

[megamario]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.