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 |
Partager