win10环境下 AU3 还能获取主板 序列号吗？

qq82015930

win10环境下  AU3 还能获取主板 序列号吗？

h111666b

只有个硬件信息查看代码

#include <GUIConstants.au3>

$g_szVersion = "info"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)

Opt('GUICloseOnESC', 0)


GUICreate("硬件信息查看器", 500, 350)


GUICtrlCreateLabel("BIOS：", 10, 30, 60, 30)
GUICtrlSetColor(-1, 0x0000ff)
$bios = GUICtrlCreateInput("", 80, 20, 250, 25)

GUICtrlCreateLabel("主板：", 10, 70, 60, 30)
GUICtrlSetColor(-1, 0x0000ff)
$board = GUICtrlCreateInput("", 80, 60, 250, 25)

GUICtrlCreateLabel("CPU：", 10, 110, 60, 30)
GUICtrlSetColor(-1, 0x0000ff)
$cpu = GUICtrlCreateInput("", 80, 100, 250, 25)

GUICtrlCreateLabel("显卡：", 10, 150, 60, 30)
GUICtrlSetColor(-1, 0x0000ff)
$display = GUICtrlCreateInput("", 80, 140, 250, 25)

GUICtrlCreateLabel("声卡：", 10, 190, 60, 30)
GUICtrlSetColor(-1, 0x0000ff)
$sound = GUICtrlCreateInput("", 80, 180, 250, 25)

GUICtrlCreateLabel("网卡：", 10, 230, 60, 30)
GUICtrlSetColor(-1, 0x0000ff)
$network = GUICtrlCreateInput("", 80, 220, 250, 25)

GUICtrlCreateLabel("内存：", 10, 270, 60, 30)
GUICtrlSetColor(-1, 0x0000ff)
$mem = GUICtrlCreateInput("", 80, 260, 250, 25)

GUICtrlCreateLabel("操作系统：", 10, 310, 60, 30)
GUICtrlSetColor(-1, 0x0000ff)
$os = GUICtrlCreateInput("", 80, 300, 250, 25)

GUISetState()
info()

While 1
        $msg = GUIGetMsg()

        Select

                Case $msg = $GUI_EVENT_CLOSE
                        ExitLoop
        EndSelect
WEnd


Func info()

        $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
        $colBios = $objWMIService.ExecQuery("Select * from Win32_BIOS")
        $colBoard = $objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard")
        $colSettings = $objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
        $colMemory = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
        $colCPU = $objWMIService.ExecQuery("Select * from CIM_Processor")
        $colVideoinfo = $objWMIService.ExecQuery("Select * from Win32_VideoController")
        $colSound = $objWMIService.ExecQuery("Select * from Win32_SoundDevice")
        $colMouse = $objWMIService.ExecQuery("Select * from Win32_PointingDevice")
        $colMonitor = $objWMIService.ExecQuery("Select * from Win32_DesktopMonitor")
        $colNIC = $objWMIService.ExecQuery("Select * from Win32_NetworkAdapter WHERE Netconnectionstatus = 2")


        For $object In $colBios
                GUICtrlSetData($bios, StringMid($object.Caption, 1))
        Next


        For $object In $colBoard
                GUICtrlSetData($board, $object.Product)

        Next


        For $object In $colCPU
                GUICtrlSetData($cpu, StringStripWS($object.Name, 1))
        Next

        For $object In $colVideoinfo
                GUICtrlSetData($display, StringStripWS($object.Description, 1))

        Next

        For $object In $colSound
                GUICtrlSetData($sound, StringStripWS($object.Description, 1))
        Next

        For $object In $colNIC
                GUICtrlSetData($network, StringStripWS($object.name, 1))

        Next


        For $objOperatingSystem In $colSettings

                GUICtrlSetData($os, $objOperatingSystem.Caption & " Build " & $objOperatingSystem.BuildNumber & " Sp " & $objOperatingSystem.ServicePackMajorVersion & "." & $objOperatingSystem.ServicePackMinorVersion)

        Next
        For $object In $colMemory
                GUICtrlSetData($mem, String(Int(Number($object.TotalPhysicalMemory) / (1024 * 1024))) & " Mb")
        Next

EndFunc   ;==>info

w60711

不知道是否是你要的

wmic baseboard get serialnumber

rdw167

h111666b 发表于 2023-9-21 09:16
只有个硬件信息查看代码

#include

代码不错，之前一直想 弄个这样的，后面有没管了。可以借鉴下。谢谢