obtenir version systeme

Salut
Un bout de code qui traine sur mon DD.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option explicit
 
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
On Error Resume Next
Dim RestrictAnonymous, strComputer, Reg, OSTYPE
'Set objFirewall = CreateObject("HNetCfg.FwMgr")
strComputer = "."
Set Reg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
Reg.GetStringValue HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName", OSTYPE
' Si pas XP=>FIN
If OSTYPE <> "Microsoft Windows XP" Then
 'End
 msgbox OSTYPE
 else
 msgbox OSTYPE
End if

voire aussi dans la FAQ ICI en VB6 adaptable facilement en VBScript.