for Apps 7.0
Im hoping someone could help me!
I have a Excel spreadhseat named - CommsMASTER.xlsm thats runs the following macro;
For Each tmpCell In Range("D2:D1027").SpecialCells(2, 2)
If InStr(CreateObject("WScript.Shell").Exec("%comspec % /c Ping -4 -n1 -w 750 " & tmpCell).StdOut.ReadAll, "TTL=") Then
tmpCell.Offset(0, 3) = "OK"
tmpCell.Offset(0, 3) = "Failed"
script basically pings a number of IP address and records the results as follows;
C D E F G H I J K
Site No. IntIP ExtIP Name 08:00 09:00 10:00 11:00
91 188.8.131.52 184.108.40.206 ABBEY OK
53 220.127.116.11 18.104.22.168 MEADS Failed
I would like to automate the process so the script runs automatically every hour and then records the results
in each consequent/relevant cell. So next result at 9:00 in H2 and 10:00 in I2.
I have been looking at the Application.OnTime TimeValue("10:57:00"), "ping08" function but just cant anything
to work as I would like.
As shown above, I have over 1000 rows to go through. I will have a dedicated server that this could run on.
Any help would be VERY MUCH APPRECIATED!