Il manque le « : » après ton « Case "...": », mais ça ne fonctionne toujours pas j'ai l'impression.
Essaie ça :
Code :
- strComputer = "."
- Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
- Set oss = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem" )
- For Each os in oss
- Systeme = os.Caption
- WScript.Echo Systeme
- If Systeme = "Microsoft Windows XP Professionnel" Then
- WScript.Echo "On est sur XP"
- ElseIf Systeme = "Microsoft Windows 7 Professionnel" Then
- WScript.Echo "On est sur 7"
- End If
- Next
|
---------------
Nicolas KAROLAK - Administrateur Systèmes & Réseaux
