(04-17-2012، 03:34 PM)__omid__ نوشته:

(04-17-2012، 03:07 PM)analyze نوشته: 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();
}
سریال هارد

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

(04-20-2012، 02:25 PM)__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