کنترل کامپیوترهای متصل به شبکه

[murallat]

من سرور دارم و یک شبکه محلی متصل به اینترنت . چگونه می توانم از طریق داشتن ای پی کلاینت ها روشن یا خاموش بودن آنها و یا به اینترنت و شبکه محلی وصل بودن آنها را چک کنم ؟ با تشکر

[Gladiator]

ای پی ها رو پینگ کن !
خیلی ساده .

[Vahid_Nasiri]

در تکمیل فرمایش دوستمان برنامه زیر هم وجود دارد که اینکار را برای شما راحت می کند . برنامه نقلی و بدرد بخوری است! :lol: :wink:

http://www.angryziber.com/ipscan

[RezaBS]

سلام
داشتم موضوعات را در کامپیوتر مرور میکردم، دیدم به این سوال جواب داده شده ولی جوابها مربوط به دلفی نمیشوند.
باز گفتم در آینده یکی دنبال این موضوع میگرده یک جواب حسابی داشته باشه بد نیست!
قدیمها در دلفی5 برنامه زیر همانند ping کار میکرد (حقیقتش از یک جایی برداشته بودمش)، اینجا از توابع API (یا به قول آقای اینپرایز محصور کننده...) استفاده شده و در نتیجه با تغییراتی در همه جا کاربرد داره.
استفاده کنید و خوش باشید:


unit FindComp;

interface

uses
Windows, Classes;

function FindComputers: DWORD;

var
Computers: TStringList;

implementation

uses
SysUtils;

const
MaxEntries = 250;

function FindComputers: DWORD;

var
EnumWorkGroupHandle,
EnumComputerHandle : THandle;
EnumError : DWORD;
Network : TNetResource;
WorkGroupEntries,
ComputerEntries : DWORD;
EnumWorkGroupBuffer,
EnumComputerBuffer : array[1..MaxEntries] of
TNetResource;
EnumBufferLength : DWORD;
I, J : DWORD;

begin

Computers.Clear;

FillChar(Network, SizeOf(Network), 0);
with Network do
begin
dwScope := RESOURCE_GLOBALNET;
dwType := RESOURCETYPE_ANY;
dwUsage := RESOURCEUSAGE_CONTAINER;
end;

EnumError := WNetOpenEnum(RESOURCE_GLOBALNET,
RESOURCETYPE_ANY, 0,
@Network,
EnumWorkGroupHandle);

if EnumError = NO_ERROR then
begin
WorkGroupEntries := MaxEntries;
EnumBufferLength := SizeOf(EnumWorkGroupBuffer);
EnumError := WNetEnumResource(EnumWorkGroupHandle,
WorkGroupEntries,
@EnumWorkGroupBuffer,
EnumBufferLength);

if EnumError = NO_ERROR then
begin
for I := 1 to WorkGroupEntries do
begin
EnumError := WNetOpenEnum(RESOURCE_GLOBALNET,
RESOURCETYPE_ANY, 0,
@EnumWorkGroupBuffer[I],
EnumComputerHandle);
if EnumError = NO_ERROR then
begin
ComputerEntries := MaxEntries;
EnumBufferLength:= SizeOf(EnumComputerBuffer);
EnumError:=WNetEnumResource(EnumComputerHandle,
ComputerEntries,
@EnumComputerBuffer,
EnumBufferLength);
if EnumError = NO_ERROR then
for J := 1 to ComputerEntries do
Computers.Add(Copy(EnumComputerBuffer[J].
lpRemoteName, 3,
Length(EnumComputerBuffer[J].
lpRemoteName) - 2));
WNetCloseEnum(EnumComputerHandle);
end;
end;
end;
WNetCloseEnum(EnumWorkGroupHandle);
end;

if EnumError = ERROR_NO_MORE_ITEMS then
EnumError := NO_ERROR;
Result := EnumError;

end;

initialization

Computers := TStringList.Create;

finalization

Computers.Free;

end.


در صورت برخورد با هر گونه اشکال خواهشمند است سریع گزارش دهید تا رفع گردد یا گردند!

موفق باشید ...

[Inprise]

دوست عزیز

محصور کننده معادل عبارت Wrapper است .

کاری که شما الان کردی درست کار کردن با API است . اگر کامپوننتی طراحی کنی که این کار رو بدون درگیری با جزئیات برای مشتری انجام بده و کاربر فقط با چند تا اینترفیس ساده سر و کار داشته باشه اونوقت یه محصور کننده برای چند API نوشتی . البته محصور کننده عموما برای اشیا با مولفه های پیچیده بکار میره . مثل محصور کننده های استانداردی که محیط دلفی برای برقراری ارتباط با تایپ لایبراری ها تولید میکنه .
موفق و سلامت باشی

[RezaBS]

سلام

من که گفتم اینها با API هستند که البته واضح هم هست دیگه ساخت به قول شما محصور... به عهده خودشون!
لقمه را من نجوم بهتر نیست؟
به هر حال اگر فکر میکنید اونجوری بهتره از نظر من مشکلی نیست میتونم اینجا کپی کنم یا خودتون زحمتشو بکشید.
با تشکر به خاطر توضیح تکمیلی دوست :wink: گرامی آقای اینپرایز ...

[RezaBS]

با توجه به بحث فوق برای اینکه مشکلی باقی نمونه میتونید به بحث زیر مراجعه کنید:
http://www.barnamenevis.org/forum/viewtopic.php?t=210&start=0&postdays=0&postorder=asc&highlight=

امید است آقای اینپرایز کوتاهی اینجانب را به بزرگواری خودشان ببخشایند، اما این کلمه محصورکننده یک جورهایی قابل هضم نیست! :wink:

به امید موفقیت شما ...

[Inprise]

آدامس P.K مصرف (!) کن . زود هضم میشه !!!! :twisted:

:mrgreen:

[RezaBS]

با سلام و عرض ادب!!
آقای اینپرایز، اگر خاطرتون باشه خودتون از دوستان خواسته بودید در این سایت بحث فلسفی نشه!!! پس حالا چرا خودتون...؟؟
از لحاظ علمی! استفاده از آدامس جهت هضم هر نوع مهضمی مثل استفاده از توابع استاندارد SDK جهت ساخت یک کلید معمولی در محیط دلفی هست!
من به شما استفاده از نوشیدنیهای مجاز را پیشنهاد میکنم!

اما از شوخی گذشته، استفاده از کلمه "محصور کننده" به جای Wrapper در واقع جایگزینی یک کلمه غیر فارسی و غیر علمی به جای یک کلمه غیر فارسی و شاید بهتره به این هم بگیم غیر علمی دیگه هست.
اگر اینجور نگاه کنیم اونوقت کلمه "پیچاننده!" یا "پیچ دهنده!" یا ... هم مجازه! بهتر نیست قبول کنیم گاهی استفاده از کلمه اصلی و البته شاید بی معنی ویا نوشتن مفهوم کلمه بهتر از استفاده از ترجمه های نامفهومه؟
دو سال پیش تو مجله کامپیوتر ترجمه ای خوندم که در اون کلمات معرکه فراوانی یافت میشد، یکیش "نمایش کلاه خودی" بود!!!!

موفق باشید ...

[Inprise]

..موافقم .... :roll: