Discussion :

[zab31]

Bonjour,

J'ai essayé de modifier un script trouver ici pour tester si l'OS est windows 10.

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
37
If FindOSType(".") = "Windows 10" Then 
MsgBox "Exécution avec Windows 10",64,"Système d'exploitation"
'votre code pour Windows 10
Else
MsgBox "Exécution avec Windows 7",64,"Système d'exploitation"
'Votre code pour les autres systèmes
end if
 
Function FindOSType(strComputer)
'Defining Variables
    Dim objWMI, objItem, colItems
    Dim OSVersion, OSName, ProductType
 
'Get the WMI object and query results
    Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")
    Set colItems = objWMI.ExecQuery("Select * from Win32_OperatingSystem",,48)
 
'Get the OS version number (first two) and OS product type (server or desktop) 
    For Each objItem in colItems
        OSVersion = Left(objItem.Version,3)
        ProductType = objItem.ProductType
    Next
'Time to convert numbers into names
    Select Case OSVersion
    Case "10.0*"    
		OSName = "Windows 10"
    Case "6.1"
        OSName = "Windows 7"
    End Select
 
'Return the OS name
    FindOSType = OSName
 
'Clear the memory
    Set colItems = Nothing
    Set objWMI = Nothing
End Function

Malheureusement cela ne fonctionne pas. Pourriez-vous m'aider ?

Je vous remercie par avance

[ProgElecT]

Salut zab31, bienvenue sur DVP

Malheureusement cela ne fonctionne pas.

Un peu court comme descriptif de ton problème.

Malgré tout, essais de mettre momentanément un MsgBox dans ta fonction pour vérifier se que contient ta variable OSVersion

Code :

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

1
2
3
4
    Next
'Time to convert numbers into names
    MsgBox OSVersion
    Select Case OSVersion

Car il n'est pas dit que ton Windows 10 ai la version "10.0*" de ton Case

[zab31]

Merci beaucoup avec l'info du Msgbox j'ai pu corrigé le script

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
37
If FindOSType(".") = "Windows 10" Then 
MsgBox "Exécution avec Windows 10",64,"Système d'exploitation"
'votre code pour Windows 10
Else
MsgBox "Exécution avec Windows 7",64,"Système d'exploitation"
'Votre code pour les autres systèmes
end if
 
Function FindOSType(strComputer)
'Defining Variables
    Dim objWMI, objItem, colItems
    Dim OSVersion, OSName, ProductType
 
'Get the WMI object and query results
    Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")
    Set colItems = objWMI.ExecQuery("Select * from Win32_OperatingSystem",,48)
 
'Get the OS version number (first two) and OS product type (server or desktop) 
    For Each objItem in colItems
        OSVersion = Left(objItem.Version,3)
        ProductType = objItem.ProductType
    Next
'Time to convert numbers into names
	Select Case OSVersion
    Case "10."    
		OSName = "Windows 10"
    Case "6.1"
        OSName = "Windows 7"
    End Select
 
'Return the OS name
    FindOSType = OSName
 
'Clear the memory
    Set colItems = Nothing
    Set objWMI = Nothing
End Function

Faut dire que je suis un newbee ^^

[ericlm128]

Je propose un autre code plus simple et complet qui pourra peut être servir à d'autre.

Code vbs :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
OsName = GetShortOsName()
If OsName = "Windows 10" Then 
	MsgBox "Exécution avec " & OsName, 64, "Système d'exploitation"
	' Votre code pour Windows 10
Else
	MsgBox "Exécution avec " & OsName, 64, "Système d'exploitation"
	' Votre code pour les autres systèmes
End If
 
Function GetShortOsName()
	' https://msdn.microsoft.com/fr-fr/library/windows/desktop/ms724832(v=vs.85).aspx
	' https://msdn.microsoft.com/en-us/library/aa394239(v=vs.85).aspx
	' http://www.nogeekleftbehind.com/2013/09/10/updated-list-of-os-version-queries-for-wmi-filters/
 
	For Each objItem in GetObject("winmgmts://./root/cimv2").ExecQuery("Select * from Win32_OperatingSystem",,48)
		version = objItem.Version
		ProductType = objItem.ProductType
	Next
 
	Select Case Left(version, Instr(version, ".") + 1)
	Case "10.0"
		If (ProductType = "1") Then
			GetShortOsName = "Windows 10"
		Else
			GetShortOsName = "Windows Server 2016"
		End If
	Case "6.3"
		If (ProductType = "1") Then
			GetShortOsName = "Windows 8.1"
		Else
			GetShortOsName = "Windows Server 2012 R2"
		End If
	Case "6.2"
		If (ProductType = "1") Then
			GetShortOsName = "Windows 8"
		Else
			GetShortOsName = "Windows Server 2012"
		End If
	Case "6.1"
		If (ProductType = "1") Then
			GetShortOsName = "Windows 7"
		Else
			GetShortOsName = "Windows Server 2008 R2"
		End If
	Case "6.0"
		If (ProductType = "1") Then
			GetShortOsName = "Windows Vista"
		Else
			GetShortOsName = "Windows Server 2008"
		End If
	Case "5.2"
		If (ProductType = "1") Then
			GetShortOsName = "Windows XP 64-Bit Edition"
		ElseIf (Left(Version, 5) = "5.2.3") Then
			GetShortOsName = "Windows Server 2003 R2"
		Else
			GetShortOsName = "Windows Server 2003"
		End If
	Case "5.1"
		GetShortOsName = "Windows XP"
	Case "5.0"
		GetShortOsName = "Windows 2000"
	End Select
End Function

[zab31]

Avec beaucoup de retard... Merci