[prog] Comment obtnir la version de Windows

Sun, 29 Jan 2006 06:22:12 -0800 

Bonjour,
Voici une macro qui devrait me donner la version de Windows.
Elle fonctionne bien avec Win98, mais ne donne rien avec WinXP.

Avez-vous une idée ?

D'avance merci.



Function VersionWinValue as String
       Dim sVersion as String
       Globalscope.BasicLibraries.LoadLibrary("ImportWizard")
OpenRegKey(HKEY_LOCAL_MACHINE,"Software\Microsoft\Windows\CurrentVersion\") sVersion = QueryValue(HKEY_LOCAL_MACHINE,"Software\Microsoft\Windows\CurrentVersion\","ProductName") If sVersion <> "" Then 
           VersionWinValue = sVersion
       Else
OpenRegKey(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows NT\CurrentVersion\") sVersion = QueryValue(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductName") 
           VersionWinValue = sVersion
       EndIf
      Print VersionWinValue
End Function

--
Didier Dorange-Pattoret

http://www.dmaths.org
http://sesamath.net



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à