Win 2000 encore : processeurs

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 396 fois - Téléchargée 64 fois

Contenu du snippet

Compatibilité : Win2000 uniquement

Creer un fichier avec extention VBS , mettez ce code dedans, puis double cliquez (ou executer) ce fichier depuis l'environnement Windows.

Ce code permet de voir les processeurs en cours sous Win2000

Bon courage.

Source / Exemple :


Dim p, liste
Dim s
s = ""

Set liste =  GetObject("winmgmts:").InstancesOf("Win32_Processor")
for each p in liste
  s = s & vbCRLF & "  Nom : "                  & p.Name
  s = s & vbCRLF & "  Architecture : "      & p.Architecture
  s = s & vbCRLF & "  ProcessorType : "      & p.ProcessorType
  s = s & vbCRLF & "  Role  : "      & p.Role
  s = s & vbCRLF & "  MaxClockSpeed : "      & p.MaxClockSpeed
  s = s & vbCRLF & "  CurrentVoltage : "      & p.CurrentVoltage
  s = s & vbCRLF & "  Description : "          & p.Description
  s = s & vbCRLF & "  L2CacheSize : "          & p.L2CacheSize
  s = s & vbCRLF & "  L2CacheSpeed : "          & p.L2CacheSpeed
  s = s & vbCRLF & "  Manufacturer : "      & p.Manufacturer
   s = s & vbCRLF
  
next

MsgBox s

Conclusion :


Hihi

A voir également

Ajouter un commentaire

Commentaires

clements0
Messages postés
5
Date d'inscription
dimanche 19 février 2012
Statut
Membre
Dernière intervention
25 mai 2012
-
Cela marche aussi sous XP
cs_SHIVA
Messages postés
97
Date d'inscription
vendredi 28 décembre 2001
Statut
Membre
Dernière intervention
1 décembre 2003
-
SUPER

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.