في نظام Win2000، يمكن تنفيذ الأوامر من خلال أسلوب Exec للكائن Wscript.Shell،
التعليمات البرمجية البسيطة هي كما يلي:
<% Response.Buffer = true %>
<%
عنوان URL = " www.topronet.com "
تعيين objWShell = CreateObject("WScript.Shell")
تعيين objCmd = objWShell.Exec("ping" & url)
strPResult = objCmd.StdOut.Readall()
تعيين objCmd = لا شيء: تعيين objWShell = لا شيء
strStatus = "غير متصل"
إذا كان InStr(strPResult,"TTL=")>0 ثم strStatus = "متصل"
Response.write URL & "الحالة هي:" & strStatus
Response.write ".<br>" & استبدال(strPResult,vbCrLf,"<br>")
Response.write "<br><hr>كتبه Ci Qinqiang، مرحبًا بك لزيارة
<a href='http://blog.csdn.net/cqq' target='_blank'>
http://blog.csdn.net /ككف</a>"
%>
في نظام XP أو نظام Windows.NET Server، يمكنك استخدام WMI لتحقيق ذلك،
الكود كما يلي:
<%
عنوان URL = " www.topronet.com "
WMI = "winmgmts:{impersonationLevel=impersonate}"
wqlQuery = "حدد رمز الحالة من Win32_PingStatus حيث العنوان" & _
" = '" & عنوان URL & "'"
تعيين PingResult = GetObject(WMI).ExecQuery(wqlQuery، "WQL"، 48)
الاستجابة.اكتب عنوان URL و"الحالة"
لكل نتيجة في PingResult
إذا كان clng(result.StatusCode)>0 إذن
الرد.اكتب "غير متصل"
آخر
الرد.اكتب "على الانترنت"
نهاية إذا
التالي
%>
بالطبع، يمكننا أيضًا كتابة المكونات المقابلة بأنفسنا أو استخدام بعض المكونات الجاهزة لتحقيق مثل هذه الوظائف،
لذلك لن أخوض في التفاصيل هنا.