السلام عليكم محترفي البرمجة
لي سؤال وتعبت من البحث
انا اسوي برنامج لشركتي الذي اعمل بها
ولكن وقفة امامي هذه المشكله
كيف لي ان اعرف Host Name كمبيوتر في نفس ال ـNetwork ؟
الرجو الرد ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
كيف لي ان اعرف Host Name كمبيوتر في نفس ال Network ؟
مغلق
اخي للاسف لم اتوصل لشيئ الا لموضوع للاخت بنت اليمن والمشكله انك حاطط رابط الموضوع غلط يعني بيوديني على موضوع تاني خالص
لست أدري إن كان هذا سيفيدك ... أتمنى ذلك
تحياتي
هذا للحصول على أسم الكمبيوتر:
Public Sub getcomputernm()
''This is to get the computer name
Dim s$, cnt&, dl&
cnt& = 199
s$ = String$(200, 0)
dl& = GetComputerName&(s$, cnt&)
''LoggedUser_PCNAME will hold the string value of the current computer name
LoggedUser_PCNAME = UCase(Left$(s$, cnt&))
End Sub
وهذا للحصول على أسم المستخدم:
Public Sub getusernm()
''This is to get user NT ID
Dim s$, cnt&, dl&
cnt& = 199
s$ = String$(200, 0)
dl& = GetUserName&(s$, cnt&)
LoggedUser_ID = UCase(Left$(s$, cnt&))
ID_Length = Len(LoggedUser_ID) - 1
LoggedUser_USERID = Left(LoggedUser_ID, ID_Length)
End Sub
تم تعديل هذه المشاركة بواسطة sawadallayl في 8 أبريل 2007 في 21:07
الدليل السريع به جزء خاص بالشبكات ..ستجد غايتك فيه ..
علي العموم
إذا كان اسم الجهاز علي الشبكة ثابت فيمكنك استخدام دالة GetHostByName وهي تعيد لك عنوان الانترنت IP لأي جهاز لمعلومية اسمه .. كمثال مبسط
GetHostByName(PC05)
ستعود لك برقم الـIP وليكن 10.0.0.20
إذا كان عنوان الـ IP للجهاز ثابت وتريد إتيان اسم الجهاز علي الشبكة HOST Name فتستطيع استخدام دالة GetHostByAddr ..
كمثال مبسط
GetHostByAddr(10.0.0.20)
ستعود لك باسم الجهاز وليكن PC05
حدد مطلبك وستجد الشرح في جزء الشبكات في الدليل السريع
تم تعديل هذه المشاركة بواسطة Pharaonic_Guy في 9 أبريل 2007 في 05:49
ياجماعة
انتو ليه مش عوزين تفهموني
ان مجرد اني عاوزه اعرف الـ IP كذا الـ Host Name بتاعه ايه ؟
ايه ياجماعة هو الموضوع صعب ولا حاجة
هترفد
المشكلة يا أخ سونا إنك مش عايز تسمع كلامنا ..
قلتلك قبل كده استخدم GetHostByAddress وهي سهله وستجد لها شرح هنا ضمن دروس الـ Windows Sockets في فهرس الشبكات ..
علي العموم المشروع مرفق ..
وبما إنك عضو جديد فعايزين نشوفك في مناقشات المنتدي دائما .. وتفيد وتستفيد ..
هذا الموضوع مغلق.