检测虚拟机模块

.子程序 IsVMHost, 逻辑型, 公开
.局部变量 对象, 对象

对象.创建 (“MSScriptControl.ScriptControl”, )
对象.写属性 (“Language”, “VBScript”)
对象.数值方法 (“AddCode”, #常量1)
返回 (对象.通用方法 (“Eval”, “IsVMHost()”).取逻辑值 ())检测虚拟机模块开源。