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

[ƒxmahdi]

سلام
چطور می تونم سریال cpu را بدست بیارم من روش های مختلفی را امتحان کردم ولی خوب جواب ندادند مثلا برای cpu 2.6 یه سریال نشون می داد اگه می شه یه روش مطمئن را معرفی نمایید با تشکر ƒxmahdi

[lord_viper]

http://forum.iranled.com/showthread.php?...0#pid44360
تو سورسهایی که گزاشتم هم مال هارد هست هم cpu

[mojtabamalaekeh]

سلام
من دانلود کردم ولی پیدا نکردم
میشه بفرمایین تو کدوم فایل نمونه ی کار با سریال Hard و CPU موجوده؟

[lord_viper]

نمیدونم ولی روش نوشته cpu (انقدر زیاده که خودمم توشون موندم)

[Iron_Fist]

کد php:

'Script for Win32_Processor WMI Class
'Generated using 'WMI Win32 Class Autoscript Generator' - Developed by Karthikeyan
'Homepage: http://www.geocities.com/marskarthik

On Error Resume Next
Computer = "."
Set OutFile = CreateObject("WScript.Shell")
Const ForAppending = 2
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set TextFile = FileSystem.OpenTextFile ("c:\Win32_Processor.txt", ForAppending, True)
TextFile.WriteLine "Script for Win32_Processor Class by Karthikeyan"
TextFile.WriteLine 
Set WMIService = GetObject("winmgmts:\\" & Computer & "\root\cimv2")
Set Items = WMIService.ExecQuery("Select * from Win32_Processor",,48)
For Each SubItems in Items
TextFile.WriteLine "********************************************************************"
    TextFile.WriteLine "AddressWidth: " & SubItems.AddressWidth
    TextFile.WriteLine "Architecture: " & SubItems.Architecture
    TextFile.WriteLine "Availability: " & SubItems.Availability
    TextFile.WriteLine "Caption: " & SubItems.Caption
    TextFile.WriteLine "ConfigManagerErrorCode: " & SubItems.ConfigManagerErrorCode
    TextFile.WriteLine "ConfigManagerUserConfig: " & SubItems.ConfigManagerUserConfig
    TextFile.WriteLine "CpuStatus: " & SubItems.CpuStatus
    TextFile.WriteLine "CreationClassName: " & SubItems.CreationClassName
    TextFile.WriteLine "CurrentClockSpeed: " & SubItems.CurrentClockSpeed
    TextFile.WriteLine "CurrentVoltage: " & SubItems.CurrentVoltage
    TextFile.WriteLine "DataWidth: " & SubItems.DataWidth
    TextFile.WriteLine "Description: " & SubItems.Description
    TextFile.WriteLine "DeviceID: " & SubItems.DeviceID
    TextFile.WriteLine "ErrorCleared: " & SubItems.ErrorCleared
    TextFile.WriteLine "ErrorDescription: " & SubItems.ErrorDescription
    TextFile.WriteLine "ExtClock: " & SubItems.ExtClock
    TextFile.WriteLine "Family: " & SubItems.Family
    TextFile.WriteLine "InstallDate: " & SubItems.InstallDate
    TextFile.WriteLine "L2CacheSize: " & SubItems.L2CacheSize
    TextFile.WriteLine "L2CacheSpeed: " & SubItems.L2CacheSpeed
    TextFile.WriteLine "LastErrorCode: " & SubItems.LastErrorCode
    TextFile.WriteLine "Level: " & SubItems.Level
    TextFile.WriteLine "LoadPercentage: " & SubItems.LoadPercentage
    TextFile.WriteLine "Manufacturer: " & SubItems.Manufacturer
    TextFile.WriteLine "MaxClockSpeed: " & SubItems.MaxClockSpeed
    TextFile.WriteLine "Name: " & SubItems.Name
    TextFile.WriteLine "OtherFamilyDescription: " & SubItems.OtherFamilyDescription
    TextFile.WriteLine "PNPDeviceID: " & SubItems.PNPDeviceID
    TextFile.WriteLine "PowerManagementCapabilities: " & SubItems.PowerManagementCapabilities
    TextFile.WriteLine "PowerManagementSupported: " & SubItems.PowerManagementSupported
    TextFile.WriteLine "ProcessorId: " & SubItems.ProcessorId
    TextFile.WriteLine "ProcessorType: " & SubItems.ProcessorType
    TextFile.WriteLine "Revision: " & SubItems.Revision
    TextFile.WriteLine "Role: " & SubItems.Role
    TextFile.WriteLine "SocketDesignation: " & SubItems.SocketDesignation
    TextFile.WriteLine "Status: " & SubItems.Status
    TextFile.WriteLine "StatusInfo: " & SubItems.StatusInfo
    TextFile.WriteLine "Stepping: " & SubItems.Stepping
    TextFile.WriteLine "SystemCreationClassName: " & SubItems.SystemCreationClassName
    TextFile.WriteLine "SystemName: " & SubItems.SystemName
    TextFile.WriteLine "UniqueId: " & SubItems.UniqueId
    TextFile.WriteLine "UpgradeMethod: " & SubItems.UpgradeMethod
    TextFile.WriteLine "Version: " & SubItems.Version
    TextFile.WriteLine "VoltageCaps: " & SubItems.VoltageCaps
TextFile.WriteLine "********************************************************************"
Next
TextFile.Close
OutFile.Run "notepad.exe c:\Win32_Processor.txt",1,True 


[ƒxmahdi]

جناب Iron_Fist ممنون از راهنمایی شما
ولی این کد برای وی بی جواب نمیده اگه جواب می ده یه برنامه نمونه بگذارید با تشکر

[Iron_Fist]

بفرمایید

[mojtabamalaekeh]

سلام
من یه سؤال مبتدی جهت محکم کاری دارم:
آیا ProcessorId که یکی از خروجی های برنامه پیوست بود منحصر به فرده و همیشه ثابته؟ یعنی CPU رو روی هر کامپیوتری بذاری ـ صرفنظر از متفاوت بودن Motherboard و سایر قطعات ـ بازم ProcessorId همون ProcessorId قبلیه؟
یعنی میشه برای قفل نرم افزار روش حساب کرد؟
نوع این متغیرها چیه:
WMIService
Items
یعنی اگه نخوایم Variant باشن چجوری باید تعریفشون کنیم و قبل از تعریفشون چه Refrence ی باید به پروژه اضافه کنیم؟

[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 رو جستجو کردم.