Savoir l'os (avec le registre)

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_et1)