استخدم WSH لاستدعاء أمر Ping الخاص بالنظام، وإعادة توجيه نتيجة Ping إلى ملف نصي، ثم عرض الملف النصي على صفحة الويب. الطريقة المحددة هي كما يلي:
أولاً، قم بإنشاء ملف .BAT (على سبيل المثال: myPing.BAT:). يجب استدعاء هذا الملف في ASP. رمز الملف كما يلي:
ping -a %1 > d:/INetPub/cgi-bin/%2.txt
(%1) هو العنوان الذي سيتم اختبار الاتصال به في المستقبل، (%2) هو الملف الذي يقوم بتخزين نتائج اختبار الاتصال (ping) وفيما يلي رمز ASP:
<%
تعيين FileSys = Server.CreateObject(Scripting.FileSystemObject)
اسم الملف = FileSys.GetTempName
تعيين WShShell = Server.CreateObject(WScript.Shell)
IP = xxx.xxx.xxx.xxx 'العنوان الذي تريد إجراء اختبار الاتصال به
RetCode = WShShell.Run(d:/Inetpub/cgi-bin/myPing.bat & IP & & FileName, 1, True)
إذا RetCode = 0 ثم
لا خطأ
آخر
Response.Redirect PingErrors.htm
نهاية إذا
تعيين TextFile = FileSys.OpenTextFile(d:/InetPub/cgi-bin/ & FileName & .txt, 1)
TextBuffer = TextFile.ReadAll
لأني = 1 إلى لين (TextBuffer)
إذا كان Mid(TextBuffer,i,1) = chr(13) إذن
الاستجابة.اكتب(
)
آخر
الاستجابة.الكتابة(منتصف(TextBuffer,i,1))
نهاية إذا
التالي
ملف نصي.إغلاق
FileSys.DeleteFile d:/Inetpub/cgi-bin/ & FileName & .txt
%>