Serial Number

[Jason Zischke]

Is there a way for Visual Basic to record you computer's serial number?

[keepITcool]

and which serial number did you have in mind?
drive/networkcard etc...

following will give you serial of a drive

Function GetDriveSerial&(Drive$)
With CreateObject("Scripting.FileSystemObject")
On Error Resume Next
With .GetDrive(Drive)
Stop
If .IsReady Then
GetDriveSerial = Abs(.SerialNumber)
Else
GetDriveSerial = -1
End If
End With
On Error GoTo 0
End With
End Function

--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Jason Zischke wrote :

> Is there a way for Visual Basic to record you computer's serial
> number?

[keepITcool]

PS: the line with stop can be removed

[lear]

If you're looking for the PC's serial number, you can use WMI. You
need to have admin rights to run this though...

Sub serial()
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer &
"\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_BIOS")
For Each objBIOS In colSettings
MsgBox objBIOS.SerialNumber
Next
End Sub

[Bill Schanks]

FYI ... This worked for me and I DON'T have admin rights on my work PC.