自動化ツールuwsc使いよ集まれ5

自動化ツールuwsc使いよ集まれ5 at SOFTWARE

373:名無しさん＠お腹いっぱい。
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

次ページ

続きを表示

1を表示