[８進数と１６進数に変換する]

引数で指定された値を、８進数と１６進数で表示します。

【ソースコード】

[tips0013.vbs]
Option Explicit

Dim lngValue    ' 変換する数値

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

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

【実行結果】

C:\> cscript //NoLogo tips0013.vbs 250
１０進数で 250 は
　８進数で 372
１６進数で FA です。