<HEAD><TITLE>Ping Komputer Dengan WebBrowser</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
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 + "</br>"
total = total+baris
loop
document.write "<B>Hasil Ping:</B>"
document.write "<Table border=1><tr><td>"
document.write total+"</br>"
document.write "</td></tr></Table>"
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
-->
</SCRIPT>
</HEAD>
<BODY>
<H3 align="center">Ping Komputer Dengan WebBrowser</H3>
<HR>
<div align="center">Masukkan nama komputer yang akan di ping.</BR>
Kemudian Klik tombol <B>"Ping!"</B>
</div>
<HR>
<FORM NAME="buku">
<div align="center">Masukkan Nama Komputer:
<INPUT NAME="teks1" TYPE="Text">
<INPUT NAME="jalan1" TYPE="BUTTON" VALUE="Ping!">
<INPUT NAME="jalan2" TYPE="BUTTON" VALUE="Keluar!">
</div>
</FORM>
</BODY>
</HTML>
Untuk Tutorial'a Klik http://www.youtube.com/watch?v=dG1JSQLe4js
