امروزم يه كد پيدا كردم که مال VB6 ولي نميدونم چرا كار نميكنه البته تو خودش نوشته با WMI کار میکنه ولی من هر کاری کردم نتونستم راش بندازم شايد ايراد از تنظيمات WMI . نميدونم!
كد اينه:
کد:
Public Function MBSerialNumber() As String
'RETRIEVES SERIAL NUMBER OF MOTHERBOARD
'IF THERE IS MORE THAN ONE MOTHERBOARD, THE SERIAL
'NUMBERS WILL BE DELIMITED BY COMMAS
'YOU MUST HAVE WMI INSTALLED AND A REFERENCE TO
'Microsoft WMI Scripting Library IS REQUIRED
Dim objs As Object
Dim obj As Object
Dim WMI As Object
Dim sAns As String
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
sAns = sAns & obj.SerialNumber
If sAns < objs.Count Then sAns = sAns & ","
Next
MBSerialNumber = sAns
End Function
دو تا مشكل مي تونه داشته باشه.
1- كتابخانه Wmlرو در قسمت Perference برنامت فعال نكردي.
2- از ويندوز 98 استفاده مي كني. (ويندوز 98 از WML خوب پشتيباني نمي كنه.)
نمایندگیهای رسمی موبایل سامسونگ در تهران + مزایای استفاده از خدمات آنها