اشکال این کد چیه؟

[sosono]

سلام لطفا راهنمائی کنید اشکال این کد کجاست؟


Using System.Management
Dim Searcher As Management.ManagementObjectSearcher
()ManagementObjectSearcher
("Searcher = New ManagementObjectSearcher("select * from " + "Win32_Processor
( ()ForEach (ManagementObject share In Searcher.Get
...'


Next
EndUsing

[masoud.t123]

اگر می توانید ارور را بنویسید.

[ALI TT]

چه کار می خواهی بکنی ؟؟

[sosono]

سلام
می خوام خصوصیات سی پی یو رو پیدا و توی یه خروجی مثلا لیست ویو نمایش بدم.

[masoud.t123]

برای سریال نامبر cpu






Imports System.Management


Module Module1




Sub Main()




Dim cpuInfo As String = String.Empty


Dim temp As String = String.Empty


Dim mc As ManagementClass = New ManagementClass("Win32_Processor")


Dim moc As ManagementObjectCollection = mc.GetInstances


For Each mo As ManagementObject In moc


If (cpuInfo = String.Empty) Then


' only return cpuInfo from first CPU


cpuInfo = mo.Properties("ProcessorId").Value.ToString


Console.WriteLine(("CPU ID : " & cpuInfo))


End If


Next


Console.ReadLine()


End Sub




End Module

[ALI TT]

برای آشنایی بیشتر با Management و قبلیتهای آن ، CPU . Ram . Hard . MotherBord . Battry , ....
می تونی از فایل زمیمه استفاده کنی

[sosono]

برای آشنایی بیشتر با Management و قبلیتهای آن ، CPU . Ram . Hard . MotherBord . Battry , ....
می تونی از فایل زمیمه استفاده کنی



خیل ممنون از راهنمائی شما دوست عزیز.