G
Guest
Is there a way for Visual Basic to record you computer's serial number?
K
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 :
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 :
K
keepITcool
PS: the line with stop can be removed 
L
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
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
B
Bill Schanks
FYI ... This worked for me and I DON'T have admin rights on my work PC.