[文字をコードに変換する]

文字をAsciiコードとUnicodeに変換します。
２バイト文字は、Shift-JISコードに変換されます。

【ソースコード】

[tips0020.vbs]
Option Explicit

Dim strValue    ' 変換する文字

' 文字→コード
WScript.Echo "文字→コード変換"
strValue = "A"
WScript.Echo strValue & " → " & _
    "Ascii=" & Hex(Asc(strValue)) & ", " & _
    "Unicode=" & Hex(AscW(strValue))
strValue = "あ"
WScript.Echo strValue & " → " & _
    "Shift-JIS=" & Hex(Asc(strValue)) & ", " & _
    "Unicode=" & Hex(AscW(strValue))

【実行結果】

C:\> cscript //NoLogo tips0020.vbs
文字→コード変換
A → Ascii=41, Unicode=41
あ → Shift-JIS=82A0, Unicode=3042