检测是否在 VMware 或虚拟机上运行的 VB6 或 VBScript 代码？答案

【问题标题】：VB6 or VBScript code to detect if running on VMware or Virtual Machines?检测是否在 VMware 或虚拟机上运行的 VB6 或 VBScript 代码？
【发布时间】：2016-08-23 06:57:15
【问题描述】：

是否有 VB6 或 VBScript 代码来检测是否在 VMware 或虚拟机上运行？

以下链接显示了其他编程语言的代码。 VB6 或 VBScript 有办法吗？

Detect virtualized OS from an application?

How to detect if my application is running in a virtual machine?

Detect if your program is running inside a Virtual Machine

【问题讨论】：

标签： vbscript vb6 virtual-machine virtualbox virtualization

【解决方案1】：

Vmware 有 this article 关于不同的方法：

虚拟 BIOS DMI 信息 VMware 虚拟 BIOS 具有许多 VMware 特定的标识符，程序可以使用这些标识符来检测管理程序。对于 DMI 字符串检查，请使用 BIOS 序列号并检查字符串“VMware-”或“VMW”（对于在 Fusion 上运行的 Mac OS X 来宾）。

这是一个访问bios序列号的脚本：

http://www.vbforums.com/showthread.php?572678-RESOLVED-Getting-CPU-ID-and-BIOS-ID

【讨论】：

【解决方案2】：

确认在 Microsoft 和 VMware 工作。

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,authenticationLevel=pktPrivacy}!\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")

For Each objItem in colItems
  strModel = objItem.Model
    If InStr(UCase(strModel), "VIRTUAL") Then
      WScript.Echo "VM"
    End If
Next

【讨论】：