How to create a Ping monitoring tool with Microsoft Excel 

When they interview and ask how good are you in Ms Excel. This guy be like: bring me laptop. I will hacked your system using excel.

Next video: How to built a OS using Ms Word 😉

Thank you for all free tutorials you give us. God bless you

Solved Error - "Method or data member not found" in the vba replace sheet1 with Sheets("Sheet1") in each instance it occurs. Don't replace the whole line just 'sheet1'. For example - Do Until sheet1.Range("F1").Value = "STOP" WILL NOW BE - Do Until Sheets("Sheet1").Range("F1").Value = "STOP"

I was in need of this 10 years ago.

Use the zom closest to the screen to compose poems. I access the Internet through my mobile phone. I don't have a notebook. I am Brazilian. I do not speak English. I use English translation.

Thank you for all free tutorials you give us. God bless you 👍

Nice, please also give some idea to get Mac address in saperate column near online offline status column

Is it possible to put separate tab to capture date and time when the ping went offline and one more tab when it came online

Thank you very much. Exactly what i needed and works perfect!

This is what I am looking for. thanks a lot :)

still usable. for some reason The command wasnt running coming from vba because it was thinking that the numbers in the string were still strings and wasnt accepting it as an actual value. but other than that runs great

😊 السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ 😊 Thank you very much 😊 That was amazing 👏

Amazing! This is exactly what I needed! Thank you!

you deserve more subscribers

Thank you so much! Exactly what I needed. Greetings from Panama!

Would be cooler if you added the time for latency monitoring. 👍

I have questions 1. I want the destination ip should show in right side where start and stop have then what we have to change? 2. Are they ping packet going simultaneously to every destination or one by one each as i shaw they were blinking one by one? 3.if i add one more ip in those ip row so that will also work?

Amazing videos, hope the next video is how to use remote desktop without lock screen.

Function Ping(strip) Dim objshell, boolcode Set objshell = CreateObject("Wscript.Shell") boolcode = objshell.Run("ping -n 1 -w 1000 " & strip, 0, True) If boolcode = 0 Then Ping = True Else Ping = False End If End Function Sub PingSystem() Dim strip As String Dim ws As Worksheet Set ws = Worksheets("Sheet1") Do Until ws.Range("F1").Value = "STOP" ws.Range("F1").Value = "TESTING" For introw = 2 To ActiveSheet.Cells(65536, 2).End(xlUp).Row strip = ActiveSheet.Cells(introw, 2).Value If Ping(strip) = True Then ActiveSheet.Cells(introw, 3).Value = "Online" ActiveSheet.Cells(introw, 3).Font.Color = RGB(0, 0, 0) Application.Wait (Now + TimeValue("0:00:01")) ActiveSheet.Cells(introw, 3).Font.Color = RGB(0, 200, 0) Else ActiveSheet.Cells(introw, 3).Value = "Offline" ActiveSheet.Cells(introw, 3).Interior.ColorIndex = 0 ActiveSheet.Cells(introw, 3).Font.Color = RGB(200, 0, 0) Application.Wait (Now + TimeValue("0:00:01")) ActiveSheet.Cells(introw, 3).Interior.ColorIndex = 6 End If If ws.Range("F1").Value = "STOP" Then Exit For End If Next Loop ws.Range("F1").Value = "IDLE" End Sub Sub stop_ping() Dim ws As Worksheet Set ws = Worksheets("Sheet1") ws.Range("F1").Value = "STOP" End Sub ****must use this code "Dim ws As Worksheet"

Hi, great addon would be on adding that if Offline then it sends a email containing in Subject the IP Addres and Name of which is offline if offline for more then 10 checks or something similar!

You are genius. Thank you man 💕

Is it possible to add Time in the next column, since when any line is down ? This is very much needed tool, I searched a lot for his. Thank You Very Much.

Thanking you very much. It's working perfect !

Thank you. We have more than 200 Client and now ı ll see on one page which is working

Works perfect! Thank you!

Holy shit! Subbed. It will help me with literally whole corp network diagnosis♥️

I am definitely going to use this for footprinting for pentesting and ethical hacking.

Thanks More Videos Excel learning 👍❤️👍

Great, this is what i need. Keep it up.

Thank you very much.

Wow you are the best and got a subscriber :cheers:

Deu certo aqui para mim tambem, show de bola. Brazil

