PC Serial number recall

  • Thread starter Thread starter Alberto Ast
  • Start date Start date
A

Alberto Ast

Is there a way to pull the PC serial number or PC user name preferable serial
number.... using vb so I can record it in a file indicating from which
computer the update was made?
 
<AFAIK>Environ() doesn't return a serial#.
Here's a reusable function that will return the manufacturer's BIOS serial
number of the computer the function is run on.

Function GetPC_SerialNo() As String
' Gets the serial number of a PC's BIOS

Dim sComputer As String, sSerialNo As String
Dim oWMI As Variant
Dim vSettings As Variant, vBIOS As Variant

sComputer = "winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"
Set oWMI = GetObject(sComputer)
Set vSettings = oWMI.ExecQuery("Select * from Win32_BIOS")
For Each vBIOS In vSettings
GetPC_SerialNo = Trim(vBIOS.SerialNumber)
Next
End Function '//GetPC_SerialNo

HTH
Kind regards,
Garry
 
Did work great... not I have serial and computer name.
Great learning today.
Thanks.
 
Environ("COMPUTERNAME") and Environ("USERNAME") should give you pretty
definitive information. (Not only the computer, but also the user.)
I didn't find a PC Serial Number in the Environment Variables
 
Back
Top