คำสั่งอ่าน Serial Number ของ Harddisk เครื่อง ขึ้นมาเป็นตัวเลข ฐานสิบ
    MsgBox CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
ผลลัพธ์: -530794000

คำสั่งอ่าน Serial Number ของ Harddisk เครื่อง ขึ้นมาเป็นตัวเลข ฐานสิบหก
    MsgBox Hex(CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber)
ผลลัพธ์: E05CB9F0

CPU ID ก็แบบนี้
Sub ProcessorID()
    Dim MyOBJ As Object
    Dim cpu As Object
    Set MyOBJ = GetObject("WinMgmts:").instancesof("Win32_Processor")
    For Each cpu In MyOBJ
        MsgBox cpu.ProcessorID
    Next
End Sub

ประมาณนี้ครับ ลองดู

ขอบคุณมากๆครับ เป็นประโยชน์มากๆๆๆๆๆครับบบ