找回密码
 注册
搜索
系统gho:最纯净好用系统下载站投放广告、加入VIP会员,请联系 微信:wuyouceo
查看: 153|回复: 5

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

[复制链接]
发表于 昨天 20:41 | 显示全部楼层 |阅读模式
本帖最后由 窄口牛 于 2026-6-7 20:44 编辑

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, 下载次数: 3)
运行vbs,选择要修改的文件即可。
发表于 昨天 20:53 | 显示全部楼层
本帖最后由 sn4735 于 2026-6-7 21:02 编辑

以下内容可以将实体电脑的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"
复制代码


回复

使用道具 举报

发表于 昨天 21:02 | 显示全部楼层
虽然看不明白,但是感觉很厉害
回复

使用道具 举报

发表于 昨天 21:21 | 显示全部楼层
反虚拟机侦查 ?!
回复

使用道具 举报

发表于 昨天 21:39 | 显示全部楼层
不说明清楚有啥用
回复

使用道具 举报

发表于 昨天 22:01 | 显示全部楼层
看看有何作用
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1|闽公网安备35020302032614号 )

GMT+8, 2026-6-8 05:39

Powered by Discuz! X5.0

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表