嘿嘿 ,这个东西本来是应live-share老兄的要求所写,http://www.sharecenter.net/viewthread.php?tid=189599&pid=1906437&page=1&extra=#pid1906437
$ A3 z' R! N: b- N* O* X但我在反复更新了几个版本(其实就是改了一点点地方)之后,发现,太亏了 ,随着我的不断更新,帖子肯定有加精的可能,(我打定主意更新到加精 )但楼主不是我,加精也算不到我头上,这样我太亏啦, 不干啦, 所以,这个比较完善的版本,我就另起炉灶了,嘿嘿, 自私一点,我记得这个帐号以前有几个精华的,现在不知道怎么成了零蛋了, ! w! H5 ?- G% d
0 ~5 I' P: M4 F( X
6 k5 x2 p& Q' }5 P) Z3 t1 m4 i
另存为GetOwner.VBS文件5 e% A6 f9 q/ \' z
用法,在命令行下:' e! K) P& a% v g$ d/ I1 v
GetOwner.vbs 目录名
. w1 T8 G% J7 O1 n( M5 H会在相应目录下生成一个TXT.TXT文件,内里列出该目录下所有文件和文件夹的类型,大小,和所有者6 ?2 R3 S3 B; r+ s3 g& @0 l3 m
注意:大小以MB为单位,小于1MB的就显示为0MB,
; C' Z' G4 M4 x5 A6 x
6 y& v8 {6 w: ]个人觉得,这个小东西还是比较实用,如果有需要,甚至可以添加到文件夹的右键菜单中,作为一个附加功能,这个实现比较简单,不多说了,需要的可以PM我
3 F2 A8 S+ R$ z, ^# T& [! c6 F~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`
! t- V/ I! U( o+ w
& Q8 k3 Q' A, y8 ?: o+ OG = WScript.arguments(0)
1 C }; O+ ]3 SSet oFSO = CreateObject("Scripting.FileSystemObject")
, G5 g; e" f: x/ ?. jset txt = oFSO.CreateTextFile(G&"TXT.txt",true) '嘿嘿,如果这个目录下刚好有一个TXT.txt文件,那就算你倒霉,不会有人真用这种名字来做文件名吧?真的啊,真的有啊?那你
$ Y( m# O& r# k0 J换地方吧~~~C: \TXT.TXT应该不会有了吧?
7 c) g5 h9 U6 m/ d2 m! Tset objWMI = GetObject("winmgmts:"): U/ ~$ L- ^8 ]; i3 v
Set oFiles = objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass = CIM_logicalfile")$ ?7 Z3 B8 i7 s. X4 C# N* u. _- s
For Each oFile In oFiles% l* H# g1 d r+ Q! |- X0 Q" L
txt.WriteLine( "--------------------------------------------------------------")4 n4 ?1 K/ W4 r4 }+ {
txt.WriteLine( oFile.name)/ s7 c% ~+ [* f9 L, {$ d
txt.WriteLine( "Type: " & oFile.FileType)- \3 u/ o% G- w, q
if oFile.name = G&"system volume information" then6 Q7 B! n4 ~4 G; u! K- h* a. ^6 G
exit for, s) \, [" z) O" p% C5 _$ q: u3 m
end if
0 @" x- E- @* n( Q% ] if oFile.FileType="File Folder" then% t" g; P2 a1 M5 ^- G
Set objFolder = oFSO.GetFolder(oFile.name)7 e0 c. t/ K6 s' q. J% t
txt.WriteLine("Size: " & Cint(objFolder.Size/1024/1024) &"MB") 2 ?" g3 ^8 {3 R. q! J
else
& L/ E, b `& O& Q/ [; i txt.WriteLine( "Size: " & cint(oFile.FileSize/1024/1024) &"MB")8 d0 z( _5 @, P# Y0 ` h6 i) ]
end if
+ l9 d. |0 Y5 m# E6 C strFile = oFile.name0 o6 w% E" X ^! g0 v W& Y
strComputer = "."' }9 C/ m! \$ N G0 U' |
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
# L) I" b3 z; w Set colItems = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" & " WHERE $ N8 E( A" D. @: W3 f% Q/ A+ C7 Y
AssocClass=Win32_LogicalFileOwner ResultRole=Owner")' _/ g& h" @& {; v* [ f6 h4 X3 Z
For Each objItem in colItems$ j6 Z! I! A6 k" X
if oFile.name = "system volume information" then2 {9 c" t G* E
exit for3 n+ w* C) Q/ ?+ T& o0 ?
end if. j$ O) q4 a' e. @) O8 A
txt.WriteLine( "FileOwner: " & objItem.AccountName)! P- G3 n5 N* x& O, B8 o8 z
Next% \* m3 ^, P0 K4 ^6 I# a- l
Next

统计某用户在某目录下的文件和文件夹1 s( [# a" P/ ?+ y0 x% s! N/ k
X e3 j7 d. ?4 d
使用方法:" [6 N A* c0 U+ M
脚本名 目录名 用户名" }9 k" k" q$ @' L6 C5 I0 q8 C
如:
( E6 U6 X' W" a' \owner.vbs d:\ lsj
) {, r. Z2 P% e! [4 @1 P' `$ }结果是在相应目录下生成一个文本文件5 i) Y" e; Y* b5 a+ p/ R4 _
格式如下:
" J5 d: q4 m+ K9 S3 E7 G4 u--------------------------------------------------------------% m. @! [$ m, R4 d _# w; ]
d:\jcb-gx
1 J7 ?5 s1 y/ U& ]0 u- E- NType: File Folder0 m: G( v5 u* k% Z
Size: 22MB
, A. ]& T1 t, M( t/ z! i* S--------------------------------------------------------------
1 g3 X) O6 y' N- k- k# Sd:\powerword 2003.rar5 K" \0 C, t& `- }: K a
Type: WinRAR 档案文件
t Z; Q, i' F( I/ \( {) ESize: 503MB* i5 a$ r7 f2 K
--------------------------------------------------------------
5 Y @: p: Q% O& {9 q6 v, Vd:\txt.txt
% | ^5 W; y) F& Y8 n3 N/ P' iType: Text Document
) w% ?, S9 i* ~3 }6 aSize: 0MB) w* t: M! x/ H+ J& C. M! G
--------------------------------------------------------------
* |& j! t) l% wd:\年 度 考 核 登 记 表2006版061225.doc
8 V& X% W/ q3 @7 hType: Microsoft Word 文档
2 M6 \& A% y9 K) |) CSize: 0MB0 J( H/ U4 }) |9 ?
--------------------------------------------------------------
. F3 u7 ?+ U; z% d, d. ^; Z--------------------------------------------------------------/ Q& Z+ W6 H2 T; t$ c
--------------------------------------------------------------- p, j8 N" v6 z# F. u9 q
The TotalSize of All files lsj owns is: 525MB
+ f$ o4 ~7 P1 R
- W# H9 i$ _. U) l2 |: M" v6 @( u; v- s, Y; r6 x) b5 U r. D
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~以下为脚本内容`1 \% i( _5 R- B- J6 g2 R

3 S* B) u! i, M/ n w9 A, Y. f; e& S- Q+ G0 d& P/ `
TotalSize = 0
5 n f3 f( y0 x/ j7 g G = WScript.arguments(0)
5 X. O+ _% i+ @* S& z, A H = WScript.arguments(1)
6 ]+ ^) u* y6 a9 p/ R" mSet oFSO = CreateObject("Scripting.FileSystemObject")
- q! c1 A& w1 P% [% fset txt = oFSO.CreateTextFile(G&"TXT.txt",true)* B: I( N( P* f, S
set objWMI = GetObject("winmgmts:")" ^- t' ^" \" ^" A
Set oFiles = objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass = CIM_logicalfile"). c; R( N+ r! F# z8 M0 V& h

1 M+ b" S8 o; v3 D: FFor Each oFile In oFiles
$ J! ~: O9 K% \: F5 o' e2 j6 a- S
+ p" q- _8 f+ [* m" B) Q Q# O/ \3 X strFile = oFile.name8 Y/ m, Z5 x. y; `
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")* E4 q# W* K0 a5 q1 W. }
Set colItems = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" & " WHERE # x. Y" A: ^2 W# A4 ]- `

' z8 F! l( @4 TAssocClass=Win32_LogicalFileOwner ResultRole=Owner")
0 G! `% i' i. K
/ o; I- E7 n ~# x6 p7 M, d
) K0 u+ e% H' A- P5 G- k4 \: n' K For Each objItem in colItems
6 q( D6 v3 l6 F* o/ l$ }; z" a if objItem.AccountName = H then* J) Z# L. L/ }% S- M+ k/ {9 \% {- l

$ D- J% k) r1 p! ~8 @+ D txt.WriteLine( "--------------------------------------------------------------")1 j* e5 Q( \7 _
txt.WriteLine( oFile.name)
7 X* @% W" i% L5 o% H$ x& @, @ txt.WriteLine( "Type: " & oFile.FileType)) h- g/ y$ S$ @8 p/ f8 v* p
/ \9 r! a3 ~6 L
if oFile.name = G&"system volume information" then
; b0 {1 W; c) c6 g$ H5 L* _ exit for6 f6 @4 Q( q# }4 H ?4 B" d9 T( v, D
end if) |' `- D, T# I+ A( W ~: h6 I

& @5 Z; `9 \& }; x6 \ S = 0
9 k- x. o2 ]& G
2 T1 X/ W7 j. A& P' v if oFile.FileType="File Folder" then8 `( _) T: i; H7 [
Set objFolder = oFSO.GetFolder(oFile.name)
% h4 f( Z- Z; R. }" @5 {+ A S= Cint(objFolder.Size/1024/1024)
8 P4 G: b2 d+ {9 S else
( j+ e- ]* g& b S= Cint(oFile.FileSize/1024/1024)* [* L. c0 F) V& r3 l9 y7 K
end if4 E* E4 ]6 W% i: t/ Y* Y8 |- N
txt.WriteLine( "Size: " & S &"MB")/ H4 x( i8 T9 |8 F; b
TotalSize = TotalSize + S3 `6 ^+ h. x& \ g
end if$ ~4 ~( m, N: }1 M) m: a! _9 Q& l2 E
Next; f: E6 A( i, w F
/ A" f- X# B6 X5 L
Next
: p, f. O) ]3 A( p, d8 x; B 3 D$ S E/ V4 F6 R; d6 h
txt.WriteLine( "--------------------------------------------------------------"). ~) h$ e; B2 O& E
txt.WriteLine( "--------------------------------------------------------------")
6 J v. _$ k9 U txt.WriteLine( "--------------------------------------------------------------")9 G/ |& @1 V0 f2 k$ M& s
txt.WriteLine( "The TotalSize of All files "&H&" owns is: " & TotalSize &"MB")

按照更新过程,上面的应该是3.0版和3.1版
& H/ M* b8 F' _( r; E: s% w+ D4 \
; U& [0 G4 Y# r太晚了.要上床了,不然明天起不了了: H+ v+ t9 ]" V, w7 y) s
2 @* K. C; ]* K
争取明天完成4.0版,添加按用户分组功能

使用方法:0 @- c$ F3 U8 y7 ], W, z" f4 e9 W p; a/ ~' |2 Y
脚本名 目录名
! H i' w5 @' T$ V脚本会在相应目录下生成几个与本机用户对应的TXT文件,每个文件列出相应用户所有文件和文件夹的类型大小,并在最后合总计算所有文件和文件夹的大小

复制内容到剪贴板

代码:

TotalSize = 0
G = WScript.arguments(0)


Set oFSO = CreateObject("Scripting.FileSystemObject")

Set objWMI = GetObject("winmgmts:")
Set oFiles = objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass = CIM_logicalfile")

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")


For Each objUser In colAccounts
H = objUser.Name
A = G & objUser.Name & "txt.txt"
Set txt = oFSO.CreateTextFile (A,true)

For Each oFile In oFiles
strFile = oFile.name
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")

For Each objItem in colItems
if objItem.AccountName = H then
txt.WriteLine( "--------------------------------------------------------------")
txt.WriteLine( oFile.name)
txt.WriteLine( "Type: " & oFile.FileType)

if oFile.name = G&"system volume information" then
exit for
end if

S = 0

if oFile.FileType="File Folder" then
Set objFolder = oFSO.GetFolder(oFile.name)
S= Cint(objFolder.Size/1024/1024)
else
S= Cint(oFile.FileSize/1024/1024)
end if
txt.WriteLine( "Size: " & S &"MB")
TotalSize = TotalSize + S
end if
Next

Next

txt.WriteLine( "--------------------------------------------------------------")
txt.WriteLine( "--------------------------------------------------------------")
txt.WriteLine( "--------------------------------------------------------------")
txt.WriteLine( "The TotalSize of All files "&H&" owns is: " & TotalSize &"MB")
Next

晕倒,发现一个小BUG,不修改了,下个版本一起修改,如果有人在我发出新版本前发现了这个BUG,+10分再谈其他的

4.1版
& z2 X: [' H2 h用法同前0 ]' w3 p3 r( ?4 T. ~
脚本名 目录名
4 P* B" S+ c" ]5 J在目录名下生成一个文件,按用户次序输出所有用户在该目录中的文件信息,格式如下:( K8 T6 w. p! p
8 m2 t0 q! f/ X. ]4 n0 F0 Z+ w
--------------------------------------------------------------9 b! @! L4 m, Y! ]8 w
The TotalSize of All files Administrator owns is: 0MB& v. {' K4 Q. G5 I( Z' _
--------------------------------------------------------------
2 s3 V+ i$ t+ ~9 S※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
o# @$ B+ T( G: u( W--------------------------------------------------------------# @3 ?' g# @: m3 X: n/ c' g
The TotalSize of All files Guest owns is: 0MB
, c/ i# i, `. S9 Q) k; m--------------------------------------------------------------/ Q' D0 T$ B$ m
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※, s' Q7 j" ]. s: Y6 N
--------------------------------------------------------------
* ~5 C# F* _9 jThe TotalSize of All files HelpAssistant owns is: 0MB
) n) a: V: e. G* k" J d--------------------------------------------------------------; q( z! ]8 Y- n4 m G9 q& T
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
* ?& N3 L9 r2 i- Z$ S) H! B--------------------------------------------------------------
" d# Q l. V% [/ Kd:\powerword 2003.rar
& X6 }3 Z( D1 l! t2 m( }2 lType: WinRAR 档案文件9 F+ k f& a9 L z
Size: 503MB( Z; U- f3 P8 g- ~& N% D" v6 {
--------------------------------------------------------------
* X0 Z9 ~5 d- k: S U5 n9 p) Ad:\年 度 考 核 登 记 表2006版061225.doc. d- Y2 a* e: ] P4 V0 W) }9 W$ A7 j
Type: Microsoft Word 文档
9 t/ C/ \' F$ @ g/ w! z. }) ~Size: 0MB
9 [! Q8 Y' ]# q. `; N* @--------------------------------------------------------------
$ X; ]5 W. m, S& I' _5 Vd:\jcb-gx
+ c# W: p. p! X' ?Type: File Folder
" H7 L m6 J4 p, l9 f1 mSize: 22MB. b; c/ u! G& E+ `5 M
--------------------------------------------------------------( }6 y! p0 ]* `5 Q
The TotalSize of All files lsj owns is: 525MB# h s, J' P1 G; @" Q; A9 K
--------------------------------------------------------------
0 I0 p$ j! s0 o※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※1 h- o% O1 M7 y( ?$ I
--------------------------------------------------------------* n- l- l* u: Q& T$ `. Z
The TotalSize of All files SUPPORT_388945a0 owns is: 0MB5 V- u% D _* a2 C; B1 N( g4 f) o
--------------------------------------------------------------
$ J9 _$ W+ a5 W7 y( W1 B' ^※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

复制内容到剪贴板

代码:

G = WScript.arguments(0)


Set oFSO = CreateObject("Scripting.FileSystemObject")
Set objWMI = GetObject("winmgmts:")
Set oFiles = objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass = CIM_logicalfile")

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")


For Each objUser In colAccounts
TotalSize = 0
H = objUser.Name
Set TXT = oFSO.OpenTextFile(G&"\TXT.TXT",8,true)

For Each oFile In oFiles
strFile = oFile.name
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")

For Each objItem in colItems
if objItem.AccountName = H then
TXT.WriteLine( "--------------------------------------------------------------")
TXT.WriteLine( oFile.name)
TXT.WriteLine( "Type: " & oFile.FileType)

if oFile.name = G&"system volume information" then
exit for
end if

S = 0

if oFile.FileType="File Folder" then
Set objFolder = oFSO.GetFolder(oFile.name)
S= Cint(objFolder.Size/1024/1024)
else
S= Cint(oFile.FileSize/1024/1024)
end if
TXT.WriteLine( "Size: " & S &"MB")
TotalSize = TotalSize + S
end if
Next
Next

TXT.WriteLine( "--------------------------------------------------------------")

TXT.WriteLine( "The TotalSize of All files "&H&" owns is: " & TotalSize &"MB")
TXT.WriteLine( "--------------------------------------------------------------")
TXT.WriteLine( "※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※")
TXT.Close
Next
MsgBox "文件列表信息已成功输出至TXT.TXT文件",64,"OK"

[ 本帖最后由 lgaint 于 2007-11-28 00:11 编辑 ]

呵呵。精已经加到我头上去了，感谢igaint大哥！！

我用了4.1版的那个，怎么TXT.txt 文件里就这个啊-里面有很多文件的啊！！是我不会用吗？
; ]. H3 u2 c1 ?! d: u-------------------------------------------------------------
- D, ~5 f% j& F) h6 }3 {6 PThe TotalSize of All files __vmware_user__ owns is: 0MB% s% ~: f7 Y2 M6 W/ Z, \* R. C3 u
--------------------------------------------------------------
8 w& I1 n- E# ?※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※$ x K/ _& l/ O. W: p! T- i
--------------------------------------------------------------
& |3 \% a* j: R4 M- p7 h8 nThe TotalSize of All files a owns is: 0MB
: Y$ M3 c6 g1 q2 x; i--------------------------------------------------------------9 w# u6 h7 w, U- h5 U/ E% f% l1 K
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※+ ?! o( X3 k( a# f
--------------------------------------------------------------* j6 f9 U, o, A3 @2 Y$ h
The TotalSize of All files Administrator owns is: 0MB, r1 H% m1 {. t- S
--------------------------------------------------------------3 J! B) d, Z4 _* z0 P7 m
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※4 [7 e4 u( A. A8 C3 G
--------------------------------------------------------------4 s9 L8 H5 k0 Z; J: ^, Q" y" n8 o/ x9 w
The TotalSize of All files Guest owns is: 0MB# g6 U! C# o; E, y: T5 ^
--------------------------------------------------------------# @' ~' T, n/ o8 Y
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
# y) T, J6 w, M8 U--------------------------------------------------------------* f# A/ @. a0 R# [3 y' w
The TotalSize of All files HelpAssistant owns is: 0MB
) B, d: t: [% j' n+ R& V7 P0 T( L/ g--------------------------------------------------------------7 \. W1 n ^2 g! f3 ]1 K; Q7 [
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※* p; c1 _& M7 c5 E* \: s) q
--------------------------------------------------------------: {0 V& q% w8 m h8 n
The TotalSize of All files SUPPORT_388945a0 owns is: 0MB
. [: Y# E; r0 b( z, F* D* D--------------------------------------------------------------
$ {% x6 G, J2 z9 o8 Z. D! T- l9 X* U2 R※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※3 x6 U: E# B2 j! h% A, e

$ ^# {+ U) X) _, |[ 本帖最后由 live-share 于 2007-11-28 15:13 编辑 ]

引用:

原帖由 live-share 于 2007-11-28 14:40 发表 + V; u, S8 b/ ]7 W
我用了4.1版的那个，怎么TXT.txt 文件里就这个啊-里面有很多文件的啊！！是我不会用吗？" a) W. j2 v0 j5 Z6 I0 [
-------------------------------------------------------------
3 j% w0 ]3 ?3 A, Y1 q' l) y: JThe TotalSize of All files __vmware_user__ owns is: 0 ...

- p! k3 B7 m x/ m7 n+ I2 }$ d, ~4 O4 t8 n. ?
! b: U1 W- b& \" `
你是不是重装过机?你看看你这些文件的所有者是当前机子上的用户么?. l( j) H3 _6 Y9 [# \) l+ O4 U t" [! L
我示例中帖出来的也有这种情况,因为我重装过机子,硬盘里的文件的所有者大部分是以前系统中的用户,因为SID改变了,所以虽然都是一样的用户名,但系统还是认不出来

我把整个盘的所有者都改成当前用户了，但重新查结果还是一样的。

--------------------------------------------------------------
. [& i4 q+ m& R2 d! u" VThe TotalSize of All files Guest owns is: 0MB
( V2 ^8 Q! a# R# ?/ I( V--------------------------------------------------------------$ `8 Q+ D* k* J1 k- R* [
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
1 p9 {; W% N& F% t! u4 J4 B--------------------------------------------------------------
/ s9 M+ [+ v) S3 C0 C- kThe TotalSize of All files HelpAssistant owns is: 0MB: e/ |3 U# D |8 e
--------------------------------------------------------------9 S5 k" D1 c% i8 g k
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※( c# c+ X4 |) H& y8 c$ w( S- \
--------------------------------------------------------------, E/ ]$ M2 a9 T
The TotalSize of All files lishengjie owns is: 0MB
7 m4 c3 {! B- l1 O; i9 a0 f4 U--------------------------------------------------------------
( D8 g$ l; Z/ A9 F" e( M* \※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※: u2 e& D* H% e7 c* k
--------------------------------------------------------------2 D; T8 B7 M3 Y
emy documents\study\html" `8 k4 ~; N2 z, E/ s
Type: File Folder
' J9 e# _% V1 X- k& s) pSize: 0MB
% k1 ]& n- `( Y/ ~. c8 m: N--------------------------------------------------------------- A( }' m- ? }" O6 @2 U
emy documents\study\icons: p) Q' c. `! I/ |' i+ G
Type: File Folder, U- ~. c% v9 z7 g ~( o) v* `
Size: 7MB5 T% {% \$ M7 V% P
--------------------------------------------------------------/ x8 L) j4 v6 W2 H1 X. Q2 Z
emy documents\study\vb
" v0 c- l4 T9 p) F6 ^6 j+ j4 Q0 VType: File Folder
) ~; S. R' u2 \" R) _Size: 0MB2 j/ j8 Z- q+ o- Q$ Y% ~7 A( N
--------------------------------------------------------------
- j6 K) m( `9 l$ O( me:\my documents\study\wmi脚本入门
% [1 l2 P* P$ v9 e9 [Type: File Folder% S! b/ U/ Z; w5 S( i/ I
Size: 1MB
& a% S, x0 w7 c. Z--------------------------------------------------------------: \3 k- A8 N. x1 j5 Q* L( D
e:\my documents\study\000.htm2 ~# U9 S, F' C; ?7 C O& E3 D
Type: HTML Document$ \) k* r! @0 x4 R+ G
Size: 0MB
: K# I J4 q# ]' y2 v* p- x& Y* M4 {--------------------------------------------------------------
' o/ u- L" g- G; |" C# We:\my documents\study\200693121833237091.rar+ a) t/ I( J" M# _9 w- j
Type: WinRAR 档案文件
6 M7 s) Y) h+ N! ZSize: 4MB
7 x+ x$ o7 ^0 P/ |) H# ~6 K& `2 }--------------------------------------------------------------
; @3 \& G$ |! C" q' N9 f5 L3 ie:\my documents\study\222.jpg
! |% ~+ k8 Y: M1 rType: ACDSee JPG 图像8 G$ T3 b4 w( a6 x' m% b! F
Size: 0MB
" r1 v6 x% P% e3 r) N1 y! C5 r4 Y--------------------------------------------------------------/ O+ A7 t( |" j0 x
e:\my documents\study\3d.vbs
6 @# y" _* u O3 w" x0 Z RType: VBScript Script 文件7 S0 U' X' W% l8 X" j
Size: 0MB
! s5 v3 e/ b% f2 z- [8 N' b* ]--------------------------------------------------------------
1 ]! _2 w/ j- l% V, Ze:\my documents\study\a.html1 P! l3 d' X$ o) g* v/ n
Type: HTML Document
* r6 O/ c/ I$ w$ d" t4 K( CSize: 0MB5 l% E6 _+ ~/ H( {
--------------------------------------------------------------
; I0 e, D9 `4 C8 N6 g# C6 xe:\my documents\study\abc.htm7 c$ M+ U* {9 L& |9 B8 X% Q" Z* g
Type: HTML Document
0 {1 Y! t6 p+ w6 ~Size: 0MB
. [8 c- u9 q0 |( s8 g; t- e# S* `--------------------------------------------------------------: h1 k9 I4 D- a' U0 E8 Y/ ?
e:\my documents\study\addcmd.js
9 o$ H* U6 \4 S& m' VType: JScript Script File
5 _. T9 k. y' w- O% D. DSize: 0MB
! [8 d; |) v8 |. S8 Q7 j--------------------------------------------------------------2 Y- s: a, E/ }% l
e:\my documents\study\alert.htm
9 x% p; ~* f* R y" G Q% D/ H) KType: HTML Document
: ^& c8 l ?( M9 b: F4 ]Size: 0MB' `( ~ B+ w) a9 x3 n, Q) L
--------------------------------------------------------------' Z; ?2 [9 W" D/ K* X
e:\my documents\study\alert.txt. i. {9 U# `2 S
Type: 文本文档
" a/ c- l( i b8 t* k1 \Size: 0MB, C' h6 I0 |2 Z
--------------------------------------------------------------
6 t$ z5 m+ H( `* a3 z/ ]* F R% he:\my documents\study\b.html$ W% _- U; f! h6 r' X* _+ M
Type: HTML Document; r0 ^8 t4 g) ^8 Q+ a/ q6 C
Size: 0MB
# L" E' \- J% n--------------------------------------------------------------; u; q# D' }, a9 R- r, y
e:\my documents\study\boox viewer.rar% O6 h# W2 c" V3 ^
Type: WinRAR 档案文件% t" K6 d8 E- I: Z, y
Size: 1MB# p; y7 K) F, T
--------------------------------------------------------------6 {. E5 T; h+ P0 \: y
e:\my documents\study\cn.vbs% d6 |( X2 j; {+ u0 L8 a- N0 f
Type: VBScript Script 文件
/ @6 c4 ?$ i6 M5 `9 HSize: 0MB% r7 V! r' N8 F6 G0 A& W
--------------------------------------------------------------/ G4 a6 }3 ]4 U3 W
e:\my documents\study\css.txt
0 d, w. `0 M. {4 QType: 文本文档
7 R, V# ?* _9 f% E9 Y6 rSize: 0MB
$ F' s! t/ M# j7 G3 B9 x* X-------------------------------------------------------------- a d3 ?% B6 X; f+ J, a
e:\my documents\study\delprint.bat) h1 z+ X% d1 V# A
Type: MS-DOS 批处理文件
; K2 j% [0 k8 W9 A7 X* r0 g& uSize: 0MB' Q8 r3 E4 b. {
--------------------------------------------------------------- H) _+ R# E! ]+ J8 F; N4 ~
e:\my documents\study\dhcp.txt
1 P. g4 G; K/ I4 m6 y0 {Type: 文本文档
* i* B* _+ a9 M& M" F$ `Size: 0MB% P q. y1 b% u
-------------------------------------------------------------- m& K# r8 Q. l
e:\my documents\study\h.html
7 t4 T: ^$ b, \1 \! FType: HTML Document
' ^' c E! P8 Q6 O# d. ]Size: 0MB) ~5 U" T2 L8 |# i) i) J
--------------------------------------------------------------! ?% E* I( [+ k8 \; I9 [
e:\my documents\study\hidecmd.js
4 S5 A- Y! N( Q) e8 y2 SType: JScript Script File
y7 D- ^: q) p2 Z' p# `Size: 0MB1 v2 a: `. s5 X
--------------------------------------------------------------
2 M" t7 S) N6 o" he:\my documents\study\hta语法.txt; c, a0 p' N$ r9 [
Type: 文本文档
Z! F0 }7 U2 V$ [Size: 0MB
5 L! z1 `+ s& g--------------------------------------------------------------
8 Q) C, Y$ ^! t7 E3 De:\my documents\study\html.rar
4 U" {) V) e+ a& i. LType: WinRAR 档案文件6 `$ D4 \4 J* g! c; J9 K3 M a U: |
Size: 0MB
0 s3 g! b9 b* m3 J: w" T$ E--------------------------------------------------------------
2 X; D5 ?$ u1 ~$ K! y( oe:\my documents\study\ip setup.bat5 b, R' q6 m* d2 t/ e" n6 E: x
Type: MS-DOS 批处理文件" ?( S! T. U0 M& a# Q
Size: 0MB
& P2 F0 ]: o% O7 A--------------------------------------------------------------
2 u+ P3 g9 J9 [1 \e:\my documents\study\ipshow.vbs
$ q" F2 {( O4 E7 `: J! \0 V4 oType: VBScript Script 文件
* k# ?6 j" D" J$ K* Z3 u2 w5 USize: 0MB
" ^- A( E8 ^* J3 |$ w3 Y--------------------------------------------------------------' ~# j4 n8 f; i. j2 Q. V* \
e:\my documents\study\javascript手册.chm
# }& F6 R2 z4 m2 r5 d" W# vType: 已编译的 HTML 帮助文件! g& o- m* y1 b5 D& B( ` u
Size: 0MB& Z! I! O, |6 y
--------------------------------------------------------------9 z# I9 f8 j0 [$ z# V( Q
e:\my documents\study\javascript手册.rar1 W: ~- r4 S/ p/ `$ y" J) m
Type: WinRAR 档案文件+ [& I9 F) G+ I
Size: 0MB7 Z) o+ G0 C) V4 H n( a
--------------------------------------------------------------
. g" `& i: \) je:\my documents\study\jscript中文参考手册.chm/ i& E4 P4 H# C3 K2 J7 ~, Z
Type: 已编译的 HTML 帮助文件 H Z# r( l/ I L7 C
Size: 1MB, K3 l3 L* r6 m3 @8 a& s
--------------------------------------------------------------6 u ^/ C8 L2 d+ K
e:\my documents\study\luoinstall.bat. D0 K U) c" t8 Z" s6 I- P5 Q; W
Type: MS-DOS 批处理文件
2 A4 h! a# @8 u1 g X! @; |/ f! `Size: 0MB
5 L8 p. p9 e5 a" O; c9 `--------------------------------------------------------------
. @7 N% s* ~+ R7 z- J Ze:\my documents\study\mac.bat' d* W5 R# j$ |3 m+ H/ T
Type: MS-DOS 批处理文件
3 v9 K1 t o0 l% f2 H% CSize: 0MB& \: Z5 U$ w2 k1 w
--------------------------------------------------------------
6 E/ O9 s4 d1 v* A5 le:\my documents\study\minipdgreader.rar
& M+ i r6 }' N- yType: WinRAR 档案文件( J/ {! S5 W5 J. b. L
Size: 1MB. V! F% b, r, u7 d* \, c, k! E
--------------------------------------------------------------' L5 j4 X- I+ }# p
e:\my documents\study\owner.vbs' w# C: j3 ^6 Y. I
Type: VBScript Script 文件
0 t2 I9 G P9 G% t' @: Z) eSize: 0MB$ A% g( w: J' [3 a7 H5 K
--------------------------------------------------------------6 o3 @1 h' w1 D; P! f! p4 }) R+ W
e:\my documents\study\sb.hta, J: M0 M3 ?4 W
Type: HTML Application ]1 @9 c$ x" ]9 Y O3 ^ `
Size: 0MB( p5 K( k0 y( ~6 Y( B4 a2 J1 S
--------------------------------------------------------------2 ^9 b8 N, w! r$ D
e:\my documents\study\sb.htm
; {, D6 W9 k+ qType: HTML Document
" e/ ]' k& H1 Q% n0 }4 e5 vSize: 0MB
4 e! ^& n8 t; t7 U* S0 I--------------------------------------------------------------
4 [+ F. L1 U' z, |6 De:\my documents\study\sb.ico
2 f ^6 ]8 W: \& D( y" t2 `Type: Windows Icon
' t- P6 K$ o }, K( w8 [8 T, ASize: 0MB3 c1 _/ G4 W4 m. |0 j
--------------------------------------------------------------- d# Q9 j$ G5 Q+ F q Q
e:\my documents\study\sb.jpg. L+ `; a# G: j& \( c
Type: ACDSee JPG 图像
* b3 _! M$ G5 r, kSize: 0MB
. i. X2 r- y4 t. g" c--------------------------------------------------------------
* f: o) I& L. a! E7 xe:\my documents\study\showip.vbs5 `7 T2 C/ h! V2 W
Type: VBScript Script 文件
; I1 e: e) s' }, m* dSize: 0MB" P5 R1 S: D# [, C* ~, P" E( ~
--------------------------------------------------------------
0 l8 F$ |- H- T* U5 o) ge:\my documents\study\sillykaren.hta
! m" |8 d; N/ n' vType: HTML Application1 `; J5 Q& `/ u( b% s; ^: W
Size: 0MB6 V! s* t) c& J* q
--------------------------------------------------------------+ ]5 w: \* v# M" v
e:\my documents\study\sq.bat
9 f6 m' O3 b( s: W0 K2 P& ?Type: MS-DOS 批处理文件" ~/ y* N% |- i5 F* q& g
Size: 0MB# q9 B$ f+ C' Q. N3 m( m3 P
--------------------------------------------------------------
" J; t" D/ V( Q: U/ Z% @9 ce:\my documents\study\suball.vbs' S4 ~* A% u$ M
Type: VBScript Script 文件
4 w3 n; i6 j$ c& HSize: 0MB
' Z3 S7 v( C. D9 h, w--------------------------------------------------------------
0 C5 u- U* @" @e:\my documents\study\txt.html- R7 J; q" {2 K* X! R; u/ ]
Type: HTML Document
( i: |$ q' U7 r. p+ D; PSize: 0MB3 ^& l! D0 ^8 J$ o$ C' ^
--------------------------------------------------------------; q. `5 p; u6 O5 m6 E" R
e:\my documents\study\unitefiles.bat
6 u8 L. [. K$ p6 dType: MS-DOS 批处理文件
& h* F/ T e+ M5 ]3 mSize: 0MB( k% ^1 ?! U* m. x' [
--------------------------------------------------------------; Q- h7 x) y0 H; d/ D
e:\my documents\study\user.vbs
8 ~4 P. j& P3 Q5 v9 C4 rType: VBScript Script 文件" C$ ~/ R0 h" V+ n D v
Size: 0MB
5 I) l5 A# n; l7 q+ ]) ?0 ^1 Z--------------------------------------------------------------+ T0 r3 U* Y A& A
e:\my documents\study\vbstxt.txt! U) J: E4 Y: s( ~% a2 w
Type: 文本文档
1 _) }( v4 m0 A/ [8 ]3 ^: {0 xSize: 0MB
% @! K5 P; D- Y: B% I5 f--------------------------------------------------------------
' m" K7 _% h% C; Y" t2 Y, S/ B: r$ x# Fe:\my documents\study\windows 脚本技术.chm
% Z& |' {; m# C# |/ {Type: 已编译的 HTML 帮助文件
T( V4 l' [8 h& L; ]/ y7 PSize: 1MB+ D M+ [- a! V. N
--------------------------------------------------------------& w1 ?% i1 K& C
e:\my documents\study\wmi.vbs3 V/ k! [4 j+ |1 ]* F
Type: VBScript Script 文件$ j L$ {9 d) O3 z* g2 b% h- e0 D
Size: 0MB
0 L0 t0 v7 v0 _, U" q--------------------------------------------------------------6 |: Z8 r Y/ r& {( g
The TotalSize of All files lsj owns is: 16MB5 S5 m- A% M1 @4 J( @' e* e
--------------------------------------------------------------
3 ]2 v/ E y# L※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
5 q% b$ ]' O+ f: Q. S--------------------------------------------------------------" c' k K! J: x; U
The TotalSize of All files SUPPORT_388945a0 owns is: 0MB6 r3 w/ F+ @8 }! R ^
--------------------------------------------------------------
9 c: B( _3 Q# G5 s5 W※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

我在我的服务器上试了一下,发现一个问题,如果文件夹和文件的所有者是组的话,比如说administrators，也是无法显示的，看来，要出５．０版了，敬请等待

复制内容到剪贴板

代码:

G = WScript.arguments(0)
Set oFSO = CreateObject("Scripting.FileSystemObject")
set txt = oFSO.CreateTextFile(G&"TXT.txt",true) '嘿嘿,如果这个目录下刚好有一个TXT.txt文件,那就算你倒霉,不会有人真用这种名字来做文件名吧?真的啊,真的有啊?那你
换地方吧~~~C: \TXT.TXT应该不会有了吧?
set objWMI = GetObject("winmgmts:")
Set oFiles = objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass = CIM_logicalfile")
For Each oFile In oFiles
txt.WriteLine( "--------------------------------------------------------------")
txt.WriteLine( oFile.name)
txt.WriteLine( "Type: " & oFile.FileType)
if oFile.name = G&"system volume information" then
exit for
end if
if oFile.FileType="File Folder" then
Set objFolder = oFSO.GetFolder(oFile.name)
txt.WriteLine("Size: " & Cint(objFolder.Size/1024/1024) &"MB")
else
txt.WriteLine( "Size: " & cint(oFile.FileSize/1024/1024) &"MB")
end if
strFile = oFile.name
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" & " WHERE
AssocClass=Win32_LogicalFileOwner ResultRole=Owner")
For Each objItem in colItems
if oFile.name = "system volume information" then
exit for
end if
txt.WriteLine( "FileOwner: " & objItem.AccountName)
Next
Next

加入了统计administrator组文件夹和文件的功能

复制内容到剪贴板

代码:

G = WScript.arguments(0)
TotalSize = 0

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set TXT = oFSO.OpenTextFile(G&"\TXT.TXT",8,true)
TXT.WriteLine( "★★★★★The time of this count is "&Now&"★★★★★")

Set objWMI = GetObject("winmgmts:")
Set oFiles = objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass = CIM_logicalfile")

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")


'接下来统计属于管理员组的文件夹和文件
H = "Administrators"

For Each oFile In oFiles
strFile = oFile.name
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" & " WHERE

AssocClass=Win32_LogicalFileOwner ResultRole=Owner")

For Each objItem in colItems
if objItem.AccountName = H then
TXT.WriteLine( "--------------------------------------------------------------")
TXT.WriteLine( oFile.name)
TXT.WriteLine( "Type: " & oFile.FileType)

if oFile.name = G&"system volume information" then
exit for
end if

S = 0

if oFile.FileType="File Folder" then
Set objFolder = oFSO.GetFolder(oFile.name)
S= Cint(objFolder.Size/1024/1024)
else
S= Cint(oFile.FileSize/1024/1024)
end if
TXT.WriteLine( "Size: " & S &"MB")
TotalSize = TotalSize + S
end if
Next
Next

TXT.WriteLine( "--------------------------------------------------------------")

TXT.WriteLine( "The TotalSize of All files "&H&" owns is: " & TotalSize &"MB")
TXT.WriteLine( "--------------------------------------------------------------")
TXT.WriteLine( "※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※")
TXT.Close



'接下来统计属于各用户的文件和文件夹
For Each objUser In colAccounts
TotalSize = 0
H = objUser.Name
Set TXT = oFSO.OpenTextFile(G&"\TXT.TXT",8,true)

For Each oFile In oFiles
strFile = oFile.name
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" & " WHERE

AssocClass=Win32_LogicalFileOwner ResultRole=Owner")

For Each objItem in colItems
if objItem.AccountName = H then
TXT.WriteLine( "--------------------------------------------------------------")
TXT.WriteLine( oFile.name)
TXT.WriteLine( "Type: " & oFile.FileType)

if oFile.name = G&"system volume information" then
exit for
end if

S = 0

if oFile.FileType="File Folder" then
Set objFolder = oFSO.GetFolder(oFile.name)
S= Cint(objFolder.Size/1024/1024)
else
S= Cint(oFile.FileSize/1024/1024)
end if
TXT.WriteLine( "Size: " & S &"MB")
TotalSize = TotalSize + S
end if
Next
Next

TXT.WriteLine( "--------------------------------------------------------------")

TXT.WriteLine( "The TotalSize of All files "&H&" owns is: " & TotalSize &"MB")
TXT.WriteLine( "--------------------------------------------------------------")
TXT.WriteLine( "※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※")
TXT.Close
Next




MsgBox "文件列表信息已成功输出至TXT.TXT文件",64,"OK"

刚刚我把所有的都试了一下，

复制内容到剪贴板

代码:

G = WScript.arguments(0)
Set oFSO = CreateObject("Scripting.FileSystemObject")
set txt = oFSO.CreateTextFile(G&"TXT.txt",true) '嘿嘿,如果这个目录下刚好有一个TXT.txt文件,那就算你倒霉,不会有人真用这种名字来做文件名吧?真的啊,真的有啊?那你

set objWMI = GetObject("winmgmts:")
Set oFiles = objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass = CIM_logicalfile")
For Each oFile In oFiles
txt.WriteLine( "--------------------------------------------------------------")
txt.WriteLine( oFile.name)
txt.WriteLine( "Type: " & oFile.FileType)
if oFile.name = G&"system volume information" then
exit for
end if
if oFile.FileType="File Folder" then
Set objFolder = oFSO.GetFolder(oFile.name)
txt.WriteLine("Size: " & Cint(objFolder.Size/1024/1024) &"MB")
else
txt.WriteLine( "Size: " & cint(oFile.FileSize/1024/1024) &"MB")
end if
strFile = oFile.name
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")
For Each objItem in colItems
if oFile.name = "system volume information" then
exit for
end if
txt.WriteLine( "FileOwner: " & objItem.AccountName)
Next
Next

这个可以统计当前文件夹下的文件夹和文件的属主和大小，但不能统记子文件夹下的文件了。
& r% Z$ V; j' p% Q2 w( I7 s' V4 ~" t& }3 F2 N. g# x% ?
而4.2版的可以统记当前文件夹下所有owner是本地用户的文件
3 Z) E1 i n/ a% U6 m
6 F9 C& ] P: i$ q5 p9 O3 u. D[ 本帖最后由 live-share 于 2007-11-29 16:59 编辑 ]

更新了流程8 `+ z. k) j- |+ E
新加统计不明用户文件夹和文件$ j( X" b1 R& P. G
在统计文件夹下生成以用户名列表的TXT文件

复制内容到剪贴板

代码:

G = WScript.arguments(0)


Set oFSO = CreateObject("Scripting.FileSystemObject")
Set TXT0 = oFSO.OpenTextFile (G &"\ALLTXT.TXT",8,true)
Set TXT1 = oFSO.OpenTextFile (G &"\OtherTXT.TXT",8,true)
Set objWMI = GetObject("winmgmts:")
Set oFiles = objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass =

CIM_logicalfile")

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")

Set objshell = CreateObject("Wscript.Shell")

'统计每个用户的文件和文件夹
For Each objUser In colAccounts
TotalSize = 0
H = objUser.Name
Set TXT = oFSO.CreateTextFile (G & "\" & objUser.Name & "TXT.TXT&qu