Serial Number

[mehrnoush]

سلام

کسی می دونه چه جوری میشه شماره سریال مادربرد رو گیر آورد (VB2008)
البته من این تاپیک رو هم دیدم ولی morika راست می گه واسه منم از این خط ها ایراد می گیره...؟! مشکل کجاست؟
http://barnamenevis.org/forum/showthread.php?t=170073

[saeid.memfis]

سلام
شماره سريال هارد رو بلدم اگه به كارت مياد بگو بزارم...

[mehrnoush]

خیلی ممنون اگه امکان داره بزارید شاید تونستم ازش استفاده کنم

[saeid.memfis]

سلام
شماره سريال مادربورد رو تو سورس هام پيدا كردم..


Imports System.Management

Dim ObjMng As New Management.ManagementObject
Dim MngObjSrch As New Management.ManagementObjectSearcher("SELECT * FROM Win32_ComputerSystem")
Dim main As String
Dim l As Double
Dim ul As Double
For Each ObjMng In MngObjSrch.Get
main = ObjMng("model").ToString
Next
MsgBox(main)



موفق باشيد

[morika]

این کد از خطهای:

Management.ManagementObject
Management.ManagementObjectSearcher

ایراد می گیره. چیکار باید کرد؟

[alimanam]

با عرض سلام

من موقعی که Vb6 کار می کردم برای به دست آوردن سریال هارد یه اکتیوایکس نوشتم که خیلی راحت هم ازش توی Vb.net استفاده می کنم . فکر می کنم به درد دوستان هم بخوره فقط کافیه ابتدا اکتیو ایکس رو به صورت Com به ToolBox وی بی دات نت اضافه کنین و ازش استفاده کنن .


http://img176.imageshack.us/img176/6195/hdsbyalimanam.png

یا علی

[ACorvinus]

این کد از خطهای:

Management.ManagementObject
Management.ManagementObjectSearcher

ایراد می گیره. چیکار باید کرد؟



سلام .

خوب برای اینکه باید به System.Management یه Reference بدی .
ار منوی Project --> Add Reference میتونی این کارو بکنی .

موفق باشی .

[ACorvinus]

سلام .

ببخشین دوست عزیز .
اونوقت این کد



main = ObjMng("model").ToString


چی رو بر می گردونه ؟

من که اجرا کردم و در خروجی مدل Laptop ام رو دیدم !

[bastakboys]

ببین این بدرتون می خوره

[saeid.memfis]

این کد از خطهای:

Management.ManagementObject
Management.ManagementObjectSearcher

ایراد می گیره. چیکار باید کرد؟

من دارم از اين كد استفاده مي كنم
نمي دونم...