Aplikasi Ping Website/Ip Dengan Makro Di Excel

Kata siapa Microsoft Excel hanya digunakan oleh akuntan, pegawai administrasi, atau auditor? Ternyata Excel juga mampu dipakai oleh admin website atau jaringan. Masak iya sih? Emangnya admin jaringan mau ngitung apa?

Dalam mengorganisir jaringan, baik situs web maupun LAN, nyaris dipastikan perintah PING yaitu perintah paling populer. Ping mampu dikerjakan menggunakan CMD di Windows, Terminal di Linux, ataupun software khusus sejenis Ping Manager.

Kali ini kantorkita.net akan membicarakan cara membuat aplikasi sederhana memakai makro pada Microsoft Excel. Aplikasi yang mau kita buat yaitu Ping Manager. Dengan Ping Manager ini Excel dapat digunakan untuk memonitor jaringan atau web dengan menggunakan perintah PING. Bisanya kita akan mengetes sebuah web atau IP itu hidup, loadnya cepat atau lambat lazimnya kita memakai perintah ping di command prompt. Kelemahannya data yang ditampilkan yaitu data per IP atau URL yang kita ping. Kita tidak bisa menyuguhkan data beberapa IP atau URL sekaligus untuk perbandingan. Dengan Ping Manager ini data beberapa web atau IP akan disajikan dalam suatu tabel sehingga kita akan lebih gampang dalam melaksanakan analisa.

Untuk menciptakan tools Ping Manager sederhana menggunakan Excel, kita akan menggunakan Makro yang menjadi fitur bawaan di Microsoft Office.

Langkah Pertama :

1. Pada sel A1, tulis Jumlah Website/URL


2. Pada sel B1, masukkan fungsi =COUNTA(A3:A20). Fungsi ini akan mengkalkulasikan jumlah web/IP yang hendak di-ping. Jumlah web wajib ada.


3. Pada sel A2, header tabel, beri judul Nama Website. Dan pada B2, header tabel, beri judul Status.


4. Pada sel A3 ke bawah, masukkan URL web atau IP yang akan di-ping. Bisa pakai HTTP maupun tidak.


5. Pada ribbon Developer, insert Button. Setelah itu klik kanan button atau tombol yang sudah kita buat tadi, pilih Assign Makro.


6. Langkah terakhir adalah memasukkan kode berikut pada Makro :

Dim intSiteCount As Integer

Dim intCount As Integer

Dim oPing As Object, oRetStatus As Object

Dim sHost As String

Dim sPing As String

Dim intCol As Integer

Dim intRow As Integer

intSiteCount = CInt(Sheet1.Cells(1, 2).Value)

intRow = 3

For intCount = 1 To intSiteCount

sPing = “”

Sheet1.Cells(intRow, 2) = sPing

intRow = intRow + 1

Next

intRow = 3

For intCount = 1 To intSiteCount

sHost = Sheet1.Cells(intRow, 1)

Set oPing = GetObject(“winmgmts:impersonationLevel=impersonate”).ExecQuery _

(“select * from Win32_PingStatus where address = ‘” & sHost & “‘”)

For Each oRetStatus In oPing

If IsNull(oRetStatus.StatusCode) Or oRetStatus.StatusCode <> 0 Then

sPing = “Ping Failed”

Else

sPing = sHost & ” Ping Success on ” & Now() & Chr(10)

sPing = sPing & “Time (ms) = ” & vbTab & oRetStatus.ResponseTime & Chr(10)

sPing = sPing & “TTL (s) = ” & vbTab & vbTab & oRetStatus.ResponseTimeToLive

End If

Next

Sheet1.Cells(intRow, 2) = sPing

intRow = intRow + 1

Next

Kalau Anda malas untuk membuat sendiri file excel tersebut, aku sudah buat dengan sedikit kustomisasi biar kelihatan lebih yummy dilihat.

DOWNLOAD

Sumber : makeuseof.com

Sumber harus di isi