Se per "esempio di stringa" intendi un esempio di codice, allora eccone uno semplice

codice:
Dim oWMI As Object
Dim oInst As Object
    
Set oWMI = GetObject("WinMgmts:").InstancesOf("Win32_Bios")
For Each oInst In oWMI
  Debug.Print "BIOS: " & Trim(oInst.Name) & " - Serial Number: " & Trim(oInst.SerialNumber)
Next

Set oWMI = GetObject("WinMgmts:").InstancesOf("Win32_Processor")
For Each oInst In oWMI
  Debug.Print "CPU: " & Trim(oInst.Name) & " - ID: " & Trim(oInst.ProcessorId)
Next

Set oWMI = Nothing
Comunque, se pensi di utilizzare tali informazioni per realizzare una protezione, sappi che non solo non e' insuperabile ma abbastanza debole.

In piu', molti modelli di CPU e di BIOS non restituiscono tali informazioni.

La libreria WMI puo' non essere installata su alcuni sistemi operativi.