Savoir l'os (avec le registre)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 814 fois - Téléchargée 29 fois

Contenu du snippet

Voici un petit code qui permet de savoir quel version de Windows est installée sur le PC.
Pour cela, il va regarder une valeur du registre :

Source / Exemple :


Dim os, NTXP, ME9x
	dim r = createObject("WScript.Shell") 'ActiveX pour lire, écrire ou supprimer dans le registre

        On Error Resume Next
        NTXP = r.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
        If NTXP <> "" Then
            os = NTXP
        End If
        On Error Resume Next
        ME9x = r.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductName")
        If ME9x <> "" Then
            os = ME9x
        End If

	'Il suffit de mettre " & os & " pour faire apparaitre l'os, Exemple :
	Msgbox("Vous possédez : " & os & "")

Conclusion :


---by ET1---

A voir également

Ajouter un commentaire

Commentaires

Messages postés
376
Date d'inscription
mardi 2 décembre 2003
Statut
Membre
Dernière intervention
24 avril 2013

ok!!!, super merci beaucoup
Messages postés
250
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2011
7
Bonsoir,
Pas besoin de zip, juste faire un copier/coller du code la ou tu veux. (dans l'évenement du click sur un bouton par exemple)
@+
Messages postés
376
Date d'inscription
mardi 2 décembre 2003
Statut
Membre
Dernière intervention
24 avril 2013

salut!!! ca a l'air interessant, mais serait-il possible d'avoir le .zip ? je sais j'abuse, mais je débute depuis tout juste 1 semaine, et j'ai encore du mal :(

merci d'avance
Messages postés
250
Date d'inscription
vendredi 14 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2011
7
Bonjour, j'ai programmé le code avec vb.net, c'est pour cela que j'ai mis "Dim r" au lieu de "Set r".
Le code ne présise pas tous sur les OS, mais voici ce qu'il indique :
-Microsoft Windows 95
-Microsoft Windows 98
-Microsoft Windows ME
-Microsoft Windows 2000
-Microsoft Windows NT
-Microsoft Windows XP

J'ai mis ce code car il est clair et simple, mais tu as raison, le code de jeremy6381 est mieux.
A +
Messages postés
95
Date d'inscription
lundi 9 juin 2003
Statut
Membre
Dernière intervention
2 juin 2010

Bonjour,

pour être complet il faut remplacer :
- dim r = createObject("WScript.Shell") par
- Set r = createObject("WScript.Shell")
Comme cette source s'adresse aux débutant, il faut également ajouter la référence
"Microsoft Scripting Runtime" (==> Menu Projet - Références)

Ta source fonctionne mais n'est pas précise quant à l'os utilisé.
Je te recommence donc d'aller voir la sources (http://www.vbfrance.com/code.aspx?ID=21392)de jeremy6381 qui détecte via un Module, l'os exacte utilisé.
Son système détecte les OS suivants :

- Windows 95
- Windows 95 OSR-2
- Windows NT 4.0 workstation
- Windows NT 4.0 Server
- Windows 98
- Windows Millenium
- Windows 2000 Professionnel
- Windows 2000 Server (Server / Advanced server / DataCenter)
- Windows XP Professionnel
- Windows XP Familial
- Windows 2003

Néanmoins un débutant appréciera de pouvoir comprendre comment fonctionne la Base De Registre graceà ta source ;)
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.