vbs婧愮爜涔嬬殑IIS鏃ュ織鍒嗘瀽宸ュ叿

'=============================================================
'=       Copyright (c) 2010 鐚�涓�(QQ:77068320)     =
'=         All rights reserverd.          =
'=============================================================
'=        IIS鏃ュ織鍒嗘瀽绯荤粺 v_1.10.0828         =
'=   浣跨敤璇存槑锛歨ttp://www.miaoqiyuan.cn/p/iis-log-tools  =
'=   浣滆�呭崥瀹�锛歨ttp://www.miaoqiyuan.cn          =
'=   鐗堟潈澹版槑锛氭湰浠ｇ爜渚涚珯闀垮厤璐逛娇鐢�锛屼紶鎾�璇蜂繚鐣欑増鏉冧俊鎭? =
'=============================================================
'=  绋嬪簭绠�浠嬶細鍦ㄧ綉涓婃壘浜嗗緢澶欼IS鏃ュ織鍒嗘瀽宸ュ叿锛屽姛鑳界畝鍗曪紝鍙�鑳� =
'= 鍒嗘瀽鐖�铏�鏉ヨ�挎�℃暟銆傛湁鏃跺�欐垜浠�灏忕珯闀夸篃鎯冲垎鏋愪笅骞垮憡鐐瑰嚮鎯呭�?=
'= 锛岃繖鏃跺�欏競闈�涓婄殑IIS缁熻�″伐鍏峰氨鏃犺兘涓哄姏浜嗐�傝�楁椂涓�鏅氫笂鍐欏嚭鏉?=
'= 鍒嗕韩缁欏ぇ瀹讹紝鍚屾椂鐢宠�疯惤浼嶏紝璇峰ぇ瀹跺府椤躲�?         =
'=  鐢宠�峰湴鍧�锛歨ttp://www.im286.com/thread-5021543-1-1.html =
'=============================================================
'= 鏂囦欢锛歭og.vbs                      =
'= 鍔熻兘锛欼IS鏃ュ織鍒嗘瀽锛屾噦绋嬪簭鐨勬湅鍙嬪彲鎵╁睍锛屽姛鑳戒笉鍙�闄愰�?  =
'=============================================================
 
dbpath = "D:log"         '鏃ュ織鏂囦欢鎵�鍦ㄧ洰褰?
tblna = "test.txt"         '鏃ュ織鏂囦欢鍚嶏紝濡傛灉淇�鏀硅�峰悓鏃朵慨鏀?Schema.ini 涓�鐩稿叧鑺傜�?
 
function getuag(str)
 if instr(str,"+MSIE+7.0;")>0 then
  getuag = "Internet Explore 7.0"
 elseif instr(str,"+MSIE+8.0;")>0 then
  getuag = "Internet Explore 8.0"
 elseif instr(str,"+MSIE+6.0;")>0 then
  getuag = "Internet Explore 6.0"
 elseif instr(str,"MSIE")>0 then
  getuag = "Internet Explore(Other)"
 elseif instr(str,"curl")>0 then
  getuag = "CUrl"
 else
  getuag = str
 end if
end function
 
wscript.echo string(60,"=")
wscript.echo "     IIS鏃ュ織鍒嗘瀽宸ュ叿 By 鑻楀惎婧?MiaoQiyuan.cn)"
wscript.echo string(60,"=")
 
set conn = createobject("ADODB.Connection")
conn.open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath & ";Extended Properties=""text;HDR=YES;FMT=Delimited;"""
 
set rs = createobject("ADODB.Recordset")
 
'缁熻�� 閾炬帴璁块棶娆℃暟
statime = timer()
rs.open "select [cs-uri-stem],count([c-ip]) from [" & tblna & "] group by [cs-uri-stem]",conn,1,1
ga = rs.getrows()
rs.close
wscript.echo " = 璁块棶娆℃暟 = | = 鐙�绔嬭�垮�� = | = 璁块棶璺�寰� = "
wscript.echo string(60,"-")
for i = 0 to ubound(ga,2)
 rsid = rsid + 1
 tme = ga(1,i)
 uri = ga(0,i)
  
 '涓嶆敮鎸?COUNT DISTINCT 閮侀椃锛屼娇鐢ㄧ�ㄦ嫏鐨勬柟娉�
 rs.open "select DISTINCT [c-ip] from [" & tblna & "] where [cs-uri-stem]='" & uri & "'",conn,1,1
 aip = rs.recordcount
 rs.close
  
 wscript.echo string(10 - len(tme)," ") & tme & "  | " & string(8 - len(aip)," ") & aip & "   | " & uri
next
wscript.echo string(60,"-")
wscript.echo "  缁熻�★�? & rsid & "鏉¤�板�?鏌ヨ�㈢敤鏃讹�? & formatnumber((timer() - statime) * 1000,3) & "姣�绉�"
wscript.echo string(60,"-") & vbCrlf
 
 
'缁熻�� 璁块棶璇︽儏
for i = 0 to ubound(ga,2)
 rsid = 0
 uri = ga(0,i)
 wscript.echo string(60,"=")
 wscript.echo "     璁块棶璇︽儏锛? & uri
 wscript.echo string(60,"=")
 statime = timer()
 wscript.echo " = 缂栧彿 = | = IP鍦板潃 = | = 娴忚�堝櫒绫诲�?= "
 rs.open "select DISTINCT [c-ip],[cs(User-Agent)] from [" & tblna & "] where [cs-uri-stem]='" & uri & "'",conn,1,1
 do while not rs.eof
  rsid = rsid + 1
  'IP 鑷�鍔ㄥ彉鎴愪簡鏁板瓧锛岃繕娌℃湁鎵惧埌瑙ｅ喅鏂规�?
  cip = rs(0)
  uag = getuag(rs(1))
  wscript.echo string(8 - len(rsid)," ") & rsid & " | " & string(8 - len(cip)," ") & cip & " | " & uag
  rs.movenext
 loop
 rs.close
 wscript.echo string(60,"-")
 wscript.echo "  缁熻�★�? & rsid & "鏉¤�板�?鏌ヨ�㈢敤鏃讹�? & formatnumber((timer() - statime) * 1000,3) & "姣�绉�"
 wscript.echo string(60,"-") & vbCrlf
next