Récupérer information sur l'édition/version de W7

Bonjour,
je voudrais récupérer des informations sur la version de Windows 7 ( exemple si c'est windows 7 intégrale , familiale premium...)
j'ai trouvé des sources mais sa ne me donne que la build et sa me dit Windows NT 7.0.... Mais ce n'est pas ce que je veux.
Si vous avez des sources je suis preneur :)

:ccool:

Bonjour,

tu trouvera p-e ton bonheur sur se lien:
http://www.codeproject.com/Articles/...o-Even-for-Win

Extrait C#

Code:

---

sb.AppendLine(String.Format("Edition = {0}", OSVersionInfo.Edition));

---

J'ai pas l'impression que sa existe en VB j'ai tout cherché mais je ne trouve que OSVersion et pas édition et malheureusement j'ai pas trouvé d'équivalent :'(

Citation:

---

Envoyé par CLeBeR

J'ai pas l'impression que sa existe en VB j'ai tout cherché mais je ne trouve que OSVersion et pas édition et malheureusement j'ai pas trouvé d'équivalent :'(

---

Je n'ai jamais entendu parler de cette propriété Edition dans .Net (ce n'est pas lié au langage de toute façon).

En revanche tu peux récupérer l'information qui t'intéresse avec la fonction GetProductInfo.

doc ici :

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

Je ne connais pas d'implémentation de cette fonction dans le framework.

Les gars j'ai trouvé la parade !!! :) Mais j'ai un petit soucis donc déjà voici comment trouver la version de Windows 7
Dans le reg edit il suffit de développer les dossiers :

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion

il y a ensuite la clé EditionID où là est mentionné en donnée de la valeur l'édition de windows 7, j'ai donc cherché comment lire une valeur du regedit en vb.NET mais je n'arrive pas à interpréter le cours qui est présent sur le site

J'ai tenté sa mais sa rime à rien :?

Code:

---

1 2 3 4

Dim key As Microsoft.Win32.RegistryKey key = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("EditionID") Dim name As String = CType(key.GetValue("Nom"), String) MsgBox(name)

---

Et donc pour lire la valeur et l'afficher dans un messagebox par exemple :

Code:

---

msgbox(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "EditionID", ""))

---