VBScript（WSH）

DOSのバッチではファイル名を自由に作れないから 噂に聞くWSHでも使ってみよう
と思ったら、WSHってVBScriptやJScriptのことだったのか。
VBScriptって、型が明示的に使えない以外はほとんどVBAと一緒だなぁ。
さすがVBの名を冠しているだけのことはある(苦笑)

dim fs
Set fs=WScript.CreateObject("Scripting.FileSystemObject")

dim s
s=asc("0")-(asc("A")-10)

function c(byval i)
 if i>=asc("A") then
   if i<=asc("Z") then c = chr(i) else c = ""
 else
   c = chr(i+s)
 end if
end function

dim i,j,k,l
for i=asc("A") to asc("Z")
for j=asc("A")-10 to asc("Z")
for k=asc("A")-10 to asc("Z")
for l=asc("A")-10 to asc("Z")+1
  dim n
  n = c(i)&c(j)&c(k)&c(l)
  if fs.FileExists(n) Then
    WScript.StdOut.WriteLine n
  End If
next
next
next
next

…これだと、COM0とLPT0は引っかからないなぁ…。

それにしてもVBって、関数呼び出しと配列の使用の区別がつきにくい！（変数名のような関数名を付けるのもよくないのだが(苦笑)）