Auf Thema antworten

Beitrag

<blockquote data-quote="Irino987" data-source="post: 2776841" data-attributes="member: 824156">Um die Ergebnisse von objItem.Name direkt abzurufen und einem String zuzuweisen, kannst du die Schleife durch eine einfache Zuweisung ersetzen:Option ExplicitSub GetCPUName()&nbsp; &nbsp; Dim objWMIService As Object&nbsp; &nbsp; Dim colItems As Object&nbsp; &nbsp; Dim objItem As Object&nbsp; &nbsp; Dim strCPUName As String&nbsp; &nbsp; &nbsp; &nbsp; ' Erstelle eine Instanz des WMI-Dienstes&nbsp; &nbsp; Set objWMIService = GetObject(&quot;winmgmts:\\.\root\cimv2&quot;)&nbsp; &nbsp; &nbsp; &nbsp; ' Führe die WMI-Abfrage aus, um die CPU-Informationen zu erhalten&nbsp; &nbsp; Set colItems = objWMIService.ExecQuery(&quot;SELECT * FROM Win32_Processor&quot;)&nbsp; &nbsp; &nbsp; &nbsp; ' Überprüfe, ob CPU-Informationen vorhanden sind&nbsp; &nbsp; If colItems.Count &gt; 0 Then&nbsp; &nbsp; &nbsp; &nbsp; ' Da es sich um eine einzelne CPU handelt, nehmen wir das erste Objekt&nbsp; &nbsp; &nbsp; &nbsp; Set objItem = colItems.ItemIndex(0)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Weise den Wert von objItem.Name der Variablen strCPUName zu&nbsp; &nbsp; &nbsp; &nbsp; strCPUName = objItem.Name&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Gib den Wert von strCPUName aus oder verwende ihn weiter wie gewünscht&nbsp; &nbsp; &nbsp; &nbsp; MsgBox &quot;CPU Name: &quot; &amp; strCPUName&nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; MsgBox &quot;Keine CPU-Informationen gefunden!&quot;&nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; ' Gib die verwendeten Objekte frei&nbsp; &nbsp; Set objWMIService = Nothing&nbsp; &nbsp; Set colItems = Nothing&nbsp; &nbsp; Set objItem = NothingEnd Sub</blockquote>

[QUOTE="Irino987, post: 2776841, member: 824156"] Um die Ergebnisse von objItem.Name direkt abzurufen und einem String zuzuweisen, kannst du die Schleife durch eine einfache Zuweisung ersetzen: Option Explicit Sub GetCPUName() Dim objWMIService As Object Dim colItems As Object Dim objItem As Object Dim strCPUName As String ' Erstelle eine Instanz des WMI-Dienstes Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") ' Führe die WMI-Abfrage aus, um die CPU-Informationen zu erhalten Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor") ' Überprüfe, ob CPU-Informationen vorhanden sind If colItems.Count > 0 Then ' Da es sich um eine einzelne CPU handelt, nehmen wir das erste Objekt Set objItem = colItems.ItemIndex(0) ' Weise den Wert von objItem.Name der Variablen strCPUName zu strCPUName = objItem.Name ' Gib den Wert von strCPUName aus oder verwende ihn weiter wie gewünscht MsgBox "CPU Name: " & strCPUName Else MsgBox "Keine CPU-Informationen gefunden!" End If ' Gib die verwendeten Objekte frei Set objWMIService = Nothing Set colItems = Nothing Set objItem = Nothing End Sub [/QUOTE]

Bilder bitte hier hochladen und danach über das Bild-Icon (Direktlink vorher kopieren) platzieren.

Authentifizierung

Der grüne Frosch hüpft über die Hügel an den Bäumen vorbei in die Höhle. Bitte nenne das vierte Wort!