Thank you for the great new video and the download link. Great work.

Muito obrigado! Funcionou aqui! Só tive que adaptar para PT-BR no código de Sheet1 para Planilha1!💡💡💡

Any help to make it work with Libre Office?

Great video, I advise you to use your real voice next time, trust me it would be more beautiful than robot voice .

Thanks for the video. Good one for beginners like me..

Good job Visual Basic

Hi, did you use the 32bit Version of Excel? for macro features?

nice man can you make video if ip is offline then automatically send email or send telegram notification its really help us

Please tell me what to do online/offline status is showing in IP address column not in ping status bar.

Nice and useful information. Thanks for sharing. Can you show us How to get a notification or mail alert if any IP address failed to ping.

Much needed. Thanks a lot 😁

This is very useful video thank you very much, i have a doubt in this if we have 50 ip address to test how it is working after finish 50 ip address test then only it will check first ip or the each ip will check each sec can you please help me to clear on this

Me interesó, el video, por alguna casualidad no lo podría hacer en español para entenderle mas al tema

This is very cool...will the vb script allow you to ssh to a different host first then only run the ping?

Amazing as always happy 😊 thanks a lot

Great video. Could it be possible to use the command "arp" to add MAC address to the IP addresses which were online?

You bloody genius😂

thank you for the video. Is possible you can find city name instead on/off line?

Thanks a lot for this !

How to query an ip address with a port?

Привет, сможешь ли ты помочь? Хотелось бы пинговать цепочку коммутаторов и чтобы это отображалось в веб форме.

This is great. Thank you!

Thanks. Working correctly.

This is what I need m, but it doesn't seem to work for me. boolcode returns a value of one.

I can't use Range syntax in VBA so what should I do? it not working

Great, can we extract hosname of live IPs?

Thanks!

Perfect perfect 👌👍👍

Sir Nice vedio and very usefull. But can be solved if same ip address found then show ip conflict it can be possible please help

why would you use hungarian notation (kinda) for variable names instead of properly giving types with the As keyword? just asking

Thank you very much. 👍

This errors also Set objShell = CreateObject("Wscript.Shell")

i'm getting error like. .......Error message........ Compile Error: Method or data member not found .................. Error highlight point on PingSystem() What i missed..?

compier error Method or data member not found sheet.range pleas help me

If possible to send whatsapp message in excel through different names

If while you are scanning you change the sheet, it starts writing on the table of the other sheet, how can this be solved? changing activesheet?

thank you very much. I really admire you

Holam como estas, sabes que no resuelve a nivel lan local, a que se podria deber?

That's why I always say that my Excel is basic!

I am going to be waiting for it

Wow thank you so much

Thank you

integrating mac would be worth it?

Hi is possible have a data of the ip a d time out? To reports?

Hello, could you write monitoring the temp for every switch device?

I have an question, in the "IDLE" how to set Sheet1 from video to multi sheet with different name?

Meanwhile on the Mystery History channel: Scientists believe that our reality is a simulation built on "something like Excel".

So usefull. Btw, i have an idea, can you write an excel file that can show an text file (or log file) in a remote server when input server fqdn or ip (require authenticate) and keyword, time to search in that server.

hi sir, this will be easier and simpler if you use a script on Mikrotik

How many ping packets does it send at once ?

Net admin: I'm boring, but I have excel... Hmmm🙃🙂🙃🙂

Thank you sir

thanks brother

엑셀을 어느정도 한다 생각하는데... 이건 뭐죠? 배우싶습니다 ㅜㅜ

thanks you are the best

Is there a way to add the device name to the spreadsheet (Ping -a IPAddress)?

thank you. can you share how to monitoring url website if it's up or down?

Would be awesome if ping offline to send an email

HI, awesome video, Question: is it possible, in a corporate network, knowing the machine name of a user's PC, to send pop-up messages with the Windows MSG command? Thanks in advance Lorenzo

Do Until Sheet1.Range("F1").Value = "STOP" debug

Recommend - Axence Nettools

I am vinith can you show me how to create an database software with Microsoft Access plz show it in next video

How to chek our windows ,who is monitoring,viewing background

Y para hacer ping, pero una red GPON, y que se muestre de esta misma manera. Cómo puedo hacer ?

is it possible in online google spreadsheet ?

Now how about a tutorial on how to program in Visual Basic.

Visual studio Code...,C++, Desktop