VBA timed program 1

[LSIGuy]

I am trying to write a program that will ping a host through DOS every 30 min. I need to know how to write commands to DOS through Excels VBA and then how to make it issue that command every 30 min. The program must be running constantly so I was curious if any of you guys had any ideas... Thanks.

 

[Guest_imported]

Here Goes

This first one goes in the sheet or wherever

Private Sub CommandButton1_Click()
Application.OnTime Now + TimeValue("00:30:00&quot, "Runme"
End Sub

This one goes in module1
Sub Runme()
Dim Shell, Word
Set Shell = CreateObject("WScript.Shell&quot
strProgToRun = "ping 1.2.3.4"
Shell.Run (strProgToRun)
End Sub

 

[Guest_imported]

if you want it to do it every 30 mins
Sub Runme()
Dim Shell, Word
Set Shell = CreateObject("WScript.Shell&quot
Shell.Run ("ping 1.2.3.4&quot
Application.OnTime Now + TimeValue("00:30:00&quot, "Runme"
End Sub