Option Explicit

' ieオブジェクトの生成
Dim ie
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True

' ウェブページにアクセス
ie.Navigate("http://engineer.gjpw.net/")

' ウェブページの読み込み完了まで待つ
Do Until ie.Busy = False
    WScript.sleep(500)
Loop

' ieの終了
ie.Quit

Set ie = Nothing

ソースを「ie6.vbs」という名前で保存し、ダブルクリック

// 文字入力ダイアログを開く
function showPrompt(message) {
    str = window.prompt(message,　　　　　　　// メッセージ
                        'デフォルト文字列');　// デフォルト文字列
    if(str == '' | str == null) {
        str = "";
    }
    window.alert(str);
}

<input type="button" value="名前入力" onclick="showPrompt('名前は？');" />

// ウィンドウを開く
function openWindow(url) {
    window.open(url,        // URL
        'AnotherWindow',   // ウィンドウ名
        'left=50,' +           // ウィンドウ位置左（数値）
        'top=50,' +           // ウィンドウ位置上（数値）
        'width=700,' +       // ウィンドウ幅（数値）
        'height=500,' +       // ウィンドウ高さ（数値）
        'menubar=no,' +     // メニューバー有無（yes/no）
        'toolbar=no,' +       // ツールバー有無（yes/no）
        'location=no,' +      // アドレスバー有無（yes/no）
        'status=no,' +         // ステータスバー有無（yes/no）
        'resizable=no,' +      // リサイズ可否（yes/no）
        'scrollbars=yes');     // スクロールバー有無（yes/no）
}

<input type="button" value="ウィンドウを開く"
    onclick="openWindow('http://www.google.co.jp/');" />

// 確認ダイアログを表示する
function showDialog(message) {
    if(window.confirm(message)) {
        window.alert('Yes');
    }
    else {
        window.alert('No');
    }
}

<input type="button" value="オレSE？" onclick="showDialog('オレSE？');" />

// 時間を表示する
function showHour() {
    messages = new Array(24);
    for(i=0 ; i<24 ; i++) {
        messages[i] = i + "時です。"
    }
    hour = new Date().getHours();
    window.alert(messages[hour]);
}

<input type="button" value="時間表示" onclick="showHour();" />