Script Détection Windows ne fonctionne pas sous Seven

Script Détection Windows ne fonctionne pas sous Seven - VB/VBA/VBS - Programmation

Marsh Posté le 29-05-2012 à 16:11:56    

J'utilise le script ci-dessous pour détecter la version de l'OS afin d’afficher le message adéquat.
 
Il marche sous XP mais pas sous Seven.
 
Pouvez-vous m'aider ?
 

Code :
  1. strComputer = "."
  2. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  3. Set oss = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem" )
  5. For Each os in oss
  6. Systeme = os.Caption
  7. Select Case Systeme
  9. Case "Microsoft Windows XP Professionnel"
  10. Msgbox "On est sur XP"
  12. Case "Microsoft Windows 7 Professionnel"
  13. Msgbox "On est sur 7"
  15. End Select
  17. Next

Reply

Marsh Posté le 29-05-2012 à 16:11:56   

Reply

Marsh Posté le 05-10-2012 à 18:31:50    

Il manque le « : » après ton « Case "...": », mais ça ne fonctionne toujours pas j'ai l'impression.
 
Essaie ça :

Code :
  1. strComputer = "."
  3. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  4. Set oss = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem" )
  6. For Each os in oss
  7.     Systeme = os.Caption
  8.     WScript.Echo Systeme
  9.     If Systeme = "Microsoft Windows XP Professionnel" Then
  10.             WScript.Echo "On est sur XP"
  11.     ElseIf Systeme = "Microsoft Windows 7 Professionnel" Then
  12.             WScript.Echo "On est sur 7"
  13.     End If
  14. Next


---------------
Nicolas KAROLAK - Administrateur Systèmes & Réseaux
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed