Script Détection Windows ne fonctionne pas sous Seven

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Script Détection Windows ne fonctionne pas sous Seven

Eysinem

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 :

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
Select Case Systeme
Case "Microsoft Windows XP Professionnel"
Msgbox "On est sur XP"
Case "Microsoft Windows 7 Professionnel"
Msgbox "On est sur 7"
End Select
Next

Publicité

NiKaro127

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Script Détection Windows ne fonctionne pas sous Seven

Sujets relatifs
partage windows avec php	Question sur un script qui ajoute un profil Outlook
Iompatibilité script entre Seven et XP	[windows] Captures d'écrans en lignes de commandes
[SHELL UNIX] Fermer le terminal a la fin d un script shell	Script Javascript - Fond d'une partie du site
[Topic Unique] Programmation Windows 8 / WinRT / Metro	[GlovePIE] Programation script wiimote
Script d'ouverture de fenetres
Plus de sujets relatifs à : Script Détection Windows ne fonctionne pas sous Seven

Page générée en 0.041 secondes