Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
PC Serial number recall
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? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
PC Serial number recall
Try
environ("COMPUTERNAME") or environ("SERIAL") -- HTH, Barb Reinhardt "Alberto Ast" wrote: 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? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
PC Serial number recall
<AFAIKEnviron() 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}!\\.\roo t\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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
PC Serial number recall
Serial did not work but computer name did. Thanks.
"Barb Reinhardt" wrote: Try environ("COMPUTERNAME") or environ("SERIAL") -- HTH, Barb Reinhardt "Alberto Ast" wrote: 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? |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
PC Serial number recall
Did work great... not I have serial and computer name.
Great learning today. Thanks. "GS" wrote: <AFAIKEnviron() 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}!\\.\roo t\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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
PC Serial number recall
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 "Alberto Ast" wrote: 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? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Serial Number | Excel Worksheet Functions | |||
Look up part of a number within a serial number and cpy back assoc | Excel Worksheet Functions | |||
To list down all SN (Serial Number) | Excel Worksheet Functions | |||
Serial Number | Excel Programming | |||
generate serial number | Excel Worksheet Functions |