---

Hallo VB-Forum,
hat einer ne Ahnung wie ich die Prozessorname bzw. nummer auslesen kann? Habe leider in der Hilfe  nix gefunden.

Gruß
Seher

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

guckst du mal hier: http://www.activevb.de/tipps/vb6tipps/tipp0083.html

Gruß,
BJ

------------------
Gruß,
BJ

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi SEHER ;-)

wie du vielleicht in den Kommentaren zu dem Beispiel bei ActiveVB gelesen hast funktioniert der nicht immer korrekt.

es geht aber auch einfacher. Die Ausgabe meines Beispieles ist zwar etwas einfacher, dafür aber mit der richtigen Liste der Modelle (Die Liste suche ich gerade noch  ) kannste den Prozessor dann eindeutig identifizieren.

Code:

---

Public Function Processor() As String
   
    'On Error Resume Next
    Dim oSysInfo As New ActiveDs.WinNTSystemInfo
    Dim oComp As ActiveDs.IADsComputer
    Dim sCompName As String
   
    sCompName = "WinNT://" & _
        oSysInfo.ComputerName & ",computer"
    Set oComp = GetObject(sCompName)
   
    Processor = oComp.Processor

End Function

Private Sub Form_Load()
    Debug.Print Processor
End Sub

---

Dann noch über den Objekt-Katalog die Active DS Type Library einbinden und starten. Als Ergebnis kommt dann sowas wie 'x86 Family 15 Model 1 Stepping 2' und genau das meinte ich oben, die Liste such ich noch, hab bisher nur eine alte gefunden, die nur bis zum Pentium Pro geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo VB-Forum,
suche nicht die Art des Prozessors, sondern die eindeutige ID
Habe folgendes gefunden und die funktioniert wunderbar. Leider ein bisschen langsam. Hat die ID immer 16 Stellen? Weiß das einer?
Gruß
Seher

Sub ListProcessorProperties( strComputer )
    Dim objWMIService, colItems

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48)
For Each objItem in colItems
    Wscript.Echo "AddressWidth: " & objItem.AddressWidth
    Wscript.Echo "Architecture: " & objItem.Architecture
    Wscript.Echo "Availability: " & objItem.Availability
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
    Wscript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
    Wscript.Echo "CpuStatus: " & objItem.CpuStatus
    Wscript.Echo "CreationClassName: " & objItem.CreationClassName
    Wscript.Echo "CurrentClockSpeed: " & objItem.CurrentClockSpeed
    Wscript.Echo "CurrentVoltage: " & objItem.CurrentVoltage
    Wscript.Echo "DataWidth: " & objItem.DataWidth
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "DeviceID: " & objItem.DeviceID
    Wscript.Echo "ErrorCleared: " & objItem.ErrorCleared
    Wscript.Echo "ErrorDescription: " & objItem.ErrorDescription
    Wscript.Echo "ExtClock: " & objItem.ExtClock
    Wscript.Echo "Family: " & objItem.Family
    Wscript.Echo "InstallDate: " & objItem.InstallDate
    Wscript.Echo "L2CacheSize: " & objItem.L2CacheSize
    Wscript.Echo "L2CacheSpeed: " & objItem.L2CacheSpeed
    Wscript.Echo "LastErrorCode: " & objItem.LastErrorCode
    Wscript.Echo "Level: " & objItem.Level
    Wscript.Echo "LoadPercentage: " & objItem.LoadPercentage
    Wscript.Echo "Manufacturer: " & objItem.Manufacturer
    Wscript.Echo "MaxClockSpeed: " & objItem.MaxClockSpeed
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "OtherFamilyDescription: " & objItem.OtherFamilyDescription
    Wscript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
    Wscript.Echo "PowerManagementCapabilities: " & objItem.PowerManagementCapabilities
    Wscript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported
    Wscript.Echo "ProcessorId: " & objItem.ProcessorId
    Wscript.Echo "ProcessorType: " & objItem.ProcessorType
    Wscript.Echo "Revision: " & objItem.Revision
    Wscript.Echo "Role: " & objItem.Role
    Wscript.Echo "SocketDesignation: " & objItem.SocketDesignation
    Wscript.Echo "Status: " & objItem.Status
    Wscript.Echo "StatusInfo: " & objItem.StatusInfo
    Wscript.Echo "Stepping: " & objItem.Stepping
    Wscript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
    Wscript.Echo "SystemName: " & objItem.SystemName
    Wscript.Echo "UniqueId: " & objItem.UniqueId
    Wscript.Echo "UpgradeMethod: " & objItem.UpgradeMethod
    Wscript.Echo "Version: " & objItem.Version
    Wscript.Echo "VoltageCaps: " & objItem.VoltageCaps
Next
End Sub

' ****************************************************************************
' Main
' ****************************************************************************
Dim strComputer
Do
  strComputer = inputbox( "Please enter a computername or . for local computer", "Input" )
Loop until strComputer <> ""

ListProcessorProperties( strComputer )

WScript.Echo( vbCrlf & "For more samples, goto http://www.activxperts.com/activmonitor and click" )
WScript.Echo( "on WMI samples" )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Seher,

feines Programm. Da kann man ja durchŽs ganze Firmennetz klicken. Alle Arbeitsplätze die ich inspiziert habe haben eine 16-stellige ID. Kann mir jetzt noch jemand verraten wie ich meine CPU-Speed hochdrehe, und die von meinem Chef runter ?

Gruß Andreas

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP