كيف يتم عمل بنج للايبي ادرس pinging IP Address للخ

للحين مافي رد

الله يعين

السلام عليكم، لقد رأيت هذه الرسالة من قبل، و لكني لم أتعامل في أمور منح الاستضافة و البحث في الـ hosting من قبل. و رحم الله إمرءاً عرف قدره فوقف عنده. و لكن طالما أن أحداُ لم يجبك فهذه مقالات هامة في هذا الموضوع باللغة الإنكليزية:

معلومات عن و أخطاء في الـ ping:

http://www.inetdaemon.com/tutorials/troubl...oting/ping.html

كيفية عمل IP Ping باستخدام VB:

http://vbnet.mvps.org/index.html?code/internet/ping.htm

أتمنى لك التوفيق، و أن أكون قد ساعدت و لو بشئ بسيط

السلام عليكم

الكود التالي يقوم بعمل ping

<%

Set FileSys = Server.CreateObject("Scripting.FileSystemObject")
FileName = FileSys.GetTempName

Set WShShell = Server.CreateObject("WScript.Shell")

IP = "217.21.4.25" 
RetCode = WShShell.Run("d:\Inetpub\cgi-bin\doping.bat " & IP & " " & FileName, 1, True)




Set TextFile = FileSys.OpenTextFile("d:\InetPub\cgi-bin\" & FileName & ".txt", 1)
TextBuffer = TextFile.ReadAll

For i = 1 to Len(TextBuffer)

If Mid(TextBuffer,i,1) = chr(13) Then

Response.Write("<BR>")

else
'response.write(chr(13))
Response.Write(Mid(TextBuffer,i,1)) 

end if

Next

TextFile.Close

FileSys.DeleteFile "d:\Inetpub\cgi-bin\" & FileName & ".txt"

%>

قم بإنشاء مجلد داخل ال intpub وسميه cgi-bin

وقم بعمل الملفين التالين

a.bat و doping.bat.

بعد أن انشأتهم قم بتنفيذ الكود وسوف يظهر لك الناتج.

مع تحياتي

الله المستعان

اخ عبدالله بارك الله فيك الطريقة ناقصة

هنا بعض سكريبتات الـ ASP (مجاناً أو بفلوس) في نفس الموضوع قد تفيد إن شاء الله:

http://aspin.com/func/search?tree=aspin&qry=ping&cat=all