good day fellow programmers

  pls i need a function that can look up the following and place the result into a field

1.the computer processor number

2.the computer name.

thanks

What do you mean by "processor number?" Is that the serial number or UUID of the PC? Or the CPU Name and/or speed?

This will get you started:

'--------------------------------------
sComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & sComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct",,48)
    For Each objItem In colItems
        sSerialNumber = CStr(objItem.IdentifyingNumber)
        sUUID = objItem.UUID
    Next
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
    For Each objItem In colItems
        sComputerName = objItem.Caption
    Next
'----------------------
HTH


mmcdonal

thanks bros,i will try it out,its the serial nos i want so that my softwares will not be loaded /sold even if unauthorised copies gets into the market

thanks,pls i still need help on packaging an access aplication.