[原创]如何检测是否运行在微软的虚拟机中(脚本程序代码)
2006-08-19 02:18:17 来源:WEB开发网核心提示:本站斑竹everin原创 如果有疑问可以来这里和everin交流http://www.xuniji.com/forum/view.asp?id=4590' 如何检测是否运行在微软的虚拟机环境的脚本程序代码'' 下面是微软推荐的检测是否运行在微软虚拟机中的代码' 有需要的人可以参考借鉴
本站斑竹everin原创
如果有疑问可以来这里和everin交流http://www.xuniji.com/forum/view.asp?id=4590
' 如何检测是否运行在微软的虚拟机环境的脚本程序代码
'
' 下面是微软推荐的检测是否运行在微软虚拟机中的代码
' 有需要的人可以参考借鉴
' 属于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
如果有疑问可以来这里和everin交流http://www.xuniji.com/forum/view.asp?id=4590
' 如何检测是否运行在微软的虚拟机环境的脚本程序代码
'
' 下面是微软推荐的检测是否运行在微软虚拟机中的代码
' 有需要的人可以参考借鉴
' 属于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
赞助商链接