Salut !
Je suis en train d'élaborer un script qui récupère des valeurs WMI pour ensuite exécuter des actions en fonction.

Je bute sur un problème. Je récupère actuellement 2 valeurs WMI, le BuildNumber et OsArchitecture.

Quand je fais un select sur le buildnumber ca fonctionne, et par contre pas sur le osarchitecture, malgré que la valeur soit exacte.

Je dois surement oublié quelque chose.

Je vous joins l'ébauche de script qui ne fait que du msgbox pour le moment.

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
38
39
40
41
42
43
44
 
'Script pour modifier le bios de la machine
strComputer = "."
' Requete pour trouver le Modele du poste pour les drivers 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set colWMIItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem",,48)
 
For Each objWMIItem in colWMIItems 
Architecture = replace((TRIM(objWMIItem.osarchitecture))," ","")
BuildNumber = objWMIItem.BuildNumber
Next
 
'msgbox("Case Architecture Windows en : " & Architecture)
 
' Variable Declaration
Dim objShell
Dim objFSO
' Variable Initialisations
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
' Action du Maj du bios en fonction du Model
 
Select Case Architecture
 
Case "32Bits"
msgbox("Case Architecture Windows en : " & Architecture)
msgbox BuildNumber
Case "64Bits"
        msgbox("Case Architecture Windows en : " & Architecture)
msgbox Architecture
msgbox BuildNumber
End Select
 
 
' Action du Maj du bios en fonction du Model
Select Case BuildNumber
Case "7601"
msgbox("Case BuildNumber Windows en : " & BuildNumber)
 
Case "2600"
      msgbox("Case BuildNumber Windows en : " & BuildNumber)
 
End Select
Si vous avez une idée...

Merci d'avance.