Bonjour au moins une personnes qui a une petite tour peut essayer ce code SVP sans la divulger.
Dans les references du projet vous mettez Microsoft WMI scripting
ET vous entrez ce code dans load
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colChassis = objWMIService.ExecQuery _
("Select * from Win32_SystemEnclosure")
For Each objChassis in colChassis
For Each objItem in objChassis.ChassisTypes
msgbox "Chassis Type: " & objItem
Next
Next
et vous me dite quel est votre nombre.
Merci c assez important
Et SVP ne mettez pas ce code sur le site car se serait pas très sympas meri d'avance !!!!!
Répondez vite
JRB