Unique computer key

[russell]

How do i see the output of this to test? i tried MSG box but it said $serialnumber was undeclaired

That's what we use in our company

Func getpcserialnumber()
; Generated by AutoIt Scriptomatic
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"
$Output=""
$Output = $Output & "Computer: " & $strComputer  & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
if $objWMIService=0 then
 ;lognio("ERROR: WMI corrupted on workstation, cannot get the information.")
 return -1
endif

$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_BIOS", "WQL", _
                                           $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) then
    For $objItem In $colItems
        $serialnumber = $objItem.SerialNumber
    Next
Else
    $serialnumber=-1
Endif
return $serialnumber
endfunc