Main Serial

[morika]

سلام
آقا این سریال mainboard رو از چجوری میشه گیر آورد
من چندتا کد دارم ولی هیچکدومشون کار نمی کنه
ممنون

[arsalansalar]

http://barnamenevis.org/forum/showthread.php?t=153289

[parsehvb]

زیاد هم سخت نیست
این برای maibord , cpu ,hard



Imports System



Imports System.Management



PublicFunction GetHDSerial() AsString
Dim disk AsNew ManagementObject("Win32_LogicalDisk.DeviceID=""C:""")
Dim diskPropertyA As PropertyData = disk.Properties("VolumeSerialNumber")
Return diskPropertyA.Value.ToString()
EndFunction
PublicFunction GetCPUId() AsString
Dim cpuInfo AsString = String.Empty
Dim temp AsString = String.Empty
Dim mc As ManagementClass = _
New ManagementClass("Win32_Processor")
Dim moc As ManagementObjectCollection = mc.GetInstances()
ForEach mo As ManagementObject In moc
If cpuInfo = String.Empty Then

cpuInfo = mo.Properties(

"ProcessorId").Value.ToString()

EndIf

Next
Return cpuInfo
EndFunction



Dim strMotherBoardID As String = String.Empty
Dim query As New SelectQuery("Win32_BaseBoard")
Dim search As New ManagementObjectSearcher(query)

PublicFunction GetMAINSerial() AsString
Dim MAINInfo AsString = String.Empty
Dim info As ManagementObject
ForEach info In search.Get()
MAINInfo = info("SerialNumber").ToString()
Next
Return MAINInfo
EndFunction

[morika]

آقا من این کد شمارو هرجوری این ور و اون ور کردم نشد
از ManagementObject
از SelectQuery
از ManagementObjectSearcher
از همه این ها مشکل می گیره
البته import ها رو هم در اول برنامه اضافه کردم
مشکل چیه؟

[milad.biroonvand]

مطلب جالبي بود

[morika]

آقا من این کد شمارو هرجوری این ور و اون ور کردم نشد
از ManagementObject
از SelectQuery
از ManagementObjectSearcher
از همه این ها مشکل می گیره
البته import ها رو هم در اول برنامه اضافه کردم
مشکل چیه؟

[morika]

آقا کسی نیست به این سوال جواب بده؟