ابن بنها قام بنشر يناير 26, 2013 مشاركة قام بنشر يناير 26, 2013 استاذ يوسف جرب هذا الكود و ابلغني باالنتيجة Sub test() Dim s As String With GetObject("winmgmts:\\.\root\CIMV2") For Each itm In .ExecQuery("SELECT * FROM Win32_DiskDrive", , 48) s = s & "SerialNumber: " & itm.SerialNumber & vbCrLf s = s & "Model: " & itm.Model Next itm End With MsgBox s End Sub نسخته في موديول ماذا افعل بعد ذلك حتى يظهر السريال نسخته في موديول ماذا افعل بعد ذلك حتى يظهر السريال رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 26, 2013 مشاركة قام بنشر يناير 26, 2013 " Alt " + F8 وشغل الكود بيظهر في رسالة رابط هذا التعليق شارك More sharing options...
محمد الشابورى قام بنشر فبراير 20, 2014 مشاركة قام بنشر فبراير 20, 2014 (معدل) بمراجعة موقع ميكروسوفت http://msdn.microsoft.com/en-us/library/aa394132%28v=vs.85%29.aspx نجد أن الدالة Win32_DiskDrive.SerialNumber لا تعمل فى ويندوز xp نهائيا و بديلها هو Win32_PhysicalMedia.SerialNumber التى تعمل فى ويندوز xp و لا تعمل فى سفن تم تعديل فبراير 20, 2014 بواسطه محمد الشابورى رابط هذا التعليق شارك More sharing options...
محمد الشابورى قام بنشر فبراير 20, 2014 مشاركة قام بنشر فبراير 20, 2014 (معدل) أحى الكريم / حامد يونس شكرا لكم نريد التأكيد قبل وبعد الفورمات أخى الأستاذ دغيدى ثق تماما أنه رقم الهارد الثابت لاثلاثة أسباب الأول أن صيغة الرقم المتغير و الذى يسمى volum number يكون مثل هذا 64F9-D5EC و يمكنك معرفته عن طريق محث الأوامر ثم كتابة vol c: و طبعا يمكنك تغيير c لأى حرف السبب الثانى أنه يمكنك بسهولة فك براغى الكمبيوتر و إمساك الهارد بيديك لتجد أن الرقم الذى ذكرته WD-WCANKA323797 هو نفس الرقم المكتوب على ملصق الهارد ديسك و الرقم على هذه الصيغة 100% هو رقم ثابت بلا أدنى شك السبب الثالث كلا الدالتين Win32_DiskDrive.SerialNumber و Win32_PhysicalMedia.SerialNumber لا تحضران إلا رقم الهارد الثابت فقط لا غير جرب المرفق تقبل تحياتى vol.rar تم تعديل فبراير 20, 2014 بواسطه محمد الشابورى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان