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---
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.