PC Serial number recall

[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?

 

[Barb Reinhardt]

Try

environ("COMPUTERNAME")

or

environ("SERIAL")

 

[GS]

<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

 

[Alberto Ast]

Serial did not work but computer name did. Thanks.

 

[Alberto Ast]

Did work great... not I have serial and computer name.
Great learning today.
Thanks.

 

[fisch4bill]

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