CONNAITRE LE FABRIQUANT,LE TYPE ET LA VITESSE DU PROCÉSSEUR
VBbigineure
Messages postés
169
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
27 février 2009
-
10 mars 2003 à 16:12
D4rkTiger Messages postés 22 Date d'inscription vendredi 11 novembre 2005 Statut Membre Dernière intervention 23 septembre 2014 - 10 févr. 2007 à 21:36
D4rkTiger Messages postés 22 Date d'inscription vendredi 11 novembre 2005 Statut Membre Dernière intervention 23 septembre 2014 - 10 févr. 2007 à 21:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6427-connaitre-le-fabriquant-le-type-et-la-vitesse-du-processeur
https://codes-sources.commentcamarche.net/source/6427-connaitre-le-fabriquant-le-type-et-la-vitesse-du-processeur
10 févr. 2007 à 21:36
T'aurai pas une idée ?
11 mars 2003 à 09:45
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.
11 mars 2003 à 00:08
10 mars 2003 à 21:16
8/10
10 mars 2003 à 18:13
10 mars 2003 à 16:12
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.