怎么解决虚拟切换网络不可用？？

下面是微软推荐的检测是否运行在微软虚拟机中的代码
' 有需要的人可以参考借鉴
' 属于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