Ping VBA di excel

-

Untuk ping 


Private Sub CommandButton1_Click()

 ip = Me.TextBox1.Text
    Result = GetPingResult(ip)

  Label2.Caption = "(" & ip & ") status :" & Result

End Sub

Function GetPingResult(Host)

   Dim objPing As Object
   Dim objStatus As Object
   Dim strResult As String

   Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
       ExecQuery("Select * from Win32_PingStatus Where Address = '" & Host & "'")

   For Each objStatus In objPing
      Select Case objStatus.StatusCode
         Case 0: strResult = "Connected"
         Case 11001: strResult = "Buffer too small"
         Case 11002: strResult = "Destination net unreachable"
         Case 11003: strResult = "Destination host unreachable"
         Case 11004: strResult = "Destination protocol unreachable"
         Case 11005: strResult = "Destination port unreachable"
         Case 11006: strResult = "No resources"
         Case 11007: strResult = "Bad option"
         Case 11008: strResult = "Hardware error"
         Case 11009: strResult = "Packet too big"
         Case 11010: strResult = "Request timed out"
         Case 11011: strResult = "Bad request"
         Case 11012: strResult = "Bad route"
         Case 11013: strResult = "Time-To-Live (TTL) expired transit"
         Case 11014: strResult = "Time-To-Live (TTL) expired reassembly"
         Case 11015: strResult = "Parameter problem"
         Case 11016: strResult = "Source quench"
         Case 11017: strResult = "Option too big"
         Case 11018: strResult = "Bad destination"
         Case 11032: strResult = "Negotiating IPSEC"
         Case 11050: strResult = "General failure"
         Case Else: strResult = "Unknown host"
      End Select
      GetPingResult = strResult
   Next

   Set objPing = Nothing

End Function



Note: 
  Source : https://stackoverflow.com/questions/21020077/ping-ip-address-with-vba-code-and-return-results-in-excel


Postingan populer dari blog ini

LCD 2x16 via ESP32

-
 Kalau menggunakan ESP32-S3 dengan konfigurasi: SDA → GPIO8 SCL → GPIO9 LCD 16x2 + modul I2C (PCF8574) Berikut contoh program sederhana di Arduino IDE untuk menampilkan: Hallo ESP32 1. Install Library Di Arduino IDE buka: Sketch → Include Library → Manage Libraries Install: hd44780 by Bill Perry Library ini lebih modern, lebih stabil, dan bisa otomatis mendeteksi alamat I2C. Cari di Library Manager: hd44780 Contoh programnya: #include <Wire.h> #include <hd44780.h> #include <hd44780ioClass/hd44780_I2Cexp.h> hd44780_I2Cexp lcd ; void setup () { Wire .begin( 8 , 9 ); lcd .begin( 16 , 2 ); lcd .backlight(); lcd .setCursor( 0 , 0 ); lcd .print( "Hallo" ); lcd .setCursor( 0 , 1 ); lcd .print( "ESP32" ); } void loop () { } Kelebihannya: Tidak perlu tahu alamat 0x27 atau 0x3F. Bisa mendeteksi alamat LCD otomatis. Sangat cocok untuk ESP32.
Baca selengkapnya

Perencanaan awal ESP32 S3 testing

-
  RTC DS1302 bukan perangkat I2C. DS1302 menggunakan antarmuka 3-wire serial , sehingga tidak bisa dipasang pada jalur SDA/SCL seperti LCD I2C. Jadi wiring-nya menjadi seperti ini. 1. LCD 16x2 I2C Misalkan kita memakai pin I2C yang umum pada ESP32-S3: LCD I2C ESP32-S3 VCC 5V (atau 3.3V jika modul mendukung) GND GND SDA GPIO 8 SCL GPIO 9 GPIO 8 dan GPIO 9 merupakan konfigurasi I2C yang umum digunakan pada banyak board ESP32-S3, meskipun sebenarnya ESP32-S3 dapat memetakan I2C ke hampir semua GPIO yang bebas. 2. RTC DS1302 DS1302 mempunyai pin: VCC GND CLK DAT (IO) RST/CE Contoh wiring: DS1302 ESP32-S3 VCC 3.3V GND GND CLK GPIO 4 DAT GPIO 5 RST/CE GPIO 6 P...
Baca selengkapnya

winsocket vb.net

-
Imports System.Net ' for IPAddress Imports System.Net.Sockets 'for TcpListener Module Module1     Sub Main()         Dim port As Integer 'this is the port number         Dim localAddr As IPAddress ' this is the IP address         Dim server As    TcpListener ' This is for the TCP/IP Protocol         Try             'define the two values for your Server             port = 1234             localAddr = IPAddress .Loopback 'loopbak = 127.0.0.1 = myself             'Create your server             server = New...
Baca selengkapnya