منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "الشبكات";
الأرشيف الحالي: 2002.07.25;
تنزيل: [xml.tar.bz2];

إلى

كيف يمكنني الحصول على قائمة أجهزة الكمبيوتر في شبكة محلية برمجياً؟ البحث عن فروع مماثلة


Krok   (2002-05-13 14:23) [0]

كيف يمكنني الحصول على قائمة أجهزة الكمبيوتر في شبكة محلية برمجياً؟
الشخص الذي يظهر عند النقر فوق الرمز "بيئة شبكتي"



Krok   (2002-05-13 14:26) [1]

المهمة: بطريقة أو بأخرى ، احصل على اسم الكمبيوتر الذي تم تسجيل بعض خوادم DCOM عليه. الفكرة هي فرز كل شيء ... لكن كيف؟



VuDZ   (2002-05-13 14:28) [2]

WNetEnumResources () إذا لم أكن مخطئًا - MSDN "لكنني لست في متناولي حاليًا



Song   (2002-05-13 14:50) [3]

في التعليمات هناك.



vuk   (2002-05-13 14:58) [4]

إذا ل WinNT / 2000 / XP ، ثم مثال هنا:
http://delphibase.endimus.com/?action=viewfunc&topic=netlan&index=1



Yuri Btr   (2002-05-14 10:45) [5]

Dimka Maslov لديه مثال جيد - findcomp.zip
انظر في المخزن.



Zak   (2002-05-15 07:07) [6]

كيف تجد جميع أجهزة الكمبيوتر في مجموعة العمل؟

var Computer: Array [1..500] of String [25]؛
ComputerCount: عدد صحيح.

الإجراء FindAllComputers (مجموعة العمل: سلسلة) ؛
Var EnumHandle: THandle؛
WorkgroupRS: TNetResource؛
Buf: Array [1..500] من TNetResource؛
BufSize: عدد صحيح.
إدخالات: عدد صحيح.
النتيجة: عدد صحيح
start ComputerCount: = 0؛
مجموعة العمل: = Workgroup + #0؛
FillChar (WorkgroupRS ، SizeOf (WorkgroupRS) ، 0) ؛
مع WorkgroupRS ، ابدأ dwScope: = 2؛
dwType: = 3؛
dwDisplayType: = 1؛
dwUsage: = 2 ؛
lpRemoteName: =Workgroup [1]؛
الغاية؛
WNetOpenEnum (RESOURCE_GLOBALNET، RESOURCETYPE_ANY، 0،WorkgroupRS، EnumHandle)؛
كرر الإدخالات: = 1 ؛
BufSize: = SizeOf (Buf) ؛
النتيجة: = WNetEnumResource (EnumHandle ، إدخالات ،Buf ، BufSize) ؛
إذا (النتيجة = NO_ERROR) و (الإدخالات = 1) ، فابدأ Inc (ComputerCount) ؛ الكمبيوتر [ComputerCount]: = StrPas (Buf [1] .lpRemoteName) ؛
الغاية؛
حتى (الإدخالات <> 1) أو (النتيجة <> NO_ERROR) ؛
WNetCloseEnum (EnumHandle) ؛
ينتهي. {Find All Computers}




Dimka Maslov   (2002-05-15 09:35) [7]

http://downloads.endmius.com/findcomp.zip



صفحات: 1 فرع كامل

المنتدى: "الشبكات";
الأرشيف الحالي: 2002.07.25;
تنزيل: [xml.tar.bz2];

الطابق العلوي





الذاكرة: 0.56 ميغابايت
الوقت: 0.041 ج
6-81406
niko4543
2002-05-13 22:49
2002.07.25
مساعدة الماجستير


1-81276
اندي bitoff
2002-07-15 12:58
2002.07.25
وصف كامل لوظائف Delphi6


1-81254
SemFLY
2002-07-14 20:37
2002.07.25
نافذة DOS والمعلومات في ذلك.


1-81265
volph
2002-07-13 21:36
2002.07.25
سلسلة -> BSTR


1-81300
Alex_win
2002-07-11 14:51
2002.07.25
صورة الرسومات التناوب





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch English الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский