Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2088
  • Last Modified:

Need something(script?) to run Ping -t in background?

I need something, a script or batch file maybe, that will run ping -t command in the background so the user doesnt see it.

The exact Ping command it needs to run is:

Ping Datatrack -t

Again I need someway for this to run in the background or system tray so the user doesnt see the command prompt.

If someone can give me the exact code to do this, that way I can just copy and paste into notepad and rename the extension, that would be great.

Thanks in advance for all the help!
0
jrouille
Asked:
jrouille
2 Solutions
 
RobSampsonCommented:
Hi, this should do it, but you'd have to kill wscript.exe when you want it to stop....

Regards,

Rob.
Option Explicit
 
Dim strComputer, boolResult, objShell, arrComputers
 
strComputer = "DataTrack"
Set objShell = CreateObject("WScript.Shell")
boolResult = Ping(strComputer)
If boolResult = False Then
	MsgBox "Ping to " & strComputer & " failed!",vbOKOnly,"Failed"
ElseIf boolResult = True Then
	MsgBox "Ping to " & strComputer & " successful!",vbOKOnly,"Successful"
Else
	MsgBox "Unknown error occurred.  No result returned.",vbOKOnly,"Failed"
End If
 
Function Ping(strComputer)
	Dim objShell, boolCode
	Set objShell = CreateObject("WScript.Shell")
	boolCode = objShell.Run("Ping -t " & strComputer, 0, True)
	If boolCode = 0 Then
		Ping = True
	Else
		Ping = False
	End If
End Function

Open in new window

0
 
rejoinderCommented:
Copy the text below into notepad and save as ping-computer.vbs
The script will continue to ping the computer as long as the process is running.
You can run this through task scheduler or you can put the vbs file in the users startup folder.  If you run this using task scheduler, you have a little more control over starting and stopping the script.

strComputer  = "Datatrack" 'Enter the computer name you want to ping here
strHost      = "."
loopVariable = 0
 
Do While loopVariable < 1
    Set PingResults = GetObject("winmgmts:{impersonationLevel=impersonate}//" & strHost & "/root/cimv2"). ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address = '" + strComputer + "'")
    wscript.sleep 1000
Loop

Open in new window

0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now