CPU Informationer

Ja - se www.wbem.dk

Helt præcist:
http://www.wbem.dk/Root/CIMV2/CIM_Processor.asp

Gem exemplet i en fil ex. cpu.vbs.

start den med
cscript cpu.vbs

Min maskine gav dette output:

AddressWidth                =  32
Availability                =  3
Caption                      =  x86 Family 15 Model 2 Stepping 9
ConfigManagerErrorCode      =  Empty
ConfigManagerUserConfig      =  Empty
CreationClassName            =  Win32_Processor
CurrentClockSpeed            =  3000
DataWidth                    =  32
Description                  =  x86 Family 15 Model 2 Stepping 9
DeviceID                    =  CPU0
ErrorCleared                =  Empty
ErrorDescription            =  Empty
Family                      =  2
InstallDate                  =  Empty
LastErrorCode                =  Empty
LoadPercentage              =  2
MaxClockSpeed                =  3000
Name                        =                Intel(R) Pentium(R) 4 CPU 3.00GHz
OtherFamilyDescription      =  Empty
PNPDeviceID                  =  Empty
PowerManagementSupported    =  0
Role                        =  CPU
Status                      =  OK
StatusInfo                  =  3
Stepping                    =  9
SystemCreationClassName      =  Win32_ComputerSystem
SystemName                  =  MEGABROTHER
UniqueId                    =  Empty
UpgradeMethod                =  15

AddressWidth                =  32
Availability                =  3
Caption                      =  x86 Family 15 Model 2 Stepping 9
ConfigManagerErrorCode      =  Empty
ConfigManagerUserConfig      =  Empty
CreationClassName            =  Win32_Processor
CurrentClockSpeed            =  3000
DataWidth                    =  32
Description                  =  x86 Family 15 Model 2 Stepping 9
DeviceID                    =  CPU1
ErrorCleared                =  Empty
ErrorDescription            =  Empty
Family                      =  2
InstallDate                  =  Empty
LastErrorCode                =  Empty
LoadPercentage              =  2
MaxClockSpeed                =  3000
Name                        =                Intel(R) Pentium(R) 4 CPU 3.00GHz
OtherFamilyDescription      =  Empty
PNPDeviceID                  =  Empty
PowerManagementSupported    =  0
Role                        =  CPU
Status                      =  OK
StatusInfo                  =  3
Stepping                    =  9
SystemCreationClassName      =  Win32_ComputerSystem
SystemName                  =  MEGABROTHER
UniqueId                    =  Empty
UpgradeMethod                =  15

Jeg ved godt at det er VB Script, men jeg regner med, at du vha. google og lidt fantasi sagtens kan konvertere det til noget VB kode...

Æhh... Tror jeg desværre ikke at jeg kan... ;-)
Viser den det som jeg skal bruge?

Det der egentlig var min plan var at skaffe lidt hurtig kode, som jeg bare kunne bruge til at smidde de ting ind i mine labels... for eks. lblCPULoad

Hvis du prøver ekspertens søgemaskine, så kommer der små 3 sider med cpu..

http://www.eksperten.dk/spm/Programmering/Visual-Basic/?sort=&order=DESC&status_1=on&status_2=on&status_3=on&spm_creator=&spm_part=&spm_answer=&find=CPU&engine=exp

Var jo det første jeg gjorde... ;-)
Jeg kan baer ikke få nogle af dem til at virke... ;(

Du skal ikke regne med at få temperatur til at virke på nogle computer..

Nej nej... Men jeg forventer at det vil virke på min egen... ;-)
Hvordan får jeg smidt det der VB script ind i mit VB Program?

Og hvordan får jeg temperaturen?

Jeg har lavet det om til denne kode..:

Dim objWbemObjectSet
Dim SWbemServices
Dim SWbemLocator
Dim sProperty
Private Sub Form_Load()
    On Error Resume Next
    Set SWbemLocator = CreateObject("WbemScripting.SWbemLocator")
    Set SWbemServices = SWbemLocator.ConnectServer(sServer, "root\CIMV2")
    Set objWbemObjectSet = SWbemServices.ExecQuery("Select * From CIM_Processor", "WQL")
End Sub

Private Sub tmrUpdate_Timer()
    Set objWbemObjectSet = SWbemServices.ExecQuery("Select * From CIM_Processor", "WQL")
    For Each sProperty In objWbemObjectSet
        lblClockSpeed.Caption = sProperty.CurrentClockSpeed
        txtLoad.Text = sProperty.LoadPercentage & "%"
        lblName.Caption = sProperty.Name
    Next
End Sub

Programmet lagger hver gang at den refresher oplysningerne... Interval = 250
Findes der en bedre måde at gøre det på? Noget som er hurtigere?
En DLL som jeg kan bruge?

Jeg har et mIRC script som kan hente CPU Navn, Clock, Load, L1 & L2 Cache...
Filen hedder Moo.dll, kan jeg ikke bare bruge den til at hente oplysninger med i mit program?

cronck > Jeg fandt en kode til vb så du kan bruge den Moo.dll om det så er samme dll er jeg ikke sikker på, men du kan jo prøve. husk at ligge moo.dll i samme dir som dit project eller under windows/system..

http://www.vbcode.com/asp/showzip.asp?ZipFile=http%3A%2F%2Fwww%2Evbcode%2Ecom%2Fcode%2Fmoodll06022002%2Ezip&theID=6975

Lyder rart... Prøver det lige.. ;-)