10/04/28 03:26:20 IFvYJtzA0
.length じゃなくて .Countだったっぽいけど、配列アクセスはできないものもあるらしい。
よくわからないけどもしかしたらそれかも。
WSH(・∀・)ｽﾚｯﾄﾞ! Part 4
ｽﾚﾘﾝｸ(tech板:210-218番)
Item
Items
ItemIndex とかいろいろ試したんだけど。
・・・UWSCでのやり方出てきた。GetOleItem使うのか。
URLﾘﾝｸ(siromasa.xxxxxxxx.jp)
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