CONNAITRE LE FABRIQUANT,LE TYPE ET LA VITESSE DU PROCÉSSEUR

Commentaire de VBbigineure le 10/03/2003 16:12:36

Ca fonctionne bien, (même si je le savais, c'était écrit sur la boite de mon PC).
Au fait: si ca donne le nom du constructeur mais que ca ne fonctionne qu'avec INTEL, tu aurais peut être pu remplacer    Lbl_Cons.Caption = StripZero(Constructeur) par Lbl_Cons.caption = "Intel"...
(Mais je dis ça pasque j'adore me moquer des gens qui savent faire des trucs que je sais pas faire...)
Aller... 8/10.

Commentaire de eka808 le 10/03/2003 21:16:09

marche bien avec mon athlon xp sauf le type mais ça c t dit...
8/10

Commentaire de Stormy le 11/03/2003 09:45:05

Cela donnerait à peu près cela (sans la cadence du microprocesseur):

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\" & strComputer & "
ootcimv2")
Set colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_Processor")
For Each objProcessor in colSettings
   If objProcessor.Architecture = 0 Then
      info = "x86 computer."
   ElseIf objProcessor.Architecture = 1 Then
      info = "MIPS computer."
   ElseIf objProcessor.Architecture = 2 Then
      info = "Alpha computer."
   ElseIf objProcessor.Architecture = 3 Then
      info = "PowerPC computer."
   ElseIf objProcessor.Architecture = 6 Then
      info = "ia64 computer."
   Else
      info=  "The computer type could not be determined."
End If
    Wscript.Echo "System Type: " & info &_
    VbCrlf & "Processor: " & objProcessor.Description
Next

ps: Pour la cadence, il y a une fonction ASM plus fonctionnelle que la .dll fournit  @+ et bon code à tous.