VBS（VBScript）による10進数を2進数に変換するプログラムを紹介
10進数を2進数に変換
サンプルソース
Dim a,b,k
a = 65535 '10進数（16ビット以内）：変換したい数字を入力
for i = 1 to 16 '16ビットなので
b = a mod 2
a = (a-b) / 2
k = b & k
if (a=0) then
exit for
end if
next
if (a>=1) then
msgbox("16ビットを超えています。")
else
msgbox(k)
end if