سریال Motherboard

[MAiLDEREMi]

برای من جالبه که در VB6 و VB.Net 2005 وقتی سریال Motherboard رو شناسایی می کنه می نویسه:


MB-1234567890

اینم کدها:


VB6:


Public Function MBSerialNumber() As String
Dim objs As Object
Dim obj As Object
Dim WMI As Object
Dim sAns As String

Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
sAns = sAns & obj.SerialNumber
If sAns < objs.Count Then sAns = sAns & ","
Next
MBSerialNumber = sAns
End Function


VB.Net 2005:



Dim moSearch As New ManagementObjectSearcher("Select * from Win32_BaseBoard")
Dim moReturn As ManagementObjectCollection = moSearch.Get
For Each mo As ManagementObject In moReturn
MsgBox(mo("SerialNumber"))
Next




هر کی اشکالش رو می دونه یه راهنمایی کنه.


متشکر

[mcntyuask]

برای من جالبه که در VB6 و VB.Net 2005 وقتی سریال Motherboard رو شناسایی می کنه می نویسه:


MB-1234567890

اینم کدها:


VB6:


Public Function MBSerialNumber() As String
Dim objs As Object
Dim obj As Object
Dim WMI As Object
Dim sAns As String

Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
sAns = sAns & obj.SerialNumber
If sAns < objs.Count Then sAns = sAns & ","
Next
MBSerialNumber = sAns
End Function


VB.Net 2005:



Dim moSearch As New ManagementObjectSearcher("Select * from Win32_BaseBoard")
Dim moReturn As ManagementObjectCollection = moSearch.Get
For Each mo As ManagementObject In moReturn
MsgBox(mo("SerialNumber"))
Next




هر کی اشکالش رو می دونه یه راهنمایی کنه.


متشکر

من هم از بین 5 کامپیوتر این رو تو 3 کامپیوتر که Motherboard از نوع Asus داشتن دیدم

[Syamah]

برای بدست آوردن سریال CPU چه باید کرد؟

[ALI TT]

با سلام .
ميدونم اين تايپيك قديميه
مي خواستم يكي درست كنم
ديدم انجا هست

حلا كسي بلده سريال cpu چه جوري بدست مياد
مرسي

[ALI TT]

من يكي پيدا كردم



Public Function GetHDSerial() As String
Dim disk As New ManagementObject("Win32_LogicalDisk.DeviceID=""C:""")
Dim diskPropertyA As PropertyData = disk.Properties("VolumeSerialNumber")
Return diskPropertyA.Value.ToString()
End Function

Public Function GetCPUId() As String
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
cpuInfo = mo.Properties("ProcessorId").Value.ToString()
End If
Next
Return cpuInfo
End Function

ولي به
ManagementObject

PropertyData

ManagementClass
ارور ميده ، فكر كنم بايد فضاي نامي را Imports كرد ولي چي ....نميدونم . حلا كسي بلده چه كار بايد كرد

كدهايي كه دوستان هم گذاشتن همين ارور رو ميده

[Sub Zero]

برنامه WMI Code Creator رو از سایت ماکروسافت دانلود کنید . این برنامه تمام اطلاعات سخت افزاری سیستم وکلی امکانات دیگه رو به صورت script های آماده در اختیارتون قرار میده .

لینک دانلود (http://www.microsoft.com/downloads/details.aspx?FamilyID=2cc30a64-ea15-4661-8da4-55bbc145c30e&displaylang=en)

[ALI TT]

برنامه WMI Code Creator رو از سایت ماکروسافت دانلود کنید . این برنامه تمام اطلاعات سخت افزاری سیستم وکلی امکانات دیگه رو به صورت script های آماده در اختیارتون قرار میده .

ممنون
كد بالا با اضافه كردن Managment به toolBox درست شد و كد زير رو هم زدم تنگش

Imports System.managment