[سوال] کد سیستم

[javaweb]

با سلـــــــــــــــــــــــــام و تشکر
دوستان من یک اطلاعاتی از سیستم می خواهم که بعد از عوض کردن ویندوز تغییر نکند مثلا یک کد از نمی دونم CPU،مادربورد یا ...
با تشکـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــر

[babyy]

سلام
سوالاتتون رو خیلی بد میپرسید؛ آدم حوصلش نمیکشه بخونتوشون!

یعنی چی؟ خب خودون دارین میگین از کد cpu و ... استفاده کنید دیگه! الآن باید چه راهنمایی کنن بچه ها؟!

[javaweb]

با تشکـــــــــــــــــــــــــــــــــــــــــــــــــــر
من نحوه ی دریافت سریال بخش هایی مثل CPU،مادربرد و ... می خواستم
کد یا آموزشی دارید بدید ممنون می شم
ببخشید سوالو خیلی بد پرسید یعنی اصلا کامل نبود،وقت کم بود خلاصه شد
من سورس دریافت سریال رو می خواستم
با تشکـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــر

[Payman62]

سلام.

کد:

Private Function SystemSerialNumber() As String
Dim mother_boards As Variant
Dim board As Variant
Dim wmi As Variant
Dim serial_numbers As String

    ' Get the Windows Management Instrumentation object.
    Set wmi = GetObject("WinMgmts:")

    ' Get the "base boards" (mother boards).
    Set mother_boards = wmi.InstancesOf("Win32_BaseBoard")
    For Each board In mother_boards
        serial_numbers = serial_numbers & ", " & board.SerialNumber
    Next board
    If Len(serial_numbers) > 0 Then serial_numbers = Mid$(serial_numbers, 3)

    SystemSerialNumber = serial_numbers
End Function

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