سيريال نمبر الجهاز

[AYMAN Z HARB]

اصدقائي الاعزاء - اريد ربط منظومة استخراج سيريال نمبر الجهاز واضافتها لمنظومة خبور الاصدار الثاني او الثالث بحيث لا تعمل منظومة خبور الا على جهاز واحد فقط لقد حاولت نسخ الكود ولكن لم تنحج العملية مرفق لكم المحاولة

شاكرا لكم مساعدتكم

_____________________2_3.rar

[cat101]

ياترى ايه الداعي انها تعمل على حهاز واحد فقط .. مجرد سؤال ؟

[AYMAN Z HARB]

لان عندي شبكة ومش عايز حد ينقل المنظومة ويعمل عليها لاحتوائها على اسرار العمل

واضح الان

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

لاستخراج سيريال نمبر الجهاز استخدم الكود التالى

Sub Auto_Open()
    Dim fs, d, s, t
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
    Select Case d.DriveType
        Case 0: t = "Unknown"
        Case 1: t = "Removable"
        Case 2: t = "Fixed"
        Case 3: t = "Network"
        Case 4: t = "CD-ROM"
        Case 5: t = "RAM Disk"
    End Select
    s = "Drive " & d.DriveLetter & ": - " & t
    s = s & vbCrLf & "SN: " & d.SerialNumber
    MsgBox s

End Sub

مرفق ملف

السلام عليكم

My_Drive.rar

[AYMAN Z HARB]

الاخ هادي سالم

لك منى جزيل الشكر والامتنان لاهتمامك بي وبارك الله فيك

جعلها الله في ميزان حسناتك

[AYMAN Z HARB]

ما اريده يا استاذ هادي يوجد كود بالملف المرفق بمنظومة خبور الاصدار الثاني في الفيجوال بيسك ولكن بينهما تعارض كود يحسب عدد مرات فتح الملف وكود اظهار رقم الجهاز المطلوب فك هذا التعارض مع جزيل الشكر

[AYMAN Z HARB]

اخواني اين المحاولات

[أبو شرف]

اخواني الأعزاء في المنتدى العزيز

ارجو منكم توضيح الخطوات التي نعمل عليها هذا الكود لملف الأكسل لذلك ارجو التوضيح لاننا احيانا لدينا ملفات مهمة واسرار عمل ولكم الشكر مقدما والحمد لله رب العالمين

اخوكم محاسب

ابو شرف

[AYMAN Z HARB]

وينكم يا جماعة

ممكن يا استاذ خبور ايميلك الشخصي لموضوع هام

[DIAA125]

الاخ ابو ياسمين انظر الرابط التالي هيساعدك

http://www.officena.net/ib/index.php?showt...mp;#entry115515

[DIAA125]

الاخ ابو ياسمين انظر الرابط التالي هيساعدك

http://www.officena.net/ib/index.php?showt...mp;#entry115515

سوري الاخت ايو ياسمين

[AYMAN Z HARB]

مشكورة اخت دياااااااا125