"Bernhart MILCENT" <qsqsqsqs@amline.be> a écrit dans le message de
news:%230DZrh8oIHA.1736@TK2MSFTNGP04.phx.gbl...
> oh j'oubliais ...
>
> Comment lui dire au script...
>
> "Si c'est vista fais ceci sinon rien ...."
....
Set Shell = WScript.CreateObject("WScript.Shell")
Key="HKLM\Software\Microsoft\Windows NT\CurrentVersion\CurrentVersion"
version=shell.RegRead(key)
p=InStr(1,version,".")
If p>0 then version=left(version,p-1)
If CInt(version)>=6 Then
' On est sous VISTA
End If
....
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou
http://jc.bellamy.free.fr