[8進数と16進数に変換する]

引数で指定された値を、8進数と16進数で表示します。

【ソースコード】
[tips0013.vbs]
Option Explicit

Dim lngValue    ' 変換する数値

If WScript.Arguments.Count > 0 Then
    lngValue = WScript.Arguments.Item(0)

    WScript.Echo "10進数で " & lngValue & " は"
    WScript.Echo " 8進数で " & Oct(WScript.Arguments.Item(0))
    WScript.Echo "16進数で " & Hex(WScript.Arguments.Item(0)) & " です。"
Else
    WScript.Echo "変換する数値を指定してください。"
End If

【実行結果】
C:\> cscript //NoLogo tips0013.vbs 250
10進数で 250 は
 8進数で 372
16進数で FA です。