Les instructions multiples selon les "IF"

Version imprimable

Bonjour , Bonsoir

Je voudrait faire :
Si l'ordinateur est un Windows 8.1 alors
MsgBox "Pour win 8.1"
Suite de code a exécuter pour 8.1

Si l'ordinateur est un Windows XP alors
MsgBox "Ta win XP pas grave"
Suite du code a exécuter pour XP
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 For Each objItem in colItems data = objItem.Caption If (data=8.1)=vraie Then MsgBox "Bravo ta un Windows 8.1" Suite du code a exécuter pour 8.1 If (data=XP)=vraie Then MsgBox "Ta win XP pas grave" Suite du code a exécuter pour XP Else End If MsgBox "Non pas ta un wind 8.1 ou XP" Suite du code a exécuter pour autre que win 8.1 et XP Next
Je c'est que le code est faux est je ne pas trouve de solution sur internet
Désolé je suis encore un novice soyer indulgent ^^
Merci d'avance!

Bonjour,

tiens voilà de quoi commencer :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Dim stVersion
 
stVersion = versionWindows
 
IF InStr(1,StVersion,"XP") > 0 then
	MsgBox "XP"
elseif InStr(1,StVersion,"7") > 0 then
   MsgBox "Seven"
elseif InStr(1,StVersion,"8") > 0 then
   MsgBox "8"
 
   else
 
    MsgBox stVersion & " Inconnu"
end if
 
 
 
 
 
 
'
' Lecture version windows
'
Function VersionWindows() 
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
 
For Each objOperatingSystem in colOperatingSystems
 
	VersionWindows = objOperatingSystem.Caption 
Next
end function

Citation:

Envoyé par bbil

Bonjour,

tiens voilà de quoi commencer :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Dim stVersion
 
stVersion = versionWindows
 
IF InStr(1,StVersion,"XP") > 0 then
	MsgBox "XP"
elseif InStr(1,StVersion,"7") > 0 then
   MsgBox "Seven"
elseif InStr(1,StVersion,"8") > 0 then
   MsgBox "8"
 
   else
 
    MsgBox stVersion & " Inconnu"
end if
 
 
 
 
 
 
'
' Lecture version windows
'
Function VersionWindows() 
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
 
For Each objOperatingSystem in colOperatingSystems
 
	VersionWindows = objOperatingSystem.Caption 
Next
end function

Merci c'est exactement ça que je chercher !
Résolu !