begin process at 2012 02 13 08:33:39
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Base de registre

 > SAVOIR L'OS (AVEC LE REGISTRE)

SAVOIR L'OS (AVEC LE REGISTRE)


 Information sur la source

Note :
4,67 / 10 - par 3 personnes
4,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Base de registre Niveau :Débutant Date de création :18/05/2005 Date de mise à jour :19/05/2005 18:34:35 Vu :5 602
Auteur : et1

Ecrire un message privé
Site perso
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

 Description

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

  • 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 & "")
	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---


 Historique

19 mai 2005 18:34:35 :
Légère simplification du code

 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) PAGESWEBCONTROL 1.0 - CONTROLEZ LES PAGES WEB AFFICHÉES AVEC...
Source avec Zip Source avec une capture Source .NET (Dotnet) SKYBLOGPICTURES 1.0 - TÉLÉCHARGEZ LES IMAGES DES SKYBLOG !
Source avec Zip Source .NET (Dotnet) EXTRAIRE LES FRAMES D'UN GIF ANIMÉ
Source avec Zip Source avec une capture Source .NET (Dotnet) BARRE DE TITRE DE LA FENÊTRE AVEC SON PROPRE DÉSIGN.
Source avec Zip Source avec une capture Source .NET (Dotnet) IEPASSRECUP 1.0 ! RÉCUPÉREZ LES MOTS DE PASSE STOCKÉS AVEC I...
Toutes les sources de et1

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) SHELLVIEW EN VB.NET par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) AJOUTER OU SUPPRIMER MENU CONTEXTUEL D'APPLICATION PAR CLIC ... par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) MODIFIER IMAGE COULEUR EN NOIR ET BLANC PAR CLIC DROIT par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) RENOMMER TOUS LES FICHIERS D'UN DOSSIER PAR CLIC DROIT par Le Pivert
Source avec Zip Source avec une capture Source .NET (Dotnet) REDIMENSIONNER ET IMPRIMER FORMAT PHOTO (10X15) par Le Pivert
Toutes les sources de la catégorie Base de registre

Commentaires et avis

Commentaire de NHenry le 19/05/2005 12:27:14 administrateur CS

tes # If NTXP = "" Then
#         Else
#             os = NTXP
#         End If
peuvent etre remplacés par
# If NTXP <> "" Then
#             os = NTXP
#         End If

Commentaire de et1 le 19/05/2005 18:30:57

OK, Merci

Commentaire de Fraggy le 20/05/2005 02:52:18

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 ;)

Commentaire de et1 le 20/05/2005 09:35:50

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 +

Commentaire de VestaX le 21/03/2008 17:23:40

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

Commentaire de et1 le 21/03/2008 22:11:54

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)
@+

Commentaire de VestaX le 22/03/2008 12:18:26

ok!!!, super merci beaucoup

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy S
Entre 529€ et 529€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Beautiful woman in a bikini meditating on the beach
Photo Framed Landscape Image of Monument Valley 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,636 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)