简易取系统信息加强版

用到了枚举对象模块，打包了。
.如果真 (枚举器1.取枚举接口 (wbemObjectSet)) ' 第一个枚举器
.判断循环首 (枚举器1.枚举 (接口))
SWbemObject ＝ 接口.取对象 ()
.如果真 (枚举器2.取枚举接口 (SWbemObject.读对象型属性 (“Properties_”, ))) ' 第二个枚举器
.判断循环首 (枚举器2.枚举 (接口))
Object ＝ 接口.取对象 ()
信息 ＝ 信息 ＋ Object.读文本属性 (“Name”, ) ＋ “ : ” ＋ Object.读属性 (“Value”, ).取文本 () ＋ #换行符
.判断循环尾 ()
加入成员 (反馈数组, 信息)
信息 ＝ “”
.如果真结束

.判断循环尾 ()