CONNAITRE LE FABRIQUANT,LE TYPE ET LA VITESSE DU PROCÉSSEUR
VBbigineure
Messages postés169Date d'inscriptionvendredi 27 septembre 2002StatutMembreDernière intervention27 février 2009
-
10 mars 2003 à 16:12
D4rkTiger
Messages postés22Date d'inscriptionvendredi 11 novembre 2005StatutMembreDernière intervention23 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.
D4rkTiger
Messages postés22Date d'inscriptionvendredi 11 novembre 2005StatutMembreDernière intervention23 septembre 2014 10 févr. 2007 à 21:36
Bonjour, moi j'essaie de refaire ton code sous VB Net mais je ne peux pas intégrer ta DLL ?
T'aurai pas une idée ?
cs_Stormy
Messages postés255Date d'inscriptionsamedi 20 avril 2002StatutMembreDernière intervention16 janvier 2007 11 mars 2003 à 09:45
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.
cs_Stormy
Messages postés255Date d'inscriptionsamedi 20 avril 2002StatutMembreDernière intervention16 janvier 2007 11 mars 2003 à 00:08
10 lignes de VBS (par WMI) aurait suffit pour un resultat identique voire meilleur... 6/10
eka808
Messages postés72Date d'inscriptiondimanche 24 novembre 2002StatutMembreDernière intervention29 avril 2005 10 mars 2003 à 21:16
marche bien avec mon athlon xp sauf le type mais ça c t dit...
8/10
yoman64
Messages postés962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 20102 10 mars 2003 à 18:13
Il a dit que c'est le type ki ne fonctionne pas avec les autre fabrikant.
VBbigineure
Messages postés169Date d'inscriptionvendredi 27 septembre 2002StatutMembreDernière intervention27 février 20091 10 mars 2003 à 16:12
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.
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.