修改vmx，将vmci0.peresent=ture修改为false

窄口牛

Option Explicit
Dim objFSO, objFile, strFilePath
Dim strContent, strNewContent
Function BrowseForFileByHtaInput()
    Dim wShell, oExec
    Set wShell = CreateObject("WScript.Shell")
    Set oExec = wShell.Exec("mshta.exe ""about:<input type=file id=f>" & _
        "<script>moveTo(0,-9999);resizeTo(0,0);f.click();" & _
        "new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1)." & _
        "WriteLine(f.value);close();</script>""")
    BrowseForFileByHtaInput = oExec.StdOut.ReadLine
End Function
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFilePath = BrowseForFileByHtaInput()
If strFilePath = "" Then
    WScript.Echo "未选择文件，脚本退出。"
    WScript.Quit
End If
If Not objFSO.FileExists(strFilePath) Then
    WScript.Echo "文件不存在: " & strFilePath
    WScript.Quit
End If
If LCase(objFSO.GetExtensionName(strFilePath)) <> "vmx" Then
    WScript.Echo "选择的文件不是.vmx文件，请重新选择。"
    WScript.Quit
End If
Set objFile = objFSO.OpenTextFile(strFilePath, 1) ' ForReading
strContent = objFile.ReadAll
objFile.Close
strNewContent = Replace(strContent, "vmci0.present = ""TRUE""", "vmci0.present = ""FALSE""", 1, -1, vbTextCompare)
If strNewContent = strContent Then
    WScript.Echo "未在文件中找到 'vmci0.present = " & Chr(34) & "TRUE" & Chr(34) & "' 这一行，未作任何修改。"
Else
    Set objFile = objFSO.OpenTextFile(strFilePath, 2) ' ForWriting
    objFile.Write strNewContent
    objFile.Close
    WScript.Echo "修改成功！已将 '" & strFilePath & "' 中的 vmci0.present = " & Chr(34) & "TRUE" & Chr(34) & " 改为 " & Chr(34) & "FALSE" & Chr(34) & "。"
End If
Set objFile = Nothing
Set objFSO = Nothing

修改vmci0.present参数.rar (885 Bytes, 下载次数: 4)

6 天前 上传

点击文件名下载附件

运行vbs，选择要修改的文件即可。

sn4735

以下内容可以将实体电脑的BIOS信息映射到虚拟机中，比如自己的电脑是品牌机，想给虚拟机也安装该品牌机的随机软件，但一些随机软件的安装程序，会检测是不是该品牌的电脑，如果不是则不给安装，导致无法在虚拟机安装，以下内容理论上程度上可以解决该问题

1. hw.model.reflectHost = "TRUE"
   
2. board-id.reflectHost = "TRUE"
   
3. smbios.reflectHost = "TRUE"
   
4. serialNumber.reflectHost = "TRUE"
   
5. efi.nvram.var.MLB.reflectHost = "TRUE"
   
6. efi.nvram.var.ROM.reflectHost = "TRUE"
   
7. cpu.reflectHost = "TRUE"

复制代码

baby666

虽然看不明白，但是感觉很厉害

tanglf

反虚拟机侦查 ？！

zmin66

不说明清楚有啥用

a66

看看有何作用

窄口牛

sn4735 发表于 2026-6-7 20:53
以下内容可以将实体电脑的BIOS信息映射到虚拟机中，比如自己的电脑是品牌机，想给虚拟机也安装该品牌机的随 ...

我以为是能模拟到我主机的bios，就看到这样的变化。

yyz219195888

baby666 发表于 2026-6-7 21:02
虽然看不明白，但是感觉很厉害

我跟你一样

2013kyj

sn4735 发表于 2026-6-7 20:53
以下内容可以将实体电脑的BIOS信息映射到虚拟机中，比如自己的电脑是品牌机，想给虚拟机也安装该品牌机的随 ...

这个只能是针对uefi引导的系统吗?

txdong107

虽然看不明白，但是感觉很厉害

ebaqiang

没有用过，主要啥用途？

sn4735

窄口牛 发表于 2026-6-8 06:49
我以为是能模拟到我主机的bios，就看到这样的变化。

BIOS的功能菜单同步到虚拟机中应该比较费劲，这些代码只是把BIOS中的信息（比如制造商）同步进去，方便在虚拟机安装 有机型检测的 品牌机随机软件（理论上应该也能激活OEM版XP系统）

窄口牛

sn4735 发表于 2026-6-8 09:29
BIOS的功能菜单同步到虚拟机中应该比较费劲，这些代码只是把BIOS中的信息（比如制造商）同步进去，方便在 ...

哦，那没有这个需求。品牌机软件是我必定铲除的东西，不喜欢任何更新，除非确确实实不可少的关于硬件功能的，比如uua，不装声卡用不了。
有些笔记本快捷键，和电源软件绑定了，没办法铲除。

2012andyle113

很久没有用虚拟机了

sn4735

窄口牛 发表于 2026-6-8 10:28
哦，那没有这个需求。品牌机软件是我必定铲除的东西，不喜欢任何更新，除非确确实实不可少的关于硬件功能 ...

是的，品牌机软件99%都是没用的。我自己对这种软件有兴趣，但也轻易不愿意安装到主力机上（毕竟实际上是垃圾），只会在虚拟机里面体验一下

窄口牛

吃上隔哦 发表于 2026-6-9 17:22
求个VirtualBox 方案

什么意思？没明白。

吃上隔哦

sn4735 发表于 2026-6-7 20:53
以下内容可以将实体电脑的BIOS信息映射到虚拟机中，比如自己的电脑是品牌机，想给虚拟机也安装该品牌机的随 ...

求个Virtualbox的方案

Muacs

tanglf 发表于 2026-6-7 21:21
反虚拟机侦查 ？！

2楼那几条指令只能起到简单伪装虚拟机的作用，是把宿主机主板型号和sn序列号之类的透传给虚拟机的BIOS中，不能反虚拟机侦察。
软件和游戏对于虚拟机的检测一般是多方面且严格的。需要进行去虚拟化操作，去除虚拟机的各种特征，比如虚拟机的各种硬件ID，
甚至还有CPU指令集中的特征码，以及BIOS中的特征，操作起来比较复杂，也不是一定能逃过检测。


楼主的那个脚本的作用是快速开启VMCI功能，此功能作用就是让虚拟机与宿主机快速交换数据，修复虚拟机系统启动时的VMCI报错。