[__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