ComputerSN

Reads Serial number of the system, also can be used to return System name, Manufacturer or Model
ReturnAs = 1 to return Serial number
ReturnAs = 2 to return System name
ReturnAs = 3 for System Manufacturer
ReturnAs = 4 System Model

CodeFunctionName
What is this?

Public

Tested

Original Work
Function ComputerSN(Optional ReturnAs = 1)
' ReturnedAs = 1 to return Serial number
' ReturnedAs = 2 to return System name
' ReturnedAs = 3 for System Manufacturer
' ReturnedAs = 4 System Model
ComputerSN = "None"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct")
If ReturnAs = 1 Then
For Each objItem In colItems
ComputerSN = objItem.IdentifyingNumber
Exit For
Next
ElseIf ReturnAs = 2 Then
ComputerSN = objComputer.Name ' System name
ElseIf ReturnAs = 3 Then
ComputerSN = objComputer.Manufacturer ' System Manufacturer
ElseIf ReturnAs = 4 Then
ComputerSN = objComputer.Model 'System Model
End If
End Function

ReturnAs

Views 4,366

Downloads 1,515

CodeID
DB ID

ANmarAmdeen
602
Revisions

v1.0

Wednesday
June
6
2018