View Full Version : سریال Motherboard
MAiLDEREMi
پنج شنبه 24 خرداد 1386, 12:22 عصر
برای من جالبه که در 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
سه شنبه 29 خرداد 1386, 15:43 عصر
برای من جالبه که در 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
یک شنبه 07 مرداد 1386, 11:26 صبح
برای بدست آوردن سریال CPU چه باید کرد؟
ALI TT
چهارشنبه 01 خرداد 1387, 01:29 صبح
با سلام .
ميدونم اين تايپيك قديميه
مي خواستم يكي درست كنم
ديدم انجا هست
حلا كسي بلده سريال cpu چه جوري بدست مياد
مرسي
ALI TT
چهارشنبه 01 خرداد 1387, 01:40 صبح
من يكي پيدا كردم
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
چهارشنبه 01 خرداد 1387, 09:17 صبح
برنامه WMI Code Creator رو از سایت ماکروسافت دانلود کنید . این برنامه تمام اطلاعات سخت افزاری سیستم وکلی امکانات دیگه رو به صورت script های آماده در اختیارتون قرار میده .
لینک دانلود (http://www.microsoft.com/downloads/details.aspx?FamilyID=2cc30a64-ea15-4661-8da4-55bbc145c30e&displaylang=en)
ALI TT
چهارشنبه 01 خرداد 1387, 16:55 عصر
برنامه WMI Code Creator رو از سایت ماکروسافت دانلود کنید . این برنامه تمام اطلاعات سخت افزاری سیستم وکلی امکانات دیگه رو به صورت script های آماده در اختیارتون قرار میده .
ممنون
كد بالا با اضافه كردن Managment به toolBox درست شد و كد زير رو هم زدم تنگش
Imports System.managment
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.