只要下载此文件后便可以查询了.
下面是详细代码

'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 

vbs代码下载

使用xcacls.vbs(cacls.exe)修改NTFS权限说明(中文版)第1/2页
概要Microsoft以MicrosoftVisualBasic脚本(Xcacls.vbs)的形式提供了ExtendedChangeAccessControlList（扩展更改访问控制列表）工具(Xcacls.exe)的更新版本。本文分步介绍如

利用vbs写的延时关闭ie进程的脚本代码
Delay=5000strComputer="."SetobjWMIService=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&strComputer&"rootcimv2")SetobjStartup=objWMIService.Get("Win32_ProcessStartup")SetobjConfig=objStar

Shell.Application执行命令的五种方法小结
当初老马写这个版本时，我测试过简繁两个2003版本的，当是是好用的。我猜测很可能与2003打了ms06014补丁有关。kyo在冰点论坛提出了解决方法，我今天