VBS实现GB2312,UTF-8,Unicode,BIG5编码转换工具

' *==============================================================================* 
' * CMD 命令行编码转换工具包括GB2312,UTF-8,Unicode,BIG5...支持拖拽、文件另保存为 * 
' * CodeChange.vbs BY: yongfa365 
' * GB2Ue.vbs BY: fastslz 
' *==============================================================================* 
aCode = "GB2312" 
bCode = "Unicode" 
Show = "本脚本仅支持"&aCode&"到"&bCode&"的转换，请拖拽单个要转换的文件到此文件上！ " 
Usage1 = "语法１：GB2Ue.vbs [驱动器][目录][文件名] （直接替换原文件模式）" 
Usage2 = "语法２：GB2Ue.vbs [驱动器][目录][文件名] [目标驱动器][目录][新名称] /Ｙ" 
Usage3 = " 如果目标新文件已存在，使用/Ｙ参数后将直接替换而不提示是否改写！ " 
Usage4 = "命令行编码转换工具 BY: fastslz" 

Set objArgs=WScript.Arguments 
Set fso=CreateObject("Scripting.FileSystemObject") 
if objArgs.Count=0 Then 
MsgBox Show &vbCrLf&vbCrLf& Usage1 &vbCrLf& Usage2 &vbCrLf& Usage3, vbInformation, Usage4 
Wscript.Quit 
end if 
if not objArgs.Count < 3 Then 
Options="/y" 
ignoring = StrComp(objArgs(2), Options, vbTextCompare) 
if ignoring = 0 Then 
Sourcefile=objArgs(0) 
Getfile=objArgs(1) 
else 
MsgBox "文件数量或参数太多，拖拽批量处理请用 ANSI2Unicode.vbs ", vbInformation, "程序意外终止"
Wscript.Quit 
end if 
else 
if not objArgs.Count < 2 Then 
Sourcefile=objArgs(0) 
Getfile=objArgs(1) 
if fso.FileExists(objArgs(1)) then 
Choice = MsgBox ("待处理文件“"+Sourcefile+"” ==> 目标文件“"+Getfile+"” "&vbCrLf&"目标文件已存在，是否改写现有文件？“"+objArgs(1)+"” ",vbQuestion+vbYesNo,"是否改写") 
if Choice = vbYes Then 
Getfile=objArgs(1) 
else 
Wscript.Quit 
end if 
end if 
else 
Sourcefile=objArgs(0) 
Getfile=objArgs(0) 
end if 
end if 

Call CheckCode (Sourcefile) 
Call WriteToFile(Getfile, ReadFile(Sourcefile, aCode), bCode) 
Wscript.Quit 

Function ReadFile (Sourcefile, CharSet) 
Dim Str 
Set stm = CreateObject("Adodb.Stream") 
stm.Type = 2 
stm.mode = 3 
stm.charset = CharSet 
stm.Open 
stm.loadfromfile Sourcefile 
Str = stm.readtext 
stm.Close 
Set stm = Nothing 
ReadFile = Str 
End Function 

Function WriteToFile (Getfile, Str, CharSet) 
Set stm = CreateObject("Adodb.Stream") 
stm.Type = 2 
stm.mode = 3 
stm.charset = CharSet 
stm.Open 
stm.WriteText Str 
stm.SaveToFile Getfile,2 
stm.flush 
stm.Close 
Set stm = Nothing 
End Function 

Function CheckCode (Sourcefile) 
Dim slz 
set slz = CreateObject("Adodb.Stream") 
slz.Type = 1 
slz.Mode = 3 
slz.Open 
slz.Position = 0 
slz.Loadfromfile Sourcefile 
Bin=slz.read(2) 
if AscB(MidB(Bin,1,1))=&HEF and AscB(MidB(Bin,2,1))=&HBB Then 
Codes="UTF-8" 
elseif AscB(MidB(Bin,1,1))=&HFF and AscB(MidB(Bin,2,1))=&HFE Then 
Codes="Unicode" 
else 
Codes="GB2312" 
end if 
if not aCode = Codes Then 
MsgBox "待处理文件 “"&Sourcefile&"”"&vbCrLf&"该文件原始编码不是"&aCode&"，本脚本仅支持"&aCode&"到"&bCode&"的转换！ ",vbInformation,"错误终止" 
WScript.Quit 
end if 
slz.Close 
set slz = Nothing 
End Function