Filed under: Web Tutorial
Ping Komputer Dengan WebBrowser
<!–
Sub jalan1_OnClick
dim sistem, perintah, total
dim komando, baris, komputer
set perintah = CreateObject(“Wscript.Shell”)
set sistem = CreateObject(“Scripting.FileSystemObject”)
komputer = document.buku.teks1.value
komando = “command /c ping.exe ” & komputer & ” > C:\natan.dat”
perintah.run komando, 0, true
set temporer = sistem.GetFile(“C:\natan.dat”)
set buka_dokumen = temporer.OpenAsTextStream(1)
total = “”
do while buka_dokumen.AtEndOfStream true
baris = buka_dokumen.ReadLine + “”
total = total+baris
loop
document.write “Hasil Ping:”
document.write “
| ” document.write total+”” document.write “ |
document.write “<input NAME=kembali TYPE=BUTTON" &_
“ VALUE=Kembali! onClick=history.back()>”
buka_dokumen.close
temporer.delete
set buka_dokumen = nothing
set temporer = nothing
set perintah = nothing
set sistem = nothing
set total = nothing
End Sub
Sub jalan2_OnClick
window.close
End Sub
–>
Atau kalo mau coba ping melalui blog ini silahkan saja dibawah ini.. Ini hasil Script atas.
Ping Komputer Melalui Web Browser
Masukkan nama komputer yang akan di ping.
Kemudian Klik tombol ( Ping! )
[ Program Karya Bangsa Indonesia ]
Masukkan Nama Komputer:
Tinggalkan sebuah Komentar sejauh ini
Tinggalkan komentar
