Show HDD Serial in a cell

[Gregm66]

Hi All,

Can any one tell me how to show the hdd serial number in a cell IE: "P1"

Thankyou

 

[Logit]

This will give you the HD serial number :


Option Explicit


Function HdNum() As String
    Dim fsObj As Object
    Dim drv As Object
    Set fsObj = CreateObject("Scripting.FileSystemObject")
    Set drv = fsObj.Drives("C")
    HdNum = Hex(drv.serialnumber)
End Function




Then in a cell enter : =HdNum()




The Mother Board Serial Number :


Option Explicit


Public Function MBSerialNumber() As String


'RETRIEVES SERIAL NUMBER OF MOTHERBOARD
'IF THERE IS MORE THAN ONE MOTHERBOARD, THE SERIAL
'NUMBERS WILL BE DELIMITED BY COMMAS


'YOU MUST HAVE WMI INSTALLED AND A REFERENCE TO
'Microsoft WMI Scripting Library IS REQUIRED


Dim objs As Object


Dim obj As Object
Dim WMI As Object
Dim sAns As String




Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
  sAns = sAns & obj.SerialNumber
 If sAns < objs.Count Then sAns = sAns & ","
Next
MBSerialNumber = sAns
End Function




Enter in a cell : =MBSerialNumber()






CPU ID :


Private Function CpuId() As String
Dim computer As String
Dim wmi As Variant
Dim processors As Variant
Dim cpu As Variant
Dim cpu_ids As String


    computer = "."
    Set wmi = GetObject("winmgmts:" & _
        "{impersonationLevel=impersonate}!\\" & _
        computer & "\root\cimv2")
    Set processors = wmi.ExecQuery("Select * from " & _
        "Win32_Processor")


    For Each cpu In processors
        cpu_ids = cpu_ids & ", " & cpu.ProcessorId
    Next cpu
    If Len(cpu_ids) > 0 Then cpu_ids = Mid$(cpu_ids, 3)


    CpuId = cpu_ids
End Function




In a cell enter :   =CpuId()

 

[Gregm66]

Thankyou for your reply Logit i will try and let you know result

 

[Gregm66]

Thankyou so much Logit, it works like a charm...solved my question..

Cheers thanks again

 

[Logit]

.
Glad to help.