'QueryCode.vbs BY: fastslz 
'支持批量查詢，可以放在SendTo擴展應用 
set files=WScript.Arguments 
if files.Count=0 Then 
MsgBox "請將要查詢的文件拖動到這個文件里！ ", vbInformation, "文件編碼查詢工具 BY: fastslz" 
end if 
for i=0 To files.Count-1 
file=files(i) 
Call CheckCode ("　　　編碼為:") 
next 
Function CheckCode (Usage) 
Dim slz 
set slz = CreateObject("Adodb.Stream") 
slz.Type = 1 
slz.Mode = 3 
slz.Open 
slz.Position = 0 
slz.Loadfromfile file 
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 
WScript.echo file,Usage,Codes 
slz.Close 
set slz = Nothing 
End Function