Re,


Tout d' abord un grand merci pour ta réactivité.

Dernière question de la soirée :

Je cherche à modifier le numéro de série d'une carte mère une fois celui-ci récupéré par cette procédure :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
'Recuperation du numero de serie de la carte mere
 
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct",,48)
For Each objItem In colItems
 
   WScript.Echo "IdentifyingNumber: " & objItem.IdentifyingNumber
 
strID=objItem.IdentifyingNumber
Next
Peut-on le modifier par une fonction quelconque ?

Merci