ArtsAutosBooksBusinessEducationEntertainmentFamilyFashionFoodGamesGenderHealthHolidaysHomeHubPagesPersonal FinancePetsPoliticsReligionSportsTechnologyTravel

Ping Script

Updated on August 6, 2016

Ping Script

At times, when programming with VBScript, a programmer will want to know if a list of computers are connected to a network and powered on. Often times, prior to a major change, or when trouble shooting user issues, an IT professional will want to know if a device is connected to the network and powered on.

Pinging a small or large group of workstations can be accomplished by writing a VBScript which accesses the Windows Script Host by making use of WScript.Shell and Shell.run. Once these VBScripts are developed, most programmers keep them in a safe place for later use.

The program below will describe the steps necessary to accomplish this task and give you a working example to learn from.

VBScript Code for Ping Script

Ping Multiple Computers
Ping Multiple Computers | Source

Computer File

Computer File
Computer File | Source

Create Text File

Create a text file using notepad containing the host names of the computers that will need to be pinged. A list can also be copied to a notepad text file. Name the file C:\Temp\computers.txt

Within the computers.txt file, the list should look something like this.

computer1

computer2

compurer3

compurer4

The list can be as long as needed, but the script will run longer depending on the number of computers being pinged.

Create Ping Script

Go to Start - All Programs - Accessories – Notepad

Save the file as C:\Temp\PingComputers.vbs

Note: Adding .vbs to any .txt file creates an executable VBScript file.

Copy Ping Script Code

Copy and Paste the following code into Notepad.

‘**************************************************************

Option Explicit

Dim Shell, strCommand, strLine, ReturnCode, objDictionary, objWriteFile, objReadFile

'Set objects.

Set Shell = wscript.createObject("wscript.shell")

Set objDictionary = CreateObject("Scripting.Dictionary")

'Define file to write ping report.

Set objWriteFile = objFso.OpenTextFile("C:\Temp\pingReport.txt", 2, True)

'Define file to read computer list.

Set objReadFile = objFSO.OpenTextFile("C:\Temp\computers.txt", 1, False)

'Define command line.

strCommand = "ping -n 1 -w 300 " & strLine

'Loop through computers in file.

Do Until objReadFile.AtEndOfStream

strLine = objReadFile.ReadLine

strLine = trim(strLine)

'Run command and get return code

ReturnCode = Shell.Run(strCommand, 0, True)

'0 = pingable, 1 = no response

If ReturnCode = 0 Then

ReturnCode = "is pingable"

Else

ReturnCode = "is not pingable"

End If

objWriteFile.writeline strLine & "," & ReturnCode

Loop

'Cleanup objects.

Set Shell = nothing

Set objDictionary = nothing

Set objWriteFile = nothing

Set objReadFile = nothing

WScript.Quit()

'**************************************************************

Notice the comments in the script above explaining what it is doing.

Note-Comments are preceded with a "'".

Save your VBScript file and exit Notepad

VBScript Messagebox

Ping Report
Ping Report | Source

Run Ping Script

Run the script by double clicking on C:\Temp\PingComputers.vbs.

Browse to C:\Temp\pingReport and open this file. You will see your list of computers along with a comma and whether or not the computer is pingable.

working

This website uses cookies

As a user in the EEA, your approval is needed on a few things. To provide a better website experience, hubpages.com uses cookies (and other similar technologies) and may collect, process, and share personal data. Please choose which areas of our service you consent to our doing so.

For more information on managing or withdrawing consents and how we handle data, visit our Privacy Policy at: https://corp.maven.io/privacy-policy

Show Details
Necessary
HubPages Device IDThis is used to identify particular browsers or devices when the access the service, and is used for security reasons.
LoginThis is necessary to sign in to the HubPages Service.
Google RecaptchaThis is used to prevent bots and spam. (Privacy Policy)
AkismetThis is used to detect comment spam. (Privacy Policy)
HubPages Google AnalyticsThis is used to provide data on traffic to our website, all personally identifyable data is anonymized. (Privacy Policy)
HubPages Traffic PixelThis is used to collect data on traffic to articles and other pages on our site. Unless you are signed in to a HubPages account, all personally identifiable information is anonymized.
Amazon Web ServicesThis is a cloud services platform that we used to host our service. (Privacy Policy)
CloudflareThis is a cloud CDN service that we use to efficiently deliver files required for our service to operate such as javascript, cascading style sheets, images, and videos. (Privacy Policy)
Google Hosted LibrariesJavascript software libraries such as jQuery are loaded at endpoints on the googleapis.com or gstatic.com domains, for performance and efficiency reasons. (Privacy Policy)
Features
Google Custom SearchThis is feature allows you to search the site. (Privacy Policy)
Google MapsSome articles have Google Maps embedded in them. (Privacy Policy)
Google ChartsThis is used to display charts and graphs on articles and the author center. (Privacy Policy)
Google AdSense Host APIThis service allows you to sign up for or associate a Google AdSense account with HubPages, so that you can earn money from ads on your articles. No data is shared unless you engage with this feature. (Privacy Policy)
Google YouTubeSome articles have YouTube videos embedded in them. (Privacy Policy)
VimeoSome articles have Vimeo videos embedded in them. (Privacy Policy)
PaypalThis is used for a registered author who enrolls in the HubPages Earnings program and requests to be paid via PayPal. No data is shared with Paypal unless you engage with this feature. (Privacy Policy)
Facebook LoginYou can use this to streamline signing up for, or signing in to your Hubpages account. No data is shared with Facebook unless you engage with this feature. (Privacy Policy)
MavenThis supports the Maven widget and search functionality. (Privacy Policy)
Marketing
Google AdSenseThis is an ad network. (Privacy Policy)
Google DoubleClickGoogle provides ad serving technology and runs an ad network. (Privacy Policy)
Index ExchangeThis is an ad network. (Privacy Policy)
SovrnThis is an ad network. (Privacy Policy)
Facebook AdsThis is an ad network. (Privacy Policy)
Amazon Unified Ad MarketplaceThis is an ad network. (Privacy Policy)
AppNexusThis is an ad network. (Privacy Policy)
OpenxThis is an ad network. (Privacy Policy)
Rubicon ProjectThis is an ad network. (Privacy Policy)
TripleLiftThis is an ad network. (Privacy Policy)
Say MediaWe partner with Say Media to deliver ad campaigns on our sites. (Privacy Policy)
Remarketing PixelsWe may use remarketing pixels from advertising networks such as Google AdWords, Bing Ads, and Facebook in order to advertise the HubPages Service to people that have visited our sites.
Conversion Tracking PixelsWe may use conversion tracking pixels from advertising networks such as Google AdWords, Bing Ads, and Facebook in order to identify when an advertisement has successfully resulted in the desired action, such as signing up for the HubPages Service or publishing an article on the HubPages Service.
Statistics
Author Google AnalyticsThis is used to provide traffic data and reports to the authors of articles on the HubPages Service. (Privacy Policy)
ComscoreComScore is a media measurement and analytics company providing marketing data and analytics to enterprises, media and advertising agencies, and publishers. Non-consent will result in ComScore only processing obfuscated personal data. (Privacy Policy)
Amazon Tracking PixelSome articles display amazon products as part of the Amazon Affiliate program, this pixel provides traffic statistics for those products (Privacy Policy)
ClickscoThis is a data management platform studying reader behavior (Privacy Policy)