获取硬件信息模块

.子程序 取硬件信息, 文本型, 公开
.参数 类型, 文本型, 可空, 默认 #磁盘序列号
.局部变量 VBScript, 对象

.如果 (是否为空 (类型))
类型 ＝ #磁盘序列号
.否则
.如果真 (类型 ≠ #MAC 且 类型 ≠ #CPUID 且 类型 ≠ #磁盘序列号 且 类型 ≠ #声卡 且 类型 ≠ #显卡 且 类型 ≠ #BIOS)
类型 ＝ #磁盘序列号
.如果真结束

.如果结束
VBScript.创建 (“ScriptControl”, )
VBScript.写属性 (“Language”, “VBScript”)
VBScript.数值方法 (“ExecuteStatement”, #GetTrait)
返回 (删首尾空 (VBScript.通用方法 (“Run”, “GetTrait”, 类型).取文本 ()))
易语言获取硬件信息模块例子。