用於檢測在VMware或虛擬機上運行的VB6或VBScript代碼？

Question

是否有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

Answer 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

Answer 2

證實了微軟和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