angedead
Messages postés9Date d'inscriptionvendredi 20 août 2004StatutMembreDernière intervention10 avril 2008
-
2 juil. 2005 à 11:02
cs_sitemo
Messages postés341Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention29 juin 2011
-
2 juil. 2005 à 14:13
Je cherche le moyen de récupérer le numéro de serie du windows installé sur mon ordinateur.ou du numéro de serie de l'ordinateur
quelqu'un peut t'il m'aider ?
arrComputers = Array("name of your machine")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM CIM_Chassis", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo objitem.SerialNumber
Next
Next