تمرير اسم مستخدم و باسورد جهاز أخر على الشبكة

[محمد احمد لطفى]

السلام عليكم ورحمة الله و بركاته 

فى هذا النموذج يتم نقل جداول من جهاز الى جهاز على الشبكة 

و لكن عند تغيير الويندوذ أو لاي سبب كان يطلب يطلب الجهاز اسم المستخدم والباسورد فكيف يمكن تمريرها من خلال الاكسيس

وجزاكم الله خيراً 

من فضلكم ليس هناك داعى لعمل اقتباس عند الرد فهذا يقوم بدوره بتشتيت المطلع والباحث عن نفس الموضوع مستقبلاً

Ip.rar

[محمد احمد لطفى]

للرفع

[محمد احمد لطفى]

للرفع

[ابو جودي]

للرفع  

 

تم تعديل سبتمبر 25, 2019 بواسطه ابا جودى

[د.كاف يار]

اخوي جرب بهذي الطريقة

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

"\\192.168.1.2\Pro\IP.accdb" & "UserName" & "password"

 

[د.كاف يار]

اكثر جمل الاتصال الآمن استخدمها تكون على النحول التالي

 

في رأس موديل الفورم 

Option Explicit
 
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Const SW_HIDE As Long = 0
Private Const SW_SHOWNORMAL As Long = 1

 

الاتصال ( اضف الأيبي + اسم المستخدم + كلمة المرور )

ShellExecute Me.hwnd, "Open", "C:\Windows\System32\mstsc.exe", "/P pinghost=Enter server IP address: '' \\%pinghost% /user:''\username ''", "C:\", SW_SHOWNORMAL

اذا استطعت الاتصال و الدخول لسطح المكتب يصير الأمر بسيط فقط بتعديل السطر اعلاه

 

[ابو جودي]

لا لا لا لا يا استاذى الجليل ومعلمى القدير الفاضل @د.كاف يار  انا لا اريد الدخول الى الجهاز الاخر على الشبكة من Remote Desktop Connection

انا اريد ان اصل الى المجلد الذى تم عمل مشاركه له 

مثلا لو اردت فتح الجهاز على الشبكة من خلال الـ  IP

فى الامر run اقوم بكتابة الــ IP

\\192.168.1.5

تكمن المشكلة فى انه اذا لم تكن بيانات الجهاز التى تخص الجهاز الذى يخص الاى بى السابق محفوظة فى الـ  Windows Credential لنظام تشغيل المستخدم تظهر رسالة خطأ لانه لم يتم الاتصال بقاعدة الجداول  وقد لا يخطر على بال المستخدم ان المشكله تكمن اصلا فى عدم الاتصال بجهاز الحاسوب صاحب الاى بي 

 

الفكرة هى كود يقوم اولا بالاتصال بالحسوب بتمرير اسم المستخدم وكلمة المرور من خلال  FormSplash وبمجرد الاتصال يدخل الى باقى النماذج والمرتبطة الجداول على هذا المسار 

[ابو جودي]

  up

[محمد احمد لطفى]

ياريت الموضوع ده مهم

[ابو جودي]

جرب الكود ده ورد على بالنتيجة لة تكرمت

Dim NetworkObject As Object
    Dim FSO As Object
    Dim Directory As Object
    Dim Filename As Object
    Dim ServerShare As String
    Dim UserName As String
    Dim Password As String

    ServerShare = "\\corp-server\HostingFolder"
    UserName = "mydomain\myuser"
    Password = "freddie123"

    Set NetworkObject = CreateObject("WScript.Network")
    Set FSO = CreateObject("Scripting.FileSystemObject")

    NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password

    Set Directory = FSO.GetFolder(ServerShare)
    For Each Filename In Directory.Files
        Debug.Print Filename.Name
    Next

    Set Filename = Nothing
    Set Directory = Nothing
    Set FSO = Nothing

    NetworkObject.RemoveNetworkDrive ServerShare, True, False

    Set NetworkObject = Nothing

 

[ابو جودي]

طبعا تعدل البيانات دى حسب ما عندك

    ServerShare = "\\corp-server\HostingFolder"
    UserName = "mydomain\myuser"
    Password = "freddie123"

 

[محمد احمد لطفى]

سوف اقوم بالتجربة غدا على جهاز على شبكة

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

هوه مفروض يفتح الفايل ولا لأ

تم تعديل أكتوبر 1, 2019 بواسطه محمد احمد لطفى

[ابو جودي]

وانا لا املك الامكانيات اللازمة للتجربة كذلك 

[محمد احمد لطفى]

بس ابشر 

لما بكتب رقم الباسورد غلط و بضغط على الزر بيجى رسالة خطأ

و لما بكتب رقم البسورد صح و بضغط على الزر رسالة الخطأ لا تظهر

[محمد احمد لطفى]

أستاذى @ابا جودى

بارك الله فيك الكود يعمل

واذا دخلت مرة ثانية بدون الكود اى من الشبكة يطلب الجهاز اليوزر و الباسورد و السبب أنه لا يتذكر الكود  و بعد تغيير الى الكود التالى يعمل دائما 

 

    NetworkObject.MapNetworkDrive "", ServerShare, True, UserName, Password

 

[ابو جودي]

الله اكبــــــر فعلا اشتغل طيب الحمد لله رب العالمين 

طيب ممكن اطلب منك طلب
ممكن تتكرم على وترفع المرفق اللى انت عملته اللى اشتغل معاك بالبيانات اللى انت عملتها زى ما عملتها بالضبط  

[محمد احمد لطفى]

تفضل أستاذى @ابا جودى

 

New.accdb

[ابو جودي]

جزاكم الله عنى كل خيـــــر 

[ابو جودي]

سبحان الله 

لم تعمل عندى 

اعتقد اننى لم استطع تنفيذ الكود جيدا 

يظهر هذا الخطأ معى

على كل حال الحمد لله انك سعدت بها وتمت معك بفضل الله بدون اى مشاكل 

[ابو جودي]

اتفضل  يا استاذ @محمد احمد لطفى 

Connect To Network.accdb

[محمد احمد لطفى]

هذه لكى تعمل من خلال النموذج المهم عملت عندك ام لا 

هذه الرسالة كانت تاتينى اذا كان هناك خطأ فى IP او الباسورد

[ابو جودي]

الحمد لله رب العالمين نجحت ونجح الاتصال

بس ممكن طلب

ممكن اعرف إصدار الويندوز عندك  .......  والنواه  بتاعته  32  بيت  او   64  بيت

ممكن اعرف إصدار الاوفيس عندك  .......  والنواه  بتاعته  32  بيت  او   64  بيت

 

واليك التعديل الاخيــــــــــــر  

Connect To Network (1).accdb

[ابو جودي]

بافكر اضيف شئ على نموذج الاتصال

مكان لكتابة الاى بي

واسم المجلد 

ويتم حفظ البيانات ويتم استدعائها 

 

فكر معايا يا استاذ @محمد احمد لطفى 

[محمد احمد لطفى]

و

ويندوذ 10 64 و اوفيس 2016  بس مش عارف 64 و لا 32

[figo82eg]

ممكن الملف بصيغة 2003