[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