怎样获取笔记本序列号

gaoan000

才学几天，很多地方不了解
最近需要做一个获取笔记本（品牌机）ID的脚本
今天白天查资料实在没找到 所以想上来请教一下
给个思路也行，我从网上找了个函数 ，可惜看不懂 也不懂怎么调用
贴上来给大家过目下，希望有用
[code]
;===============================================================================
; Description:      Returns the System Product information in an array.
; Parameter(s):     $aSysProductInfo - By Reference - System Product Information array.
; Requirement(s):   None
; Return Value(s):  On Success - Returns array of System Product Information.
;

gaoan000

;===============================================================================
; Description:      Returns the System Product information in an array.
; Parameter(s):     $aSysProductInfo - By Reference - System Product Information array.
; Requirement(s):   None
; Return Value(s):  On Success - Returns array of System Product Information.
;                                                $aKeyboardInfo[0][0]   = Number of Keyboards
;                                                $aKeyboardInfo[$i][0]  = Name ($i starts at 1)
;                                                $aKeyboardInfo[$i][1]  = Identifying Number
;                                                $aKeyboardInfo[$i][2]  = SKU Number
;                                                $aKeyboardInfo[$i][3]  = UUID
;                                                $aKeyboardInfo[$i][4]  = Description
;                                                $aKeyboardInfo[$i][5]  = Vendor
;                                                $aKeyboardInfo[$i][6]  = Version
;                   On Failure - @error = 1 and Returns 0
;                                                                @extended = 1 - Array contains no information
;                                                                                        2 - $colItems isnt an object
; Author(s):        Jarvis Stubblefield (support "at" vortexrevolutions "dot" com)
; Note(s):
;===============================================================================
Func _ComputerGetSystemProduct(ByRef $aSysProductInfo)
        Local $colItems, $objWMIService, $objItem
        Dim $aSysProductInfo[1][7], $i = 1
        
        $objWMIService = ObjGet("winmgmts:\" & $cI_Compname & "\root\CIMV2")
        $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
        
        If IsObj($colItems) Then
                For $objItem In $colItems
                        ReDim $aSysProductInfo[UBound($aSysProductInfo) + 1][7]
                        $aSysProductInfo[$i][0]  = $objItem.Name
                        $aSysProductInfo[$i][1]  = $objItem.IdentifyingNumber
                        $aSysProductInfo[$i][2]  = $objItem.SKUNumber
                        $aSysProductInfo[$i][3]  = $objItem.UUID
                        $aSysProductInfo[$i][4]  = $objItem.Description
                        $aSysProductInfo[$i][5]  = $objItem.Vendor
                        $aSysProductInfo[$i][6]  = $objItem.Version
                        $i += 1
                Next
                $aSysProductInfo[0][0] = UBound($aSysProductInfo) - 1
                If $aSysProductInfo[0][0] < 1 Then
                        SetError(1, 1, 0)
                EndIf
        Else
                SetError(1, 2, 0)
        EndIf
EndFunc ;_ComputerGetSystemProduct

h20040606

能告诉这个函数的出处吗、

Huiseyu

不知道你所所指的 “获取笔记本（品牌机）ID的脚本 “ 是主板型号，还是笔记本背后贴的条码。对电脑不是很懂，请问笔记本的ID具体是什么。

ila

如果是原装系统，获取的数据部分有用。
其实厂家维修检测是硬件码

gaoan000

回复 3# h20040606

函数是从国外网站找来的 ，整个UDF，我看看能上传不

gaoan000

回复 4# Huiseyu

多谢回复 ，已经解决了 调用wmic命令获取

nqawen

学习了，不错，，