[Amin_Mansouri]

System.Management.ManagementObjectSearcher mg = new System.Management.ManagementObjectSearcher("select * from win32_diskdrive"); // add refrence from : C:\Windows\Microsoft.NET\Framework\v2.0.50727\System.Management.dll
foreach (ManagementObject mgobj in mg.Get())
{
tmp1 = mgobj.GetPropertyValue("SerialNumber").ToString();
}
سریال هارد

با درود
من که از این کد چیزی سر در نیاوردم
با احترام

سورس بالا که دادم جوابتون میده
دوست عزیزمون به زبان سی شارپ سورس گذاشتن

[__omid__]

با درود
سورس بالا 1 مشکلی داره.
بیشتر سیستمها میزنه :
[Not present]
مشکل چیه؟
با احترام

[Amin_Mansouri]

برا من که مشکلی داره
از نمونه سورسی که دادم ساختی پروژتو همینجا پیوست کن

[__omid__]

با درود
بله کد شما میباشد . سورس رو سیستم من کار میکنه بدون مشکل. ولی رو سیستم بعضی ها کار نمیکنه. و ارور بالا رو میده.
با احترام

---

با درود
لطفا کمک کنید. کد دیگه ندارید؟
با احترام

[Amin_Mansouri]

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

[__omid__]

با درود
ادمین هم کردم نشد.
میشه این کد 1 نگاه کنین مشکلش بگین!
کلفا تو پروزه قرار بدید و بدین. (
با احترام

کد پی‌اچ‌پی:

Public Function MBSerialNumber()
 Dim objs As Object
 Dim obj As Object
 Dim wmi As Object
 Dim procid
 Set wmi = GetObject("WinMgmts:")
 Set objs = wmi.InstancesOf("Win32_BaseBoard")
  
For Each obj In objs
 procid = procid & obj.DeviceID
If procid < objs.Count Then procid = procid & ","
Next
MBSerialNumber = procid
procid = LTrim$(procid)
procid = RTrim$(procid)
MsgBox "Proc_id :" + procid
End Function

Function DiskDrive() As String
  Dim wmi, obj, procid
  Set wmi = GetObject("winmgmts:")
  For Each obj In wmi.InstancesOf("Win32_DiskDrive")
   procid = procid + obj.SerialNumber
  Next
  DiskDrive = procid
End Function 


[Amin_Mansouri]

با درود
ادمین هم کردم نشد.
میشه این کد 1 نگاه کنین مشکلش بگین!
کلفا تو پروزه قرار بدید و بدین. (
با احترام

کد پی‌اچ‌پی:

Public Function MBSerialNumber()
 Dim objs As Object
 Dim obj As Object
 Dim wmi As Object
 Dim procid
 Set wmi = GetObject("WinMgmts:")
 Set objs = wmi.InstancesOf("Win32_BaseBoard")
  
For Each obj In objs
 procid = procid & obj.DeviceID
If procid < objs.Count Then procid = procid & ","
Next
MBSerialNumber = procid
procid = LTrim$(procid)
procid = RTrim$(procid)
MsgBox "Proc_id :" + procid
End Function

Function DiskDrive() As String
  Dim wmi, obj, procid
  Set wmi = GetObject("winmgmts:")
  For Each obj In wmi.InstancesOf("Win32_DiskDrive")
   procid = procid + obj.SerialNumber
  Next
  DiskDrive = procid
End Function 


درود

سورس مشکلی نداره پیشنهاد میکنم چند تا کتاب وی بی بخونید :
اینم سورس جواب داده

کد:

Public Function MBSerialNumber()
Dim objs As Object
Dim obj As Object
Dim wmi As Object
Dim procid
Set wmi = GetObject("WinMgmts:")
Set objs = wmi.InstancesOf("Win32_BaseBoard")
  
For Each obj In objs
procid = procid & obj.DeviceID
If procid < objs.Count Then procid = procid & ","
Next
MBSerialNumber = procid
procid = LTrim$(procid)
procid = RTrim$(procid)
MsgBox "Proc_id :" + procid
End FunctionFunction DiskDrive() As String
  Dim wmi, obj, procid
  Set wmi = GetObject("winmgmts:")
  For Each obj In wmi.InstancesOf("Win32_DiskDrive")
   procid = procid + obj.SerialNumber
  Next
  DiskDrive = procid
End FunctionPrivate Sub Form_Load()
MsgBox DiskDrive
End Sub

[__omid__]

با درود
مشکلی که دارم.
شما کلشو تو 1 فایل زیپ قرار میدید بدید اینو. + شده.
با احترام
عکسها

and

[Amin_Mansouri]

بنظر من ویندوزتو عوض کن یه بار دیگه وی بی بنصب

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

[__omid__]

با درود
در سیستم دوم خودم تست زدم و مشکل داشت.
ویزوال بیسیک 6 پیشنهاد بدبد دانلود کنم. (لینک )
با احترام