כיצד להשתמש VB VB לבצע בדיקה פינג

תוֹכֶן

• הוראות
• מה שאתה צריך

על ידי אוטומציה של תהליך פינג של כתובות שונות באמצעות Virtual Basic for Applications (VBA), תוכל לחסוך הרבה זמן, במיוחד כאשר אתה צריך פינג כתובות מרובות. פינג כתובת פירושו יישום בדיקה וקביעת אם כתובת נגיש ברשת האינטרנט. VBA דומה מאוד ל- VB ואתה יכול להשתמש בו בכל יישום של Microsoft Office כגון Excel. כדי ping מארח, אתה צריך להשתמש בכמה משתנים כדי להפעיל סקריפט הפקודה, באמצעות "Windows Scripting". אתה יכול להשתמש בשיטה זו כדי לבדוק את הכתובות של "מארח" כדי לוודא שהם עובדים. תוכנית ה- VBA עלולה ליצור שגיאה במקרה שהמארח אינו מגיב.

הוראות

יצירת פונקציה חדשה ב- Excel באמצעות VBA (Comstock / Comstock / Getty Images)

1. פתח את Microsoft Excel, לחץ על הכרטיסייה "מפתח" ולחץ על "Visual Basic" כדי לפתוח את חלון העריכה VBA. לחץ על תפריט "הוספה" ו "מודולציה" כדי להזין קוד אפנון חדש.

2. העתק והדבק את הקוד הבא כדי ליצור את ההליך שייקרא "myPingFunction" (פונקציית ping שלי) והוא יציג את תוצאות הפינג עבור "google.com" באמצעות תיבת הודעה:

   פרטי. (סוף סוף)

3. ערוך את "google.com" מהצעד הקודם והזן את "המארח" שברצונך לבצע פינג.

4. להעתיק ולהדביק את הפונקציה הבאה כדי ping את כתובת "המארח" ששלח לפונקציה ולהחזיר את התוצאות לנוהל קורא:

   אני מנסה ליצור סקריפט שישמש ליצירת סקריפט שישמש ליצירת סקריפט. ) sFilename = FSObj.GetTempName shellObj.Run "cmd / c ping" & hostAddress & ">" & sFilename, 0, True set tmpFileObj = FSObj.OpenTextFile (sFilename, 1) האם בזמן tmpFileObj.AtEndOfStream <> True sLine = tmpFileObj. קריאה myPingFunction = myPingFunction & לקצץ (sLine) לולאה tmpFileObj.Close FSObj.DeleteFile (sFilename) סוף פונקציה

   
   

5. לחץ בתוך ההליך "callPingFunction" (קריאה פונקציה ping) ולחץ על "F5" כדי לבצע את זה. תוצאות הפינג יוצגו באמצעות תיבת הודעה.

מה שאתה צריך

• Microsoft Office