errs.vbs --- WSH エラー解読プログラム by BD&ASS

【ソフト名】errs.vbs
【検索キー】WSH, #UTY, VBScript
【著作権者】BD&ASS (null), SGL00064
【動作環境】Windows 95
【分  類】フリーウェア(その他のツール)
【開発環境】テキストエディタ(^^;;

【備  考】
VBScript
' Wsh Error message checker for Windows 95
' by SGL00064@nifty.com
'
' 説明:Win95だとWSHのエラーメッセージが化け化けという問題がある。
'   本プログラムでは、エラー番号を入力すると対応するメッセージを
'   表示するものである
'
Option Explicit
On Error Resume Next
Dim appname, ee, bh, ec
appname = "WSH Error messager"

ee = "&h"
Do
  ee = InputBox("Error番号を入力" & vbCrLf &_
        "16進の場合、行頭に" & Chr(&h22) & "&h" & Chr(&h22) &_
        "を付けること", appname, ee)
  If ee <> "" Then
    If Left(ee, 1) = "&" Then bh = True Else bh = False
    Err.Raise(ee)
    If bh Then ec = "&h" & Hex(CLng(ee)) Else ec = CStr(ee)
    Call MsgBox(Err.Description,, "Code: " & ec & " - " & appname)
    Err.Clear
  End If
Loop While ee <> ""


ダウンロードはできません。上を適当にCopy & Pasteしてerrs.vbsで保存してください。