SAVOIR L'OS (AVEC LE REGISTRE)
NHenry
Messages postés
15116
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
9 mai 2024
-
19 mai 2005 à 12:27
VestaX Messages postés 374 Date d'inscription mardi 2 décembre 2003 Statut Membre Dernière intervention 24 avril 2013 - 22 mars 2008 à 12:18
VestaX Messages postés 374 Date d'inscription mardi 2 décembre 2003 Statut Membre Dernière intervention 24 avril 2013 - 22 mars 2008 à 12:18
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/31448-savoir-l-os-avec-le-registre
https://codes-sources.commentcamarche.net/source/31448-savoir-l-os-avec-le-registre
22 mars 2008 à 12:18
21 mars 2008 à 22:11
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)
@+
21 mars 2008 à 17:23
merci d'avance
20 mai 2005 à 09:35
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 +
20 mai 2005 à 02:52
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 ;)
19 mai 2005 à 18:30
19 mai 2005 à 12:27
# Else
# os = NTXP
# End If
peuvent etre remplacés par
# If NTXP <> "" Then
# os = NTXP
# End If