[Ｎ進数に変換する]

引数で指定された値を、指定された「進数」で表示します。
８進数と１６進数への変換は関数が用意されていますが、その他の進数への変換する関数は無いので、関数を作成してみました。
３６進数まで対応しています。

【ソースコード】

[tips0014.vbs]
Option Explicit

' Ｎ進数変換関数
Function HenkanI2N(ByVal lngValue, ByVal lngTei)
    Dim str36(36)   ' 進数表示の文字列
    Dim lngLoop     ' ループカウンタ
    Dim lngDec      ' 変換用の数値
    Dim lngSur      ' 変換値
    Dim strAfter    ' 変換後文字列

    ' 「進数」の文字列作成
    For lngLoop = 0 To 9
        str36(lngLoop) = lngLoop
    Next
    For lngLoop = 10 To 35
        str36(lngLoop) = Chr(97 + (lngLoop - 10))
    Next

    ' 変換
    lngDec = lngValue
    Do While lngDec > 0
        lngSur = lngDec Mod lngTei
        strAfter = strAfter & str36(lngSur)
        lngDec = Int(lngDec / lngTei)
    Loop

    ' １桁目から並んでいるので反転
    HenkanI2N = StrReverse(strAfter)
End Function

Dim lngValue    ' 変換する値
Dim lngTei      ' 底

If WScript.Arguments.Count = 2 Then
    lngValue = WScript.Arguments.Item(0)
    lngTei = WScript.Arguments.Item(1)

    If (lngTei >= 2) And (lngTei <= 36) Then
        WScript.Echo lngValue & "は" & _
            lngTei & "進数で" & HenkanI2N(lngValue, lngTei) & "です。"
    Else
        WScript.Echo "進数は２〜３６を指定してください。"
    End If
Else
    WScript.Echo "変換する数値と進数を指定してください。"
End If

【実行結果】

C:\> cscript //NoLogo tips0014.vbs 250 2
250は2進数で11111010です。
C:\> cscript //NoLogo tips0014.vbs 250 36
250は36進数で6yです。