如何检测是否运行在微软的虚拟机中(代码)

　2007-11-03 00:29:21　来源：WEB开发网　闂備線娼уΛ鎾箯閿燂拷

濠电姭鎷冮崨顓濈捕闂侀潧娲ゅú銊╁焵椤掍胶鈯曢柕鍥╁仧缁辩偤鏁撻敓锟�闂備線娼уΛ鎾箯閿燂拷　　闂備胶枪缁绘鈻嶉弴銏犳瀬闁绘劕鎼痪褔鏌曟繝蹇曠窗闁煎壊浜滈—鍐偓锝庡墮娴犙勭箾閸喎鐏ユい鏇樺劦椤㈡瑩鎮℃惔銇帮拷

核心提示：' 如何检测是否运行在微软的虚拟机环境的脚本程序代码'' 下面是微软推荐的检测是否运行在微软虚拟机中的代码' 有需要的人可以参考借鉴' 属于VBscript脚本语言编写' --Dim ManufacturerstrComputer = "."Set o

' 如何检测是否运行在微软的虚拟机环境的脚本程序代码
'
' 下面是微软推荐的检测是否运行在微软虚拟机中的代码
' 有需要的人可以参考借鉴
' 属于VBscript脚本语言编写
' ----------------------------------------------------------

Dim Manufacturer

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")

For Each objItem in colItems
Manufacturer = objItem.Manufacturer
Next

if Manufacturer = "Microsoft Corporation" then
wscript.echo "In Microsoft virtual machine"
else
wscript.echo "Not in Microsoft virtual machine"
end if