Auf Thema antworten

Beitrag

<blockquote data-quote="Enigmon" data-source="post: 2776277" data-attributes="member: 6117">Hallo,Ich komme bei dem Code einfach nicht weiter.Den untenstehenden Code habe ich im Internet gefunden und er funktioniert auch als Makro in Excel 365.Ich möchte aber nicht die for Each Schleife durchlaufen, sondern gleich das Ergebnis von<code class="bbCodeInline"></code><code class="bbCodeInline">objItem.Name</code><code class="bbCodeInline"></code>&nbsp;haben.Wie kann ich die einzelnen Ergebnisse in der Objektreferenz ObjCPU abrufen, damit ich sie gleich einem String übergeben kann.Vielen Dank schon mal im VorausLG Thomas<code class="bbCodeInline"></code><code class="bbCodeInline">strComputerName = Environ(&quot;ComputerName&quot;)</code><code class="bbCodeInline"></code><code class="bbCodeInline"></code><code class="bbCodeInline">'** Objektvariable setzen</code><code class="bbCodeInline">Set objCPU = GetObject(&quot;winmgmts:\\&quot; &amp; strComputerName &amp; &quot;\root\cimv2&quot;). _</code><code class="bbCodeInline">&nbsp; &nbsp; ExecQuery(&quot;Select * from Win32_Processor&quot;)</code>&nbsp;<code class="bbCodeInline"></code><code class="bbCodeInline">'** CPU-Paramter auslesen</code><code class="bbCodeInline">For Each objItem In objCPU</code><code class="bbCodeInline">&nbsp; &nbsp; Debug.Print &quot;Prozessor&nbsp;&nbsp; : &quot; &amp; objItem.DeviceID</code><code class="bbCodeInline">&nbsp; &nbsp; Debug.Print &quot;Name&nbsp; &nbsp; &nbsp; &nbsp; : &quot; &amp; Trim$(objItem.Name)</code><code class="bbCodeInline">&nbsp; &nbsp; Debug.Print &quot;Takt (MHz)&nbsp; : &quot; &amp; objItem.MaxClockSpeed</code><code class="bbCodeInline">&nbsp; &nbsp; Debug.Print &quot;CPU ID&nbsp; &nbsp; &nbsp; : &quot; &amp; objItem.ProcessorId</code><code class="bbCodeInline">&nbsp; &nbsp; Debug.Print &quot;Computername: &quot; &amp; objItem.path_.server</code><code class="bbCodeInline">&nbsp;&nbsp; </code><code class="bbCodeInline">&nbsp;&nbsp; </code><code class="bbCodeInline">Next</code><code class="bbCodeInline"></code></blockquote>

[QUOTE="Enigmon, post: 2776277, member: 6117"] Hallo, Ich komme bei dem Code einfach nicht weiter. Den untenstehenden Code habe ich im Internet gefunden und er funktioniert auch als Makro in Excel 365. Ich möchte aber nicht die for Each Schleife durchlaufen, sondern gleich das Ergebnis von [ICODE] objItem.Name [/ICODE] haben. Wie kann ich die einzelnen Ergebnisse in der Objektreferenz ObjCPU abrufen, damit ich sie gleich einem String übergeben kann. Vielen Dank schon mal im Voraus LG Thomas [ICODE] strComputerName = Environ("ComputerName") '** Objektvariable setzen Set objCPU = GetObject("winmgmts:\\" & strComputerName & "\root\cimv2"). _ ExecQuery("Select * from Win32_Processor") '** CPU-Paramter auslesen For Each objItem In objCPU Debug.Print "Prozessor : " & objItem.DeviceID Debug.Print "Name : " & Trim$(objItem.Name) Debug.Print "Takt (MHz) : " & objItem.MaxClockSpeed Debug.Print "CPU ID : " & objItem.ProcessorId Debug.Print "Computername: " & objItem.path_.server Next [/ICODE] [/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 zweite Wort!