一段时间以来时不时会在不同电脑上遇到的糟心问题

maozaiba

比如这个来自超级模块的取硬件信息的功能，其中在取CPU序列号时在小部分电脑（win10/11都有）会提取失败：



#GetTrait 常量数据：

[JavaScript] 纯文本查看 复制代码

Function GetTrait(P)
Dim WMI,Obj
    Select Case P
    Case "BIOS"
    Set WMI =GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_BIOS")
    For Each Obj in WMI
    GetTrait = Obj.Name
    Exit For
    Next
    Case "磁盘序列号"
    Set WMI =GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_PhysicalMedia")
    For Each Obj in WMI
    GetTrait = Obj.SerialNumber
    Exit For
    Next
    Case "CPUID"
    Set WMI =GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
    For Each Obj in WMI
    GetTrait = Obj.ProcessorId
    Exit For
    Next
    Case "声卡"
    Set WMI =GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_SoundDevice")
    For Each Obj in WMI
    GetTrait = Obj.Caption
    Exit For
    Next
    Case "显卡"
    Set WMI =GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController")
    For Each Obj in WMI
    GetTrait = Obj.Caption
    Exit For
    Next
    Case "MAC"
    Set WMI =GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_NetworkAdapterConfiguration")
    For Each Obj in WMI
        If Obj.IPEnabled=True Then
           GetTrait = Obj.MacAddress
           Exit For
        End If
    Next
    End Select
End Function

而昨天又在不同电脑遇到 精易模块 中的 文本_删除空行 功能也出现了问题，返回空数据。查看源码发现内部用了 正则表达式，感觉是这部分出了某些问题。

而上面的取CPU序列号用了 VBS对象，曾经在一位出此问题的电脑上远程排查了一下，怀疑与系统的VBS组件有关，但经过一些尝试修复的操作后依然无解。

由于是别人电脑不好长时间占用去排查且系统和其他软件都一切正常也不好说重装系统，想问问有没有同样遇到并知道原因的。

远赴

对象类一向不靠谱，我用户多环境复杂的软件基本上不使用精易模块的JSON类/正则类/访问对象。

不知道是不是下面这个原因

blackmagic

maozaiba 发表于 2024-10-31 21:47
24h2 只有win11吧
然而这个问题 win10也有
而且最早能追溯到2021年

加管理员权限呢？

maozaiba

blackmagic 发表于 2024-10-31 21:21
出问题的是不是都是24h2？

24h2 只有win11吧
然而这个问题 win10也有
而且最早能追溯到2021年
所以说糟心

blackmagic

出问题的是不是都是24h2？