WSH(・∀・)ｽﾚｯﾄﾞ! Part 4 ttp://pc12.2ch.net/test/read.cgi/tech/1243095768/210-218
Item Items ItemIndex とかいろいろ試したんだけど。
・・・UWSCでのやり方出てきた。GetOleItem使うのか。 ttp://siromasa.xxxxxxxx.jp/Term/4ta1.html Function Processor(Obj_CS) Dim Col_Processor = Obj_CS.ExecQuery("SELECT * FROM Win32_Processor") Dim i, Str For i = 0 To GetOleItem(Col_Processor) - 1 Dim Obj = All_Ole_Item[i] If i > 0 Then Str = "<#CR>" + Str Str = "Cpu" + "[" + GHz(Obj.MaxClockSpeed) + "] [" + Trim(Obj.Name) + "]" Next Result = Str FEnd
