お世話になります。

VBS じゃないですけど、これ、使えないでしょうか。

• Flexible Renamer

文字種の変換

大文字と小文字、全角と半角、ひらがなとカタカナといった相互変換を行うためのメニュー。新旧のファイルで命名ルールが徹底されていない場合に便利だ。拡張子に適用されない設定がきちんと用意されているのが嬉しい。

複数のファイル名をまとめて変更できる「Flexible Renamer」｜今すぐ役立つ！ITサービス＆ツールズ｜てくらぼ｜パソナテック（PASONA TECH）

もし、可能なら、将来的にプログラムの拡張も考えているので、VBSで教えて
頂けないでしょうか

こんな感じでしょうか。

Set fso = CreateObject("Scripting.FileSystemObject")

For Each f in fso.GetFolder(".").Files
    han_name = zen2han(f.Name)
    If f.Name <> han_name Then
        f.Name = han_name
    End If
Next

Set fso = Nothing

Function zen2han(byval text)
    ...
End Function

zen2han 関数は、こちらの中身をペタッと。
http://qiita.com/asterisk9101/items/eaa06c56db64897f4fd7

カレントディレクトリにあるファイルが対象です。
全角を半角に直したときに、同じ名前のファイルがないのが前提です。