取系统硬件信息模块

参数 ＝ { “计算机名”, “主板”, “CPUID”, “硬盘”, “硬盘序列号”, “声卡”, “显卡”, “BIOS”, “内存”, “MAC”, “光驱”, “操作系统”, “高速缓存”, “系统插槽” }
.如果真 (是否为空 (类型))
类型 ＝ 1
.如果真结束
VBScript.创建 (“ScriptControl”, )
VBScript.写属性 (“Language”, “VBScript”)
VBScript.数值方法 (“ExecuteStatement”, #GetTrait)
处理事件 ()
返回 (删首尾空 (VBScript.通用方法 (“Run”, “GetTrait”, 参数 [类型]).取文本 ()))
易语言取系统硬件信息模块例子。