Discussion :

[ABOAT]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[SfJ5Rpw8]

Bonjour,

tiens voilà de quoi commencer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ABOAT]

Bonjour,

tiens voilà de quoi commencer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !