بدست آوردن سریال CPU

[mojtabamalaekeh]

کد:

Refrence Name: Microsoft WMI Scripting V1.2 Library
Refrence File: wbemdisp.TLB

Private Function GetPCID()As String
    Dim WMIService  As SWbemServices
    Dim Items As SWbemObjectSet
    Dim SubItems As SWbemObjectEx
    Set WMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set Items = WMIService.ExecQuery("Select * from Win32_Processor", , 48)
    For Each SubItems In Items
        GetPCID= SubItems.ProcessorId
        Exit For
    Next
End Function

اسم فایل رو لازم داشتم چون میخواستم با Package & Deployment Wizard پروژه رو به حالت نصبی در بیارم.
نوع متغیرها رو هم برا این میخواستم که مثلا با گذاشتن علامت نقطه بعد از متغیر SubItems، لیست Property ها، از جمله همون SubItems.ProcessorId رو ببینم. ولی ظاهرا به این سادگی ها نیست.
به هر حال برای اولین بار یه قفل ساده درست کردم.
برا پیدا کردن Refrence مورد نظر، چند تا از Refrence ها رو که اسمشون مشکوک بود به پروژه اضافه کردم بعد توی Object Browser عبارت ExecQuery رو جستجو کردم.