البحث في الموقع
Showing results for tags 'Physical Number'.
تم العثور علي 1 نتيجه
-
إخوتي الفضلاء أنت تسأل ونحن نجيب ... للتعرف على الرقم الفعلي للصانع والذي خصص لمحرك الأقراص على جهازك ، وليس ذاك المؤقت الذي يتغير عند إعادة تنصيب الويندوز إستخدم الكود التالي : strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_DiskDrive", , 48) For Each objItem In colItems If objItem.DeviceID = "\\.\PHYSICALDRIVE0" Then Me.Text0 = objItem.SerialNumber End If Next وهنا وعلى غير ما اعتاد أهل اللصق والنسخ ، فإننا سنستخدم ما يلزمنا لا ما قدم لنا ، حيث سنطلب التعامل مع PHYSICALDRIVE0 وهو يمثل دائماً (فيما أعلم ) محرك الأقراص الرئيسي ، وبذلك نبتعد عن ما حوله من الأقراص المتحركة أو محرك الأقراص الثانوي . وكل يستخدم نطاق الكود كما يشاء ... والله من وراء القصد وهو حسبي ...................... ............... ................................................