Discussion :

[Invité]

J'aimerais savoir comment faire pour faire une requête sur les 2 premiers chiffres que renvois

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery ("Select * from Win32_Product Where Caption Like '%Microsoft Office%'")
For Each objItem In colItems
 
        If objItem.Version = "14.0.6029.1000" Then
 
        objXL.Cells(i+2,9).value="Office 2010"
Else
objXL.Cells(i+2,9).value="Other"
End If
   Next

Comme il y a plusieurs version en fonction des SP...

et idéalement un Else If pour les autres versions d'Office


Merci

[pc75]

Bonjour,

Je ne suis pas sur d'avoir bien compris ta question mais ?

Code :

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

1
2
 
If Left(objItem.Version, 2) = "14" Then

[Invité]

Nice merci bien

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
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery ("Select * from Win32_Product Where Caption Like '%Microsoft Office%'")
For Each objItem In colItems
		If Left(objItem.Version, 2) = "14" Then
 
        objXL.Cells(i+2,9).value="Office 2010"
 
ElseIf Left(objItem.Version, 2) = "12" Then
objXL.Cells(i+2,9).value="Office 2007"
ElseIf Left(objItem.Version, 2) = "11" Then
objXL.Cells(i+2,9).value="Office 2003"
ElseIf Left(objItem.Version, 2) = "10" Then
objXL.Cells(i+2,9).value="Office XP"
Else
objXL.Cells(i+2,9).value="Autre"
End If
   Next

Ça fonctionne bien